Page 143 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Maka apabila nanti kita lakukan pemanggilan dengan mengetikkan
Write(Barang[i].nama),

data dari field yang tersimpan dalam record tersebut akan

ditampilkan.

Contoh program :
PROGRAM DATABASE;
Uses crt;
TYPE mahasiswa=record
nama: array[1..20] of string;
nim: array[1..20] of string;
alamat: array[1..20] of string;
ipk: array[1..20] of real;
end;

VAR data1: mahasiswa;

PROCEDURE data(var mhs:mahasiswa; mhs1:mahasiswi);
Var i,n,no:integer;
pilih,tekan:char;
Begin
write('Masukan jumlah mahasiswa : ');readln(n);
writeln;
for i:= 1 to n do
begin
writeln('Masukan data mahasiswa ke - ',i);
writeln;
write('Nama Mahasiswa : ');readln(mhs.nama[i]);
write('No. Mahasiswa : ');readln(mhs.nim[i]);
write('Alamat Mahasiswa : ');readln(mhs.alamat[i]);
write('IPK : ');readln(mhs.ipk[i]);
writeln;
end;
writeln;
writeln('DATA MAHASISWA');
writeln;
writeln('====================================================
======');
writeln('|','No':5,'Nama':20,'NIM':10,'Alamat':20,'IPK':10,'|':2);
writeln('====================================================
======');
for i:=1 to n do

writeln('|',i:5,mhs.nama[i]:20,mhs.nim[i]:10,mhs.alamat[i]:20,mhs.ipk[
i]:10:2, '|':2);