Senin, 14 Desember 2009

MENGHITUNG JUMLAH GAJI ( PASCAL )

program upah;
uses wincrt;
var
nama:array [1..8] of string;
gol:array [1..8] of char;
brs,i:integer;
totbyr,jlmbr,jjk,upk,upl:array [1..8] of longint;
begin
FOR I:=1 TO 8 DO
BEGIN
WRITE('NAMA KARYAWAN:');READLN(NAMA[I]);
WRITE('JAM KERJA :');READLN(JJK[I]);
WRITE('JAM LEMBUR :');READLN(JLMBR[I]);
WRITE('GOLONGAN :');READLN(GOL[I]);
END;
CLRSCR;
gotoxy(25,1);writeln ('MENGHITUNG TOTAL GAJI');
{12345678911234567892123456789312345678941234567895123456789612345678971234567898}
writeln('------------------------------------------------------------------------');
writeln('|No| Nama | Jam | Jam |Golongan| Upah | Upah | Total |');
writeln('| | Karyawan | Kerja |Lembur| | Kerja | Lembur | Bayar |');
writeln('------------------------------------------------------------------------');
brs:=6;
for i:=1 to 8 do
begin
writeln('| | | | | | | | |');
gotoxy(2,brs);writeln(i);
gotoxy(5,brs);WRITELN(nama[i]);
gotoxy(17,brs);WRITELN(jjk[i]);
gotoxy(25,brs);WRITELN(jlmbr[i]);
gotoxy(33,brs);WRITELN(gol[i]);
if (gol[i]='A') then
begin
upk[i]:=50000;
upl[i]:=5000;
end
else
if (gol[i]='B') then
begin
upk[i]:=40000;
upl[i]:=4000;
end
else
if (gol[i]='C') then
begin
upk[i]:=30000;
upl[i]:=3000;
end
else
if (gol[i]='D') then
begin
upk[i]:=20000;
upl[i]:=2000;
end;
gotoxy(41,brs);writeln(upk[i]);
gotoxy(49,brs);writeln(upl[i]);
totbyr[i]:=(jjk[i]*upk[i])+(jlmbr[i]*upl[i]);
gotoxy(61,brs);writeln(totbyr[i]);
brs:=brs+1;
end;
begin
writeln('------------------------------------------------------------------------');
writeln;
end;
end.

the power of love