program gaji_pegawa

program gaji_pegawai;
Uses crt;
label adhy;
Var nama:string[20];
jabatan:string;
Gaji:longint;
total,Tunj,ppn,gajibersih:real;
Begin
Clrscr;




firman93:
Write('Nama Karyawan : '); readln(nama);
Write('Masukkan Jabatan : '); readln(jabatan);
If (jabatan='Direktur') or (jabatan='direktur') then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan='Manager') or (jabatan='manager') then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan='Karyawan') or (jabatan='karyawan') then
Begin
Gaji:=1000000;
Tunj:=0.2* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln('Gaji Bersih = Rp.',gaji);
Writeln('Tunjangan Jabatan : Rp.',tunj:9:2);
Ppn:=0.1*gaji;
Writeln('PPN 10 % = Rp.',ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln('Total Gaji = Rp.',total:9:2);

writeln('Terimah kasih');
goto firman93;
Readln;
readln;
End.


Label:
Reaksi:

Post a Comment

Contact Form

Name

Email *

Message *

Powered by Blogger.
Javascript DisablePlease Enable Javascript To See All Widget