syntax program yang menggunakan array da record
type barang:recoard
kode,nama:string;
harga:real;
ket:byte;
end;
larik barang=array [1..20]of barang;
var barang:larik barang;
i,n,x:byte;
lagi:char;
begin
lagi:='y';
while lagi='y' do
begin
inc(n);
writeln('mengisi barang ke',n);
write('unit barang ==>');readln(bar[n].kode);
write('nama barang ==>');readln(bar[n].nama);
write('harga ==>');readln(bar[n].harga);writeln;
write('mau masukkan barang lagi?(Y/N)');readln (lagi);
end;
{transaksi}
writeln ('mengisi kepemilikan');
begin
i:=1;
repeat
writeln(;mempunyai', bar[i].nama,'sebanyak?');
readln(x);bar[i].ket:=x;
i:=i+1;
until
i>n;
end;
{cetak}
writeln ('DAFTAR PROPERTI PERUSAHAAN PEMBANGUNAN');
writeln ('ASET PERUSAHAAN');
writeln ('========================================');
writeln (' No Unit Nama Barang Harga jumlah ');
writeln('=========================================');
for i:=1 to n do
with br [i] do
writeln( no:3,unit:5,nama:10,harga:8,jumlah:15);
writeln ('========================================');
writeln ('silahkan cek kembali barang yang terdaftar sebelumnya');
writeln ('dicatat kedalam buku properti kantor');writeln;
writeln ('ARI SETIANINGSIH');
writeln ( 'NIM : 3105111182');
end.
