Tugas Quis

mesran.net

Menghitung Gaji Karyawan

uses crt;
var
nama:array [1..3] of string;
gol:array [1..3] of integer;

brs,i:integer;
gatol:array [1..3] of real;
nik:array [1..3] of integer;
gapok:array [1..3] of real;
pajak:array [1..3] of real;
begin
for
i:=1 to 3 do
begin
write('Golongan    :');readln(gol[i]);
write('NIK    :');readln(nik[i]);
end;
clrscr;
gotoxy(20,1);readln('MENGHITUNG GAJI KARYAWAN');
writeln('--------------------------------------------------------------------------------------------');
writeln(' No| NIK | NAMA |GOLONGAN| GAJI POKOK | PAJAK | GAJI BERSIH |');
writeln('---------------------------------------------------------------------------------------------');
brs:=6;
for i:=1 to 3 do
begin
if nik[i]=1 then
 nama[i]:='Hendro'
else nik[i]=2 then
 nama[i]:='Dian'
else nik[i]=3 then
 nama[i]:='Jhoni';
end;
gotoxy (2,brs);writeln(i);
gotoxy (7,brs);writeln(nik[i]);
gotoxy (11,brs);writeln(nama[i]);
gotoxy (17,brs);writeln(gol[i]);
for i:=1 to 3 do
begin
if gol[i]=1 then
 gapok[i]:=1500000
else if gol[i]=2 then
 gapok[i]:=2500000
else if gol[i]=3
 gapok[i]:=3500000
else gapok[i]:=0
end;
gotoxy (25,brs);writeln(gapok[i]);
gotoxy (32,brs);writeln(pajak[i]);
pajak[i]:=0.05*gapok[i];
gotoxy (37,brs);writeln(gatol[i]);
gatol[i]:=gapok[i]-pajak[i];
brs:=brs+1;
writeln('--------------------------------------------------------------------------------------------------');
end;
end.