Selasa, 03 Desember 2013

Program Menghitung Gaji Karyawan


program hitung_gaji;
Uses wincrt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,Total,gajibersih:real;
Begin
Clrscr;
Write( 'Nama Karyawan     : '); readln(nama);
Write('Masukkan Jabatan  : '); readln(jabatan);
If  (jabatan='Direktur') or (jabatan='direktur') then
     Begin
 Gaji:=4000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan='Manager') or (jabatan='manager') then
     Begin
 Gaji:=3000000;
 Tunj:=0.01* gaji;
     End
Else If  (jabatan='Supervisor') or (jabatan='supervisor') then
     Begin
 Gaji:=2000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan='Karyawan') or (jabatan='karyawan') then
     Begin
 Gaji:=1000000;
 Tunj:=0.1* 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.2*gaji;
Writeln('PPN 10 %           : Rp.',ppn:9:2);
Total:=gaji+total;
Writeln('Total Gaji         : Rp.',total:9:2);
Readln;

End.


FLOWCHART



0 komentar:

Posting Komentar