LATIHAN :: RECORD AND ARRAY ( PASCAL )

• PASCAL

Program DATA_BUKU;
type
TBuku = record
Judul : string[10];
Quantity : integer;
harga :integer;
Jumlah : array[1..3] of LongInt;
end;
TKumpulanBuku = array [1..MAX] of TBuku;
Jumlah = array[1..3] of longInt;
var
A:TKumpulanBuku;
i,N :integer;
HA : integer;

begin
clrscr;
writeln;
writeln(' =========================================================');
writeln ('                  PROGRAM DATA BUKU    ');
writeln(' =========================================================');
writeln;
write ('    Masukkan jumlah buku yang akan diisikan : ');readln(N);
writeln;

writeln('    Masukkan data');
writeln('=========================================================');
for i:=1 to N do begin
writeln ('   Data Buku ke- ',i);
write ('     Judul : '); readln (A[i].Judul);
write ('     Quantity : '); readln (A[i].Quantity);
write ('     Harga@ : '); readln (A[i].harga);
writeln;
writeln('=========================================================');
writeln;
end;
writeln;
writeln;
Clrscr;
writeln ('                          DAFTAR DATA BUKU');
writeln ('============================================================================');
writeln (' Judul':10, '':2, 'Quantity':10, '':2, 'Harga@':8, '':2, 'Jumlah_Harga');
writeln ('============================================================================');
for i:=1 to N do begin
with A[i] do begin
HA := Quantity*harga;
writeln (Judul:10, '':2, Quantity:10, '':2, harga:8, '':2, HA:2);
end;
writeln;
end;
writeln;
writeln('=============================================================================');
end.

• HASIL

---

Artikel Terkait: