Program entri Karyawan menggunakan Bahasa Pemrograman Pascal

{ copyrigh by Fery Afrianto / Nobp : 0410115262024 }
PROGRAM GAJI_KARYAWAN;USES CRT;VAR I,J :BYTE;NIK :ARRAY [1..2,1..3]OF STRING [8];NMKAR :ARRAY [1..2,1..3]OF STRING [20];JMKER :ARRAY [1..2,1..3]OF INTEGER;LEMBUR :ARRAY [1..2,1..3]OF INTEGER;TOTGAJ :ARRAY [1..2,1..3]OF INTEGER;BULAN :ARRAY [1..2]OF INTEGER;
BEGIN{MULAI UTAMA}CLRSCR;WRITELN (' ENTRY GAJI KARYAWAN ');WRITELN (' P.T UNTUNG MELULU LTD, PADANG ');WRITELN ('_________________________________________');WRITELN ;FOR I:= 1 TO 2 DOBEGINWRITELN ('BULAN :',I);FOR J:= 1 TO 3 DOBEGINWRITE ('NIK KE :',J,' : '); READLN (NIK[I,J]);WRITE ('NAMA KARYAWAN KE ',J,' : '); READLN (NMKAR[I,J]);WRITE ('JAM KERJA KE ',J,' : '); READLN (JMKER[I,J]);WRITELN;WRITELN;END;END;
{PROGRAM PROSEDURE}CLRSCR;WRITELN (' LAPORAN GAJI KARYAWAN ');WRITELN (' P.T UNTUNG MELULU LTD, PADANG ');WRITELN ('___________________________________________________');WRITELN ;FOR I:= 1 TO 2 DOBEGINWRITELN ('BULAN :',I);WRITELN ;WRITELN ('-----------------------------------------------------------------------);WRITELN ('NONIKNAMA KARYAWANJAM KERJALEMBURTOTAL GAJI ');WRITELN ('--------------------------------------------------------------------- ');FOR J:= 1 TO 3 DOBEGINIF JMKER[I,J] > 40 THENLEMBUR[I,J] := (JMKER[I,J] - 40) * 5000ELSELEMBUR[I,J] := 0 ;TOTGAJ[I,J] := LEMBUR[I,J] + 2000000;WRITELN ('',J:3,'',NIK[I,J]:6,'',NMKAR[I,J]:15,'',JMKER[I,J]:8,'',LEMBUR[I,J]:15,'',TOTGAJ[I,J]:15, '');END;WRITELN ('-----------------------------------------------------------------------');END;REPEAT UNTIL KEYPRESSED;END.
(indoskripsi)