Mencari Gaji Karyawan Dengan Pascal

uses crt;

var

 nopeg,nama : array [1..10] of string;

 gol,JJL : array [1..10] of integer;

 Lembur_jam, gapok, tunjangan: array [1..10] of longint;

 UangLembur, gaji_bersih : array [1..10] of real;

 i, p : integer;

begin

 clrscr;

 write('masukkan jumlah pegawai: '); readln(p);

 writeln('-----------------------------------------------------------');

 for i:= 1 to p do

 begin

 write('masukkan nomer pegawai[',i,']: '); readln(nopeg[i]);

 write('masukkan nama pegawai[',i,']: '); readln(nama[i]);

 write('masukkan jumlah jam lembur[',i,']: '); readln(JJL[i]);

 write('masukkan golongan[',i,']: '); readln(gol[i]);

 if(gol[i]=1) then

  begin

   gapok[i] := 100000;

   tunjangan[i]:= 50000;

   Lembur_jam[i]:= 3500;

  end

 else if(gol[i]=2) then

  begin

   gapok[i]:= 200000;

   tunjangan[i] := 100000;

   lembur_jam[i] := 4500;

  end

 else if(gol[i]=3) then

  begin

   gapok[i]:= 350000;

   tunjangan[i] := 200000;

   lembur_jam[i] := 6000;

  end

 else if(gol[i]=4) then

  begin

   gapok[i]:= 500000;

   tunjangan[i] := 350000;

   lembur_jam[i] := 0;

  end

 else

  begin

   write('masukkan gaji pokok[',i,']: '); readln(gapok[i]);

   write('masukkan tunjangan[',i,']: '); readln(tunjangan[i]);

   write('masukkan Uang lembur per jam[',i,']: '); readln(lembur_jam[i]);

  end;

 clrscr;

 writeln('nomer pegawai[',i,']: ',nopeg[i]);

 writeln('nama pegawi[',i,']: ',nama[i]);

 writeln('gaji pokok[',i,']: ',gapok[i]);

 writeln('tunjangan[',i,']: ',tunjangan[i]);

 writeln('jumlah jam lembur[',i,']: ',JJL[i]);

 writeln('Uang lembur/jam[',i,']: ',lembur_jam[i]);

 UangLembur[i] := JJL[i] *lembur_jam[i];

 writeln('uang lembur[',i,']: ',uanglembur[i]:0:2);

 gaji_bersih[i] := UangLembur[i]+Tunjangan[i]+gapok[i];

 writeln('gaji bersih[',i,']: ',gaji_bersih[i]:0:2);

 writeln;

 end;

 clrscr;

 writeln('------------------------------');

 gotoxy(1,2) ; writeln('no');

 gotoxy(5,2) ; writeln('nopeg');

 gotoxy(12,2); writeln('namapeg');

 gotoxy(21,2); writeln('gol');

 gotoxy(26,2); writeln('gapok');

 gotoxy(35,2); writeln('tunjangan');

 gotoxy(47,2); writeln('jjl');

 gotoxy(52,2); writeln('uang lembur');

 gotoxy(67,2); writeln('gaji bersih');

 gotoxy(1,3) ; writeln('-------------------------------------------------');

 for i:= 1 to p do

 begin

  gotoxy(1,3+i) ; writeln(i);

  gotoxy(6,3+i) ; writeln(nopeg[i]);

  gotoxy(12,3+i); writeln(nama[i]);

  gotoxy(21,3+i); writeln(gol[i]);

  gotoxy(26,3+i); writeln(gapok[i]);

  gotoxy(35,3+i); writeln(tunjangan[i]);

  gotoxy(47,3+i); writeln(jjl[i]);

  gotoxy(52,3+i); writeln(UangLembur[i]:0:2);

  gotoxy(67,3+i); writeln(gaji_bersih[i]:0:2);

 end;

 writeln;

 readln;

end.