Berikut merupakan program file bertipe pada pemrograman Pascal
uses crt ;
type
mahasiswa = record
npm : string[8] ;
nama : string[30];
end;
var
rmhs : mahasiswa ;
fmhs : file of mahasiswa ;
mad : char ;
begin
assign(fmhs,'mhs.dat') ;
{$I-} Reset(fmhs) ;
{$I+} if IOresult <> 0 then rewrite(fmhs) ;
mad :='Y' ;
while upcase(mad)='Y' do
begin
Clrscr ;
writeln ('Input Data Mahasiswa') ;
writeln ('--------------------------------');
write ('NPM : ') ; readln(rmhs.npm) ;
write ('Nama : ') ; readln(rmhs.nama) ;
writeln ('--------------------------------')
seek(fmhs, filesize(fmhs)) ;
write(fmhs, rmhs) ;
write ('Masih Input Lagi : ') ; readln(mad);
end;
end.
PEMBAHASAN :
1. Bagian untuk mendefinisikan tipe mahasiswa sebagai suatu record
type
mahasiswa = record
npm : string[8] ;
nama : string[30];
end;
2. Bagian untuk mendefinisikan variabel, dibutuhkan min 2 variabel, record mahasiswa dan file mahasiswa.
var
rmhs : mahasiswa ;
fmhs : file of mahasiswa ;
mad : char ;
3. Untuk membuka file mahasiswa
assign(fmhs,'mhs.dat') ;
{$I-} Reset(fmhs) ;
{$I+} if IOresult <> 0 then rewrite(fmhs) ;
4. Untuk melakukan perulangan selagi data variabel mad berupa nilai Y yang artinya ada data
mad :='Y' ;
while upcase(mad)='Y' do
begin
5. Bagian untuk menginput data mahasiswa
writeln ('Input Data Mahasiswa') ;
writeln ('--------------------------------');
write ('NPM : ') ; readln(rmhs.npm) ;
write ('Nama : ') ; readln(rmhs.nama) ;
writeln ('--------------------------------')
6. Bagian untuk menyimpan record mahasiswa ke dalam file mahasiswa
seek(fmhs, filesize(fmhs)) ;
write(fmhs, rmhs) ;
7. Bagian untuk melakukan perulangan selagi data yang diinput Y
write ('Masih Input Lagi : ') ; readln(mad);
Demikianlah pembahasan program file bertipe pada pemrograman Pascal, semoga anda paham dan semakin serius belajar bahasa pemrograman pascal.
Tag : File bertipe pada pemrograman Pascal, belajar bahasa pemrograman, bahasa pemrograman pascal, tempat download program
Bila bermanfaat silahkan share File Bertipe Pada Pemrograman Pascal ini dengan teman anda, Terima kasih sebelumnya
Sumber : Mesran.Net
