Source Code Tampil Data dalam Pascal

Source Code Tampil Data dalam Pascal - Program berikut ini lanjutan dari Program Tambah Data Mahasiswa dalam Pascal yang membahas tentang dasar untuk menampilkan data dalam pascal.

Biasanya data yang di panggil berupa database berbentuk file berextensi .dat.

Berikut ini source code tampil data menggunakan compiler dev-pascal :

program tampil_data;
uses crt;
type
   mhs=record
      npm: string[7];
      nama: string[25];
      nilai: real;
   end;

var
   fmhs: file of mhs;
   rmhs: mhs;

begin
   assign(fmhs,'mhs.dat');
   reset(fmhs);
   clrscr;
   writeln('-------------------------------------------------------------');
   writeln('NPM                    Nama Mahasiswa                   Nilai');
   writeln('-------------------------------------------------------------');
      while not eof (fmhs) do
      begin
         read(fmhs,rmhs);
         with rmhs do
            writeln(npm:7,nama:25,nilai:29:0);
      end;
   writeln('-------------------------------------------------------------');
   close(fmhs);
   readln;
end.

Untuk source code berikut :

assign(fmhs,'mhs.dat');

Source di atas merupakan code untuk mencari data file .dat yang sebelumnya digunakan untuk menyimpan data dalam Pascal, sebaiknya disimpan dalam satu folder dengan program.

Baca selanjutnya untuk Program Cari Data Mahasiswa dalam Pascal

Sekian artikel tentang Source Code Tampil Data dalam Pascal, semoga bermanfaat.