PENGHITUNGAN GAJI KARYAWAN DENGAN PASCAL

Ketentuannya :
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


program yang digunakan adalah if :
program Penghitungan_gaji_karyawan;
uses wincrt;
var nama:string[20];jabatan:string;
gaji:longint;
tunj,ppn,gajibersih,total:real;
ulang:char;

begin
repeat
gaji:=0;tunj:=0;ppn:=0;total:=0;gajibersih:=0;
begin
clrscr;
write('Nama Karyawan : '); readln(nama);
write('Masukkan Jabatan : '); readln(jabatan);
if (jabatan='Direktur') or (jabatan='direktur') or (jabatan='DIREKTUR') then
begin
gaji:=3000000;
tunj:=0.1* gaji;
end
else If (jabatan='Manager') or (jabatan='manager') or (jabatan='MANAGER') then
begin
gaji:=2000000;
tunj:=0.05* gaji;
end
else If (jabatan='Karyawan') or (jabatan='karyawan') or (jabatan='KARYAWAN')

then
begin
gaji:=1000000;
tunj:=0.02* gaji;
end
else If (jabatan='OB')or(jabatan='ob') then
begin
gaji:=800000;
tunj:=0.01* 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+tunj)-ppn;
writeln('Total Gaji : Rp.',total:9:2);
end;
write('ulang? (y/t)');readln(ulang);
until upcase(ulang)='T';
end.