PROGRAM PASCAL GAJI KARYAWAN

program Gaji_Karyawan;

uses wincrt;

const

uk = 2000;

var

nk,ak,ni : string;

jk,gj : real;

begin

clrscr;

writeln ('LATIHAN PROGRAM GAJI KARYAWAN');

writeln;

writeln ('[                 INPUT DATA                  ]');

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

write   ('nomor induk karyawan : ');readln (ni);

write   ('nama karyawan        : ');readln (nk);

write   ('alamat karyawan      : ');readln (ak);

write   ('jumlah jam kerja     : ');readln (jk);

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

writeln;

gj:= jk*uk;

writeln ('[                 OUTPUT DATA                 ]');

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

writeln ('            DATA - GAJI - KARYAWAN             ');

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

writeln ('nomor induk karyawan : ',ni);

writeln ('nama karyawan        : ',nk);

writeln ('alamat karyawan      : ',ak);

writeln ('Gaji Bersih          : Rp. ',gj:8:2);

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

writeln;

writeln ('by M Irkham Mastur (irhamnaa latu)');

readln;

end.