program Menghitung Gaji Karyawan menggunakan pascal;

program Menghitung_Gaji_Karyawan; 
uses crt; 

var 
gapok, tanak , gatot: real;
 n, golongan, status: integer;
nama , gol : string;

begin 
writeln ('Menghitung Gaji Karyawan');
writeln ('========================');
writeln ('Golongan : 1. III 2. IV 3. V ');
writeln ('Status : 1. Menikah 2. Single ');
writeln ('========================');
write ('Masukkan Nama Karyawan : '); read(nama);
write ('Pilih Nomor Golongan : '); read(golongan);
if (golongan = 1) then
begin gapok := 2000000;
gol := 'III';
end
else
if (golongan = 2) then
begin
gapok := 3000000;
gol := 'IV';
end
else
if (golongan = 3) then
begin
gapok := 4000000;
gol := 'V';
end
else
writeln('Nomor Golongan Salah');
write ('Pilih nomor Status : '); read(status);
 if (status = 1 ) then
begin
writeln ('Masukkan jumlah anak: '); read(n);
 if (n > 2 ) then
 tanak := 2 *(10/100 * gapok)
 else
tanak := n *(10/100 * gapok);
end
else
tanak := 0;
writeln ('========================');
writeln ('Nama Karyawan : ', nama);
writeln ('Golongan : ', gol);
writeln ('Gaji Pokok : ', gapok:0:2);
writeln ('Tunjangan Anak: ', tanak:0:2);
gatot := gapok + tanak;
writeln ('Total gaji : ', gatot:0:2);
 readln;
readln;
end.

SHARE

About Unknown