Contoh Program Gaji Karyawan Pascal

Kali ini saya akan membahas mengenai cara membuat Program Karyawan yang sederhana menggunakan Array. Saya harap nanti kalian bisa mengembang...

Kali ini saya akan membahas mengenai cara membuat Program Karyawan yang sederhana menggunakan Array. Saya harap nanti kalian bisa mengembangkan Program ini dengan ide-ide kreatif agar Program ini bisa bermanfaat secara maksimal. Oke, kita langsung saja menuju TKP....yuuukkzz

Output Programnya kurang lebih seperti ini :

Source Codenya seperti ini nih....monggo di kenyot :p



Program Gaji_Karyawan;
{Created by Reyditz Tya}
Uses Crt;
Var
NIK : array[1..20] of string[15];
Nama : array[1..20] of string[25];
Status : array[1..20] of char;

banyak,i,Jk : integer;
Tjg,Pjk,Gaber,Gapok : real;

Begin
ClrScr;
Write('Isi berapa data array yang diperlukan :');readln(banyak);
For i := 1 to banyak Do
Begin
Write('NIK =');readln(NIK[i]);
Write('Nama =');readln(Nama[i]);
Write('Status=');readln(Status[i]);
Write('Gaji Pokok =');readln(Gapok);
writeln('=================================');
End;
Tjg:=0.1*Gapok;
Pjk:=0.3*Gapok;
Gaber:=(Gapok+Tjg)-Pjk;

{cetak varibel array}
For i:= 1 to banyak Do
Begin
writeln('=================================');
Writeln('Nama Karyawan = ',Nama[i]);
Writeln('tunjangan Jabatan = ',Tjg:0:2);
Writeln('Pajak = ',Pjk:0:2);
Writeln('Gaji Bersih = ',Gaber:0:2);
writeln;
writeln;
writeln('new-funday.blogspot.com');
End;

readln;
End.



Usahakan Program diatas kalian ketik secara manual tanpa Copas untuk melatih logika dan cara membaca program dari atas ke bawah. Saya harap kalian bisa mengerti setiap baris Program diatas. Jika ada yang kurang jelas, kalian bisa menanyakan pada kolom komentar.