Contoh Program pada File

File itu sendiri adalah sekumpulann komponen byte-byte yang tersimpan didalam media penyimpanan.
Contoh Algoritma nya,

program tambah_data;

uses crt;

type

   mhs=record

      nim: string[9];

      nama: string[25];

      nilai: real;

   end;

var

   fmhs: file of mhs;

   rmhs: mhs;

   lagi: char;

begin

   assign(fmhs,'kita.txt');

   {$I-}

   reset(fmhs);

   {$I+};

      if ioresult<>0 then rewrite(fmhs);

      seek(fmhs,filesize(fmhs));

   lagi:='y';

   while upcase(lagi)='Y' do

   begin

   clrscr;

      with rmhs do

      begin

         gotoxy(10,4) ;write('*** Data Mahasiswa ***');

         gotoxy(5,6)  ;write('NIM Mahasiswa   : ');

         gotoxy(5,8)  ;write('Nama Mahasiswa  : ');

         gotoxy(5,10) ;write('Nilai Mahasiswa : ');

         gotoxy(23,6) ;readln(nim);

         gotoxy(23,8) ;readln(nama);

         gotoxy(23,10);readln(nilai);

      end;

   write(fmhs,rmhs);

   gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');

   readln(lagi);

   end;

   close(fmhs);

end.

Output nya,

1. Menginput data pertama

 

 

2. Pertanyaan untuk menginput data kembali

 

3. Menginput 'Y'

 

4. Menginputkan data kembali

 

5. Muncul pertanyaan untuk menginput kan kembali

 

6. Menginputkan 'T'

 

7. Tampilan pada notepad

 

Terimakasih berbagi itu indah :)