lumayan bingung untuk mikir bikin ini tadi malem, tapi dengan segenap kemampuan jiwa dan raga (halah lebay)....
cekibrot aja untuk codenya...
Program contoh_perhitungan_gaji;
Uses wincrt;
Var
nama,jabatan,nip:string;
Gaji,pot,gajibersih:real;
Begin
Clrscr;
writeln (' Slip Gaji BUlanan');
writeln (' PT. Maju Mundur Sentosa');
writeln;
Write ('[1] Masukkan Nama = '); readln (nama);
write ('[2] Masukkan NIP = '); readln (nip);
Write ('[3] Masukkan Jabatan = '); readln(jabatan);
If (jabatan='OB') or (jabatan='ob') then
begin
Gaji:=800000;
writeln ('[5] Gaji Anda = ',Gaji:2:0);
End;
If (jabatan='OP') or (jabatan='op') then
Begin
Gaji:=1500000;
writeln ('[5] Gaji Anda = ',Gaji:2:0);
End;
If (jabatan='KP') or (jabatan='kp') then
Begin
Gaji:=2000000;
writeln ('[5] Gaji Anda = ',Gaji:2:0);
End;
If (jabatan='SP') or (jabatan='sp') then
Begin
Gaji:=2500000;
writeln ('[5] Gaji Anda = ',Gaji:2:0);
End;
if (jabatan='MG') or (jabatan='mg') then
Begin
Gaji:=3000000;
writeln ('[5] Gaji Anda =',Gaji:2:0);
End;
write ('[6] Potongan = '); readln (pot);
writeln ('=============================');
gajibersih:= Gaji-pot;
Write ('[7] Gji Bersih = ',gajibersih:2:0);
End.
Ntar begini jadinya....