program gaji karyawan

Seorang pemilik perusahaan meminta kepada programmer perusahaannya, untuk membuat program penggajian karyawan.
Langkah-langkah penggunaan:
1.input NIP
2.input nama
3.input golongan (golongan 1-3) guna menentukan gaji pokok
4.input masa kerja
kurang lebih listing program seperti ini,

Program DataPegawai;
Uses Wincrt;
Type Pegawai = record
NIP       : String[9];
Nama      : String[50];
Golongan  : Char;
Jamkerja  : Real;
End;
Var
Data                 : Pegawai;
Gapok               : Real;
Insentif,Gaber    : Real;
Ul                    : Char;
Begin
  Repeat
    Clrscr;
    Writeln('Entry Data Pegawai PT. Punya gua');
    Writeln('==========================');
    Writeln;
    Write('NIP          : ');Readln(Data.NIP);
    Write('Nama         : ');Readln(Data.Nama);
    Write('Golongan     : ');Readln(Data.Golongan);
    Write('Jam Kerja    : ');Readln(Data.Jamkerja);
    Writeln;
    Writeln;
    Case Data.Golongan of
      '1'  : Gapok:=1000000;
      '2'  : Gapok:=1500000;
      '3'  : Gapok:=2000000;
      Else
        Gapok:=0;
    End;
 
    if Data.Jamkerja>200 then
      Insentif:=(Data.Jamkerja-200)*10000
    else
      Insentif:=0;
    Gaber:=Gapok+Insentif;
    Clrscr;
    Writeln('Laporan Gaji Pegawai');
    Writeln('PT. XYZ');
    Writeln;
    Writeln('============================================================================');
    Writeln('|NIP       | Nama                    | Golongan | Jam Kerja | Gaji         |');
    Writeln('============================================================================');
    Writeln('|',Data.NIP:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|');
    Writeln('============================================================================');
    Writeln;
    Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);
  Until Upcase(Ul) <> 'Y';
End.

 program Menghitung_Gaji_Karyawan; 
uses crt; 
var gapok, tanak , gatot: real;
n, golongan, status: integer; 
nama , gol : string;
begin
writeln ('Menghitung Gaji Karyawan'); writeln ('========================'); 
writeln ('Golongan : 1. III 2. IV 3. V '); 
writeln ('Status : 1. Menikah 2. Single '); writeln ('========================'); 
write ('Masukkan Nama Karyawan : '); 
read(nama); 
write ('Pilih Nomor Golongan : '); 
read(golongan); if (golongan = 1) then 
begin gapok := 2000000; 
gol := 'III'; end else if (golongan = 2) then 
begin gapok := 3000000; gol := 'IV'; end else if (golongan = 3) then 
begin gapok := 4000000; gol := 'V'; end else 
writeln('Nomor Golongan Salah'); 
write ('Pilih nomor Status : '); 
read(status);
 
if (status = 1 ) then 
begin writeln ('Masukkan jumlah anak: '); 
read(n); if (n > 2 ) then tanak := 2 *(10/100 * gapok) else 
tanak := n *(10/100 * gapok); end else 
tanak := 0; writeln ('========================'); 
writeln ('Nama Karyawan : ', nama); 
writeln ('Golongan : ', gol);
 
writeln ('Gaji Pokok : ', gapok:0:2); 
writeln ('Tunjangan Anak: ', tanak:0:2); 
gatot := gapok + tanak; 
writeln ('Total gaji : ', gatot:0:2); 
readln; readln;
end.

Demikian listing program gaji karyawan, semoga bermanfaat. Baca juga program penghitungan gaji karyawan.