program DataBuku;
const Nmaks = 30;
type
Buku = record
KodeBuku : string[5];
Judul : string[27];
pengarang : string[27];
jumlah : integer;
end;
var
TabBuku : array[1..Nmaks] of buku;
i, jumlah : integer;
input : integer;
lagi : char;
begin
i := 0;
repeat
i := i + 1;
writeln(‘Pilihan Kode Buku’);
writeln(‘1. C001’);
writeln(‘2. C002’);
writeln(‘3. C005’);
writeln(‘4. N001’);
writeln(‘5. NF001’);
write(‘Pilihan Kode : ‘); readln(input);
writeln;
case input of
1 : begin
TabBuku[i].KodeBuku := ‘C001’;
TabBuku[i].Judul := ‘Fisika Dasar’;
TabBuku[i].Pengarang := ‘Suprayogi’;
TabBuku[i].jumlah := 3;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
2 : begin
TabBuku[i].KodeBuku := ‘C002’;
TabBuku[i].Judul := ‘Algoritma Pemrograman’;
TabBuku[i].Pengarang := ‘Rinaldi Munir’;
TabBuku[i].Jumlah := 10;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
3 : begin
TabBuku[i].KodeBuku := ‘C005’;
TabBuku[i].Judul := ‘Microsoft Word’;
TabBuku[i].Pengarang := ‘Aldi Kusumah’;
TabBuku[i].Jumlah := 5;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
4 : begin
TabBuku[i].KodeBuku := ‘N001’;
TabBuku[i].Judul := ‘Harry Potter’;
TabBuku[i].Pengarang := ‘J.K. Rowling’;
TabBuku[i].Jumlah := 8;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
5 : begin
TabBuku[i].KodeBuku := ‘NF001’;
TabBuku[i].Judul := ‘Aplikasi Iklan’;
TabBuku[i].Pengarang := ‘Yanuar Iman’;
TabBuku[i].Jumlah := 5;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
else writeln(‘Pilihan Kode Buku Tidak Ada !!’);
end;
write(‘Input Data Buku Lagi (y/t)? : ‘); readln(lagi);
until (input>5) or (lagi = ‘t’);
jumlah := i; writeln;
if i = Nmaks then
writeln(‘Tabel penuh, kagak muat lagiii ….’);
writeln(‘ OUTPUT STRUKTUR DATA BUKU ‘);
writeln(‘…………………………………………………….’);
writeln(‘Kode Buku Judul Pengarang Jumlah ‘);
writeln(‘…………………………………………………….’);
for i:=1 to Jumlah do
writeln(TabBuku[i].KodeBuku:7,TabBuku[i].Judul:20,TabBuku[i].Pengarang:17,TabBuku[i].Jumlah:13);
readln;
end.

outputnnya akan seperti dibawah ini :