Program Menghitung Gaji Karyawan
Menggunakan IF
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.
Hasil Program Menghitung Gaji Karyawan Menggunakan IF
FLOWCHART HITUNG GAJI KARYAWAN
Created by : Arianti Salama