Program hampir 80% sama dengan program File Bertipe Pada Pemrograman Pascal , perbedaannya hanya ada bagian pembacaan data.
uses crt ;
type
mahasiswa = record
npm : string[8] ;
nama : string[30];
end;
var
rmhs : mahasiswa ;
fmhs : file of mahasiswa ;
i : byte;
begin
assign(fmhs,'D:mhs.dat') ;
{$I-} Reset(fmhs) ;
{$I+} if IOresult <> 0 then rewrite(fmhs) ;
clrscr ;
writeln ('Informasi Data Mahasiswa') ;
writeln ('--------------------------------');
seek(fmhs, 0) ;
i := 1 ;
while not eof(fmhs) do
begin
seek (fmhs, i-1) ;
read (fmhs, rmhs);
writeln (i:2, rmhs.npm:9,' ', rmhs.Nama) ;
inc(i) ;
end;
writeln ('--------------------------------');
readln;
end.
Pada File Bertipe Pada Pemrograman Pascal hampir sudah dibahas, tinggal pada bagian :
seek (fmhs, i-1) ;
read (fmhs, rmhs);
Pada bagian tersebut bertujuan untuk meletakkan posisi pointer pembacaan file pada indeks ke i, kemudian akan dibaca dengan perintah read.
Sedangkan untuk menampilkan ke layar dengan perintah di bawah ini :
writeln (i:2, rmhs.npm:9,' ', rmhs.Nama) ;
Demikianlah artikel menampilkan record file bertipe di pemrograman Pascal , mudah bukan?
Sumber : Mesran.Net
