File Bertipe Pada Pemrograman Pascal

Menampilkan Record File Bertipe di Pemrograman Pascal

Pascal menyediakan tiga jenis file diantaranya file bertipe, file teks, file tak bertipe. File yang akan dibahas di sini yaitu file bertipe yang mampu menyimpan record record data.

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.