Program menghitung gaji 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
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
Use this diet hack to drop 2 lb of fat in just 8 hours
BalasHapusMore than 160 000 men and women are hacking their diet with a simple and secret "liquid hack" to drop 1-2 lbs each night in their sleep.
It's easy and works on anybody.
Here's how you can do it yourself:
1) Hold a drinking glass and fill it half the way
2) Proceed to do this weight loss hack
and be 1-2 lbs skinnier when you wake up!