Program Menghitung Gaji PNS

Setelah tugas Pascal yang saya posting, sekarang ada program yang cukup menarik untuk belajar Pascal bagi pemula. (Lagi-lagi Pascal, emang ga ada ide lain selain nulis tentang Pascal ya?)

Berhubung mendekati OSK (Olimpiade Sains Kabupaten) yang akan dilaksanakan dalam waktu dekat, maka di sekolahku diadakan beberapa bimbingan persiapan olimpiade, termasuk untuk olimpiade komputer.

Mungkin program yang saya tulis ini dapat menjadi referensi contoh-contoh program Pascal untuk pemula.

Dan inilah Program Menghitung Gaji PNS 2010 dengan beberapa variasi yang saya buat menggunakan Turbo Pascal for Windows versi 1.5 :

{Nama Program: Menghitung Gaji PNS}
{Programmer: Miftahur Roziqin}
{Tanggal Pembuatan: 4 April 2010}

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.