uses wincrt;
type toko_buku=record
id:real;
jumlah:byte;
Judul, pengarang, penerbit:string;
tahun:integer;
end;
book=array[1..30] of toko_buku;
var buku:book;
i,n:byte;
ulang:char;
c:integer;
begin
ulang:='y';
while ulang='y'do
begin
inc(n);
writeln('Masukan Data Buku ke: ',n);
write ('Kode Buku ==>');readln(buku[n].id);
write ('Judul Buku ==>');readln(buku[n].judul);
write ('Pengarang ==>');readln(buku[n].pengarang);
write ('Penerbit ==>');readln(buku[n].penerbit);
write ('Tahun ==>');readln(buku[n].tahun);
writeln; write('Masukan data buku lagi?<y/t>'); readln(ulang);writeln;
end;
writeln('mengisi stok');
for i:=1 to n do
begin
write('Judul ',buku[i].judul,' sebanyak? ');
readln(c); buku[i].jumlah:=c;
end;
writeln;
writeln('========================Data Buku==============================');
writeln('____________________________________________________________________');
writeln('No | Kode | Judul Buku | Pengarang | Penerbit | Tahun | Banyak Buku ');
writeln('_____________________________________________________________________');
for i:=1 to n do with buku[i] do
writeln(i:2,' |', id:6:0,' |',judul:14,' |', Pengarang:12, ' |',Penerbit:10, ' |',Tahun:7, ' |',Jumlah:6);
writeln('________________________________________________________________________');
end.
end.
Download Syntaxnya Disini : Source Code