CARA MEMBUAT PEMBAGIAN GAJI DENGAN PASCAL

Okay sobat calon progammer. . . . . . .
Kali ini saya akan membagi lagi tugas pascal yang berfungsi utuk menentukan gaji pegawai. . . .  dan langsung ke TKP yah. . . .

Buka TPW kalian dan copylah listing program berikut:


program hitung_gaji;
uses wincrt;
var
n,j : string;
g: real;
t,p,tg: real;
begin
clrscr;
gotoxy(9,2);writeln('PROGRAM PEMBAGIAN GAJI');
writeln('------------------------------------------------------------------');
writeln;
write('Nama Pegawai             : ');readln(n);
write('Jabatan                  : ');readln(j);
if (j='direktur') or (j='DIREKTUR') then
begin
g             := 3000000;
t             := 0.1 * g;
end
else if (j='manager') or (j='MANAGER') then
begin
g             := 2000000;
t             := 0.05 * g;
end
else if (j='karyawan') or (j='KARYAWAN') then
begin
g             := 1000000;
t             := 0.1 * g;
end
else if (j='ob') or (j='OB') then
begin
g             := 800000;
t             := 0.1 * g;
end;                           
writeln('Gaji Bersih                      : Rp.',g:2:2);
writeln('Tunjangan Pegawai                : Rp.',t:2:2);
p             := 0.1 * g;
writeln('PPN 10 %                         : Rp.',p:2:2);
writeln('                                  ----------------');
writeln;
tg            :=(g+t)-p;
WRiteln('Gaji Yang Diterima               : Rp.',tg:2:2);
end.

Hasil output programnya:




Semoga bermanfaat yah. . . . . .