Arya's Blog

Menghitung gaji pokok

 
type
tgl=record
hari:1..31;
bulan:1..12;
tahun:word;
end;
Alm=record
jalan:string [35];
kota:string [25];
end;
GajiPeg=record
GajiPokok,tunjangan,lembur:real;
end;
pegawai=record
nama:string [40];
tglMasuk:Tgl;
Alamat:Alm;
Gaji:GajiPeg;
end;

var
DataPegawai:pegawai;
Totalgaji:real;
begin
DataPegawai.nama:='Badu';
DataPegawai.tglMasuk.Hari:=15;
DataPegawai.tglMasuk.Bulan:=3;
DataPegawai.tglMasuk.Tahun:=1980;
DataPegawai.Alamat.jalan:='Gang Buntu 22';
DataPegawai.Alamat.kota:='Purworejo';
DataPegawai.Gaji.GajiPokok:=75000;
DataPegawai.Gaji.tunjangan:=25000;
DataPegawai.Gaji.lembur:=10000;
with DataPegawai do
begin
writeln ('nama pegawai',nama);
with tglMasuk do
writeln ('tanggal masuk= ',hari:2,'-',bulan:2,'-',tahun:4);
with Alamat do
begin
writeln ('alamat= ',jalan);
writeln ('      :',kota);
end;
with gaji do
begin
totalgaji:=gajipokok+tunjangan+lembur;
writeln;
writeln('gaji pokok:Rp',GajiPokok:6:0);
writeln('tunjangan:Rp',Tunjangan:6:0);
writeln('lembur:Rp',lembur:6:0);
writeln('**total:Rp',TotalGaji:6:0);
readln;
end;
end;
end.