Program Pascal Menghitung Gaji Pegawai

Postingan kali ini saya akan membagikan artikel tentang membuat Program Pascal Menghitung Gaji Pegawai dengan syarat:


NIK  Pegawai :
Nama  :
Golongan :
Gaji Pokok :
Pajak :
Gaji Bersih :
Ketentuan Proses
1. NIK, Gol INPUT
2. Proses Nama Pegawai
     Jika NIK = 1 maka
                  Nama Pegawai = "Dini"
     Jika NIK = 2 maka
                  Nama Pegawai = "Calvin"
     Jika NIK = 3 maka
                  Nama Pegawai = "Jepri"

3. Proses Gaji Pokok
     Jika GOL = 1 maka
                  GajiPokok= 2000000
     Jika GOL = 2 maka
                  GajiPokok= 2500000
     Jika GOL = 3 maka
                  GajiPokok= 3500000

4. Pajak = 0.05 * Gaji Pokok
5. Gaji Bersih = Gaji Pokok - Pajak

Berikut adalah Programnya:
program Menghitung_Gaji_Pegawai;
uses crt;

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

begin
writeln ('Menghitung Gaji Pegawai');
writeln ('========================');
writeln ('Golongan : 1. III 2. IV 3. V ');

writeln ('========================');
write ('Masukkan NIK Pegawai : '); read(nik);

if (nik = 1) then
begin nama := 'Dini';

end

else
 if (nik = 2) then
begin
nama := 'Calvin';

end

else
if (nik = 3) then
begin
nama := 'Jepri';

end

else
writeln('NIK Salah');
write ('Pilih Nomor Golongan : '); read(golongan);
if (golongan = 1) then
begin gapok := 2000000;
gol := 'III';
end

else
if (golongan = 2) then
begin
gapok := 2500000;
gol := 'IV';
end

else
if (golongan = 3) then
begin
gapok := 3500000;
gol := 'V';
end

else
writeln('Nomor Golongan Salah');

writeln ('========================');
writeln ('Nama Pegawai : ', nama);
writeln ('Golongan     : ', gol);
writeln ('Gaji Pokok   : ', gapok:0:2);

pajak :=0.05 * gapok;
writeln ('Pajak           : ', pajak:0:2);

gaber := gapok - pajak;
writeln ('Gaji Bersih  : ', gaber:0:2);
 readln;
readln;
end.