Berikut source code program :
program pointer1;
uses crt;
type
Dmhs = ^Rmhs;
Rmhs = record
nm,nim,prd: string;end;
var
mhs: array [1..5] of Rmhs;
n, i : integer;
begin
clrscr;
write ('Masukkan banyak data : ');
readln (n);
writeln;
for i:= 1 to n do
begin
writeln('Masukkan Data ke-',i,'!');
write('Nama : ');
readln(mhs[i].nm);
write('NIM : ');
readln(mhs[i].nim);
write('Prodi : ');
readln(mhs[i].prd);
writeln;end;clrscr;
for i := 1 to n do
begin
writeln('Data ke-',i);
writeln('Nama : ',mhs[i].nm);
writeln('NIM : ',mhs[i].nim);
writeln('Prodi : ',mhs[i].prd);
writeln;
end;readkey;
end.
Output Program:
1. Tampilan saat program dijalankan
3. Tampilan hasil akhir
