contoh program pascal array

 uses wincrt;
type
databuku=record
judul_buku :string;
kode :char;
pengarang :string;
edisi:integer;
tahun_terbit:integer;
penerbit:string;
end;
var
perpustakaan:array[1..20] of databuku;
jumlah,i,j:byte;
dummy:databuku;
begin
write('Masukan Jumlah Buku =');readln(jumlah);
for i:=1 to jumlah do
with perpustakaan[i] do
begin
writeln;
write('Masukan Judul Buku ke-',i:2,':');readln(judul_buku);
write('masukan kode Buku ke-',i:2,':');readln(kode);
write('masukan pengarang buku ke-',i:2,':');readln(pengarang);
write('masukan edisi buku ke-',i:2,':');readln(edisi);
write('masukan tahun terbit buku ke-',i:2,':');readln(tahun_terbit);
write('masukan penerbit buku ke-',i:2,':');readln(penerbit);
end;
for i:=1 to jumlah-i do
for j:=1 to jumlah-j do
if perpustakaan[j].judul_buku>perpustakaan[j+1].judul_buku then
begin
dummy:=perpustakaan[j];
perpustakaan[j]:=perpustakaan[j+1];
perpustakaan[j+1]:=dummy
end;
writeln;
writeln('================DAFTAR BUKU===============');
writeln('==========================================');
writeln('Judul Buku____Kode Buku____Pengarang Buku____Edisi____Tahun Terbit____Penerbit');
writeln('_______________________________________________________________________________');
for i:=1 to jumlah do
begin
with perpustakaan [i] do
writeln(judul_buku:10,kode:10,pengarang:15,Edisi:13,tahun_terbit:10,penerbit:17);
end;
writeln('_______________________________________________________________________________');
end.
Kurang Relevan? Coba Pencarian Lain!
B