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