Program Daftar Gaji Kariawan dengan Turbo Pascal

Hay kawan Anterater 175, selamat datang mungkin anda saat ini sedang mencari koding untuk  membuat Program daftar gaji kariawan dengan turbo pascal.
mungkin program ini masih dasarnya, saya juga baru belajar program pascal. dan juga ini sebagai latihan tugas kuliah saya.

contohnya akan seperti gambar di bawah ini,

Silahkan di kopas Kodingnya di bawah ini.
anda juga bisa edit-edit kodingnya.

program DataPegawai_Farid_E11110034;

Uses Wincrt;

Type Pegawai = record

NIK : String[9];

Nama : String[30];

Jabatan : Char;

jmlhadir : Real;

End;

Var

Data : Array [1..100] of Pegawai;

Gapok,Insentif,Gaber : Real;

Tot,Rata : Real;

Ul : Char;

i,n : Integer;

tal: real;

tunj :real;

har:real;

Begin

Repeat

Clrscr;

Write('Masukkan Jumlah Data Pegawai : ');Readln(n);

For i := 1 to n do

Begin

Clrscr;

Writeln('Entry Data Pegawai PT. ABC');

writeln('Ket.');

writeln('1. untuk Pengisian Jabatan mengunakan Nomor Jika 1. Manager | 2. Sekertaris | 3. Staff.');

Writeln('=======================================================================================');

Writeln;

writeln;

Writeln('Data Ke-',i);

Writeln;

Write('NIK : ');Readln(Data[i].NIK);

Write('Nama : ');Readln(Data[i].Nama);

Write('Jabatan : ');Readln(Data[i].Jabatan);

Write('Jumlah Hadir : ');Readln(Data[i].jmlhadir);

Writeln;

End;

Clrscr;

Writeln('Laporan Gaji Pegawai');

Writeln('PT. ABC');

writeln;

writeln('Periode : Januari 2014');

Writeln;

Writeln('===========================================================================================================');

Writeln('|NO. |   NIK   | Nama Karyawan  | Jabatan   |Jumlah Kehadiran| Gaji Pokok|Tunj |  Premi Hadir  |   Total  |');

Writeln('===========================================================================================================');

Tot:=0;

For i := 1 to n do

Begin

Case Data[i].Jabatan of

'1'     : Gapok:=2000000;

'2'     : Gapok:=1500000;

'3'     : Gapok:=1000000;

Else

Gapok:=0;

End;

if Data[i].jmlhadir>10 then

Insentif:=(Data[i].jmlhadir-10)*10000

else

Insentif:=0;

Gaber:=Gapok+Insentif;

tunj:=0.25/Gaber;

har:=0.01/Gaber;

Tot:=Tot+Gaber;

Writeln('|',i:4,'|',Data[i].NIK:10,'|',Data[i].Nama:25,'|',Data[i].Jabatan:10,'|',Data[i].jmlhadir:10:0,

'|',Gaber:13:0,'|',tunj:6:0,'|',har:10:0,'|',tot:10:0,'|');

End;

Rata:=Tot/n;

Writeln('================================================================================================================');

Writeln('Total Gaji Keseluruhan : Rp.',Tot:12:0);

Writeln('Rata Gaji Pegawai : Rp.',Rata:12:0);

Writeln;

writeln;

writeln('                                                                                              ..............2014');

writeln('                                                                                                General Manager ');

writeln;

writeln;

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

Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);

Until Upcase(Ul)<>'Y';

End.