Program "Menghitung Gaji Pegawai" Menggunakan Bahasa Pascal

Ini adalah Program Menghitung Gaji Pegawai yang menggunakan bahasa PASCAL, yang merupakan tugas Quiz Online Dari website Mesran.net

dan berikut ini adalah hasil programnya :

Menghitung Gaji Pegawai
___________________________________

NIK Pegawai :
Nama :
Golongan :
Gaji Pokok :
Pajak :
Gaji Bersih :


Berikut source codenya :

uses crt;

var
gapok, pajak , gatot: real;
nik, golongan: integer;
gol : string;

begin
clrscr;
writeln ('Menghitung Gaji Pegawai');
writeln ('--------------------------------------');
write ('NIK Pegawai : '); read(nik);

begin
if (nik = 1) then
writeln ('Nama        : Hendro');
if (nik = 2) then
writeln ('Nama        : Dian');
if (nik = 3) then
writeln ('Nama        : Jhoni');
readln;

write  ('Golongan    : '); read(golongan);
if (golongan = 1) then
begin gapok := 1500000;
gol := '1';
end
else
if (golongan = 2) then
begin
gapok := 2500000;
gol := '2';
end
else
if (golongan = 3) then
begin
gapok := 3500000;
gol := '3';
end

else
writeln ('Nomor Golongan Salah');
writeln ('Gaji Pokok  : ', gapok:0:2);
pajak := 0.05 * gapok ;
writeln ('Pajak       : ', pajak:0:2);
gatot := gapok - pajak;
writeln ('Gaji Bersih : ', gatot:0:2);
readln;

readln;
end
end.

Read more »