Program penghitunga gaji

Program Hitung_Gaji;

Uses
Wincrt;

Var
Nama,Gol,Ulangi:String;
PPN,Gaji,Gaji_Bersih,Total:Real;
Masa:Integer;

Begin

Repeat
GotoXY(33,5); Writeln('TEKAN ENTER!' );
clrscr;
GotoXY(33,6); Writeln(‘TEKAN ENTER!’);
clrscr;
GotoXY(33,7); Writeln(‘TEKAN ENTER!’);
clrscr;
GotoXY(33,6); Writeln(‘TEKAN ENTER!’);

Until
Keypressed;

Clrscr;

Repeat
Writeln(‘SELAMAT DATANG DI PROGRAM PENGHITUNG GAJI BERSIH PNS’);
Writeln(‘PROGRAM INI AKAN MENGHITUNG GAJI PNS BERDASARKAN GOLONGAN DAN MASA KERJANYA’);
writeln(”);
readkey;
readkey;
Writeln(‘Perhatian: Harap tulis dengan huruf kapital!’);
writeln(”);

Write(‘Nama PNS : ‘); Readln(Nama);
Write(‘Golongan (IA,IIA,IIB,IIC,IID,IIIA,IVA,IVD,IVE) : ‘); Readln(Gol);
Write(‘Masa Kerja (Tahun) : ‘); Readln(Masa);

If (Gol=’IA’) then
Begin
case Masa of
0..3:gaji:=1040000;
4..15:gaji:=1091700;
16..70:gaji:=1262700;
end;
End;

If (Gol=’IIA’) then
Begin
case Masa of
0..70:gaji:=1320300;
end;
End;

If (Gol=’IIB’) then
Begin
case Masa of
0..14:gaji:=1462300;
15..70:gaji:=1650800;
end;
End;

If (Gol=’IIC’) then
Begin
case Masa of
0..6:gaji:=1487600;
7..14:gaji:=1561600;
15..70:gaji:=1720700;
end;
End;

If (Gol=’IID’) then
Begin
case Masa of
0..6:gaji:=1550600;
7..14:gaji:=1627600;
15..70:gaji:=1793400;
end;
End;

If (Gol=’IIIA’) then
Begin
case Masa of
0..3:gaji:=1655800;
4..9:gaji:=1738100;
10..70:gaji:=1869300;
end;
End;

If (Gol=’IVA’) then
Begin
case Masa of
0..3:gaji:=1954300;
4..9:gaji:=2051400;
10..31:gaji:=2206200;
32..70:gaji:=2880800;
end;
End;

If (Gol=’IVD’) then
Begin
case Masa of
0..3:gaji:=2212900;
4..9:gaji:=2322900;
10..31:gaji:=2498200;
32..70:gaji:=3262000;
end;
End;

If (Gol=’IVE’) then
Begin
case Masa of
0..3:gaji:=2306500;
4..9:gaji:=2421200;
10..31:gaji:=2603900;
32..70:gaji:=3400000;
end;
End;

PPN:=1/10*Gaji;
Total:=Gaji-PPN;
Writeln(‘Jadi, Gaji Bersih ‘,Nama,’ dengan Masa Kerja ‘,Masa,’ Tahun setelah dikurangi PPN 10%’);
Writeln(‘Adalah: Rp’,Total:0:0);
Writeln(”);
GotoXY(21,20); Writeln(‘NB. Daftar Gaji diperoleh dari: http://nasional.tvone.co.id’);
writeln(”);
readkey;
clrscr;
Write(‘Ingin menghitung gaji lagi ? (Y / N)’);
Readln(Ulangi);
Clrscr;
Until (Ulangi=’N') or (Ulangi=’n');

GotoXY(12,7); Writeln(‘Terima kasih Anda telah menggunakan program ini ^_^ ‘);

End.