Senin, 04 Mei 2015

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 :)