contoh source code program gaji pada pascal

program Gaji;

uses wincrt;

var gajip,gajib,pajk,jamsostek,tunjangansm,tunjangana,tunjanganjbtn:real;

nip,np,beristri,stats,jbtn,sm,bm:string;

jumlaha,pilihan1,pilihan:integer;

begin

clrscr;

write('         Masukkan Data !!!');

writeln;

writeln;

write(' Nomor Induk pekerja=');

readln(nip);

write(' Nama pekerja=');

readln(np);

writeln(' status :');

writeln('1.sudah menikah');

writeln('2.belum menikah');

write('status anda :');readln(pilihan);

if pilihan=1 then

begin writeln(' status= sudah menikah',sm);

write(' Jumlah Anak=');

readln(jumlaha);

write(' Jabatan=');

readln(jbtn);

write(' Gaji Pokok=');

read(gajip);

if sm='sudah menikah' then begin

tunjangansm:=0.1*gajip;

end

else begin

tunjangansm:=0.1*gajip;

end;

if jumlaha<=0 then begin

tunjangana:=0.05*gajip*jumlaha;

end

else begin

tunjangana:=0.05*gajip*jumlaha;

end;

if jbtn='direktur' then begin

tunjanganjbtn:=2000000;

end

else

if jbtn='manager' then begin

tunjanganjbtn:=1500000;

end

else

if jbtn='karyawan' then begin

tunjanganjbtn:=1000000;

end

else begin

tunjanganjbtn:=0;

end;

pajk:=0.025*gajip;

jamsostek:=0.01*gajip;

writeln;

gajib:=(gajip+tunjangansm+tunjangana+tunjanganjbtn)-(pajk+jamsostek);

writeln('       "Jadi Tunjangan Anda"');

writeln;

writeln('*Tunjangan sudah menikah=',tunjangansm:3:2);

writeln('*Tunjangan Anak=', tunjangana:3:2);

writeln('*Tunjangan Jabatan=', tunjanganjbtn:3:2);

Writeln('*Pajak=', pajk:3:2);

writeln('*Jamsostek=', jamsostek:3:2);

writeln('*Gaji Bersih=', gajib:3:2);

writeln;

writeln('             SELESAI');

end;

if pilihan=2 then

begin writeln(' status =belum menikah',bm);

write(' Jabatan=');

readln(jbtn);

write(' Gaji Pokok=');

read(gajip);

writeln;

if jbtn='direktur' then begin

tunjanganjbtn:=2000000;

end

else

if jbtn='manager' then begin

tunjanganjbtn:=1500000;

end

else

if jbtn='karyawan' then begin

tunjanganjbtn:=1000000;

end

else begin

tunjanganjbtn:=0;

end;

pajk:=0.025*gajip;

jamsostek:=0.01*gajip;

gajib:=(gajip+tunjanganjbtn)-(pajk+jamsostek);

writeln('       "Jadi Tunjangan Anda"');

writeln;

writeln('*Tunjangan Jabatan=', tunjanganjbtn:3:2);

Writeln('*Pajak=', pajk:3:2);

writeln('*Jamsostek=', jamsostek:3:2);

writeln('*Gaji Bersih=', gajib:3:2);

writeln;

writeln('             SELESAI');

end;

end.