program recordBuku;
uses wincrt;
const
jum_maks=20;
type
recbuku= record
kode_Buku :string[5];
judul_Buku :string[15];
pengarang :string[15];
penerbit :string[15];
thn_terbit :string[20];
end;
tabelbuku= array[1..jum_maks] of RecBuku;
var
DafBuku:TabelBuku;
jumdata:integer;
procedure inputBuku (var DafBuku:TabelBuku;
var jumData:integer);
var
indeks : integer;
Begin
clrscr;
write ('jumlah data(maks,20)=');
readln (jumData);
for indeks :=1 to jumData do
with DafBuku [indeks] do
begin
writeln ('data buku',indeks,':');
write ('kode buku :');readln (kode_Buku);
write ('judul Buku :');readln (judul_Buku);
write ('pengarang :');readln (pengarang);
write ('penerbit :');readln (penerbit);
write ('thn Terbit :');readln (thn_Terbit);
writeln;
End;
end;
procedure infoBuku (var dafBuku:tabelBuku;
var jumData:integer);
var
indeks:integer;
begin
clrscr;
writeln ('KODE BUKU':5,'JUDUL BUKU':14,'PENGARANG':17,'PENERBIT':17,'THN TERBIT':20);
for indeks:=1 to jumData do
with dafBuku[indeks]do
writeln(Kode_Buku:1,Judul_Buku:21,Pengarang:19,Penerbit:15,Thn_Terbit:14);
end;
begin
inputBuku(DafBuku,JumData);
InfoBuku(DafBuku,JumData);
readln;
end.
