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.
Program barang
program pertamaku;
type
databrg=record
namabrg:string[15];
unitbrg:array[1..13] of byte;
end;
var
jumlahbrg,i,j:byte;
totalunit,total1,total2,total3,totaltotal:word;
barang:array [1..50] of databrg;
begin
write('Jumlah barang');readln(jumlahbrg);
for i:=1 to jumlahbrg do
begin
writeln;
writeln('Barang ke',i:2);
with barang[i] do
begin
write('Nama barang=');readln(namabrg);
for j:=1 to 3 do
begin
write('Unit ukuran',j:2,'?');readln(unitbrg[j]);
end;
end;
end;
writeln;
writeln;
writeln('-----------------------------------------------------');
writeln(' unit');
writeln('-----------------------------------------------------');
writeln('Nama barang ukuran 1 ukuran 2 ukuran 3 total');
writeln('( kecil) (sedang) (besar) unit');
writeln('-----------------------------------------------------');
total1:=0;total2:=0;total3:=0;totaltotal:=0;
for i:=1 to jumlahbrg do
begin
with barang[i] do
begin
totalunit:=unitbrg[1]+unitbrg[2]+unitbrg[3];
total1:=total1+unitbrg[1];
total2:=total2+unitbrg[2];
total3:=total3+unitbrg[3];
totaltotal:=totaltotal+totalunit;
write(namabrg:15);
writeln(unitbrg[1]:7,unitbrg[2]:10,unitbrg[3]:10,totalunit:10);
end;
writeln;
writeln('***total ',total1:13,total2:13,total3:13);
readln;
end;
end.
