Progamman TurboPascal

Contoh Penghitungan
Gaji Ketentuan Soal :
1. Nama Di input
2. Jabatan di input , Jabatan Gaji Tunjangan Direktur 3000000 10 % dari gaji Manager 2000000 5% dari gaji Karyawan 1000000 2% dari gaji OB 800000 1% dari gaji
3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn Jawabannya:

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint; Tunj,ppn,gajibersih:real;
Begin Clrscr; 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.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.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn; Writeln(‘Total Gaji : Rp.‘,tot