Contoh Program Gaji Dengan Pascal

Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;

Berikut adalah data pengolahan gaji karyawan;

• Nomor Induk Karyawan

• Nama Karyawan

• Status

• Jumlah Anak

• Jabatan

• Gaji Pokok

• Tunjangan Istri

• Tunjangan Anak

• Tunjangan jabatan

• Jamsostek

• Pajak

• Gaji Bersih

Catatan;
Tunjangan istri

• jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok

• Selain itu tidak dapat tunjangan

Tunjangan anak

• Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk masing-masing anak

• Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.

• selain itu tidak dapat tunjangan

Tunjangan jabatan

• Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000

• Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000

• Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000

• Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)

 Berikut Listing Programnya.
Silakan dipelajari atau dimodifikasi.

Coding Nya:

program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
readkey;
end.

Berikut adalah tampilan Program yang telah jadi