program rekap_gaji_karyawan;
uses crt;
var nama:string;
i,item:integer;
jam,bonus,denda,total_gaji,total_seluruh:real;
begin
clrscr;
write('Berapa Jumlah pegawai yang ada?');readln(item);
clrscr;
textcolor(green);
gotoxy(27,2);write('Rekap Gaji Karyawan');
for i:=5 to 75 do
begin
gotoxy(i,5);write('-');
gotoxy(i,7);write('-');
gotoxy(i,23);write('-');
gotoxy(i,25);write('-');
end;
for i:=5 to 23 do
begin
gotoxy(10,i);write('|');
gotoxy(19,i);write('|');
gotoxy(31,i);write('|');
gotoxy(42,i);write('|');
end;
for i:=5 to 25 do
begin
gotoxy(5,i);write('|');
gotoxy(52,i);write('|');
gotoxy(75,i);write('|');
end;
gotoxy(7,6);write('No');
gotoxy(13,6);write('Nama');
gotoxy(21,6);write('Jam Kerja');
gotoxy(35,6);write('Bonus');
gotoxy(45,6);write('Denda');
gotoxy(57,6);write('Total Gaji');
i:=8;
while i<=(item+7) do begin
gotoxy(8,i);writeln(i-7);
gotoxy(13,i);readln(nama);
gotoxy(21,i);readln(jam);
if jam>48 then
begin
bonus:=(jam*7000)*0.1;
gotoxy(33,i);writeln(bonus:8:2);
total_gaji:=(jam*7000)+bonus;
gotoxy(53,i);writeln(total_gaji:9:2);
end;
if jam=48 then
begin
bonus:=0;
total_gaji:=(jam*7000)+bonus;
gotoxy(53,i);writeln(total_gaji:9:2);
end;
if jam<48 then
begin
denda:=(jam*7000)*0.05;
gotoxy(44,i);writeln(denda:8:2);
total_gaji:=(jam*7000)-denda;
gotoxy(53,i);writeln(total_gaji:9:2);
end;
i:=i+1;
total_seluruh:=total_seluruh+total_gaji;
end;
gotoxy(7,24);write('Total Gaji seluruh karyawan');
gotoxy(54,24);writeln(total_seluruh:9:2);
readln;
end.
