Source Code Edit Data dalam Pascal

Source Code Edit Data dalam Pascal - Edit data dalam suatu program tidak kalah pentingnya dalam mengoreksi data yang salah atau butuh perbaikan.

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

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

var
   fmhs: file of mhs;
   rmhs: mhs;
   i,jml: integer;
   nocari: string[7];
   ketemu: boolean;
   lagi: char;

   begin
      assign(fmhs,'mhs.dat');
      reset(fmhs);

      jml:= filesize(fmhs);
      lagi:='Y';
      while upcase(lagi)='Y' do
      begin
         ketemu:= false;
         clrscr;
            write('Nomor Pokok Mahasiswa yang di Cari : '); readln(nocari);
            writeln;
            for i:= 1 to jml do
               begin
                  seek(fmhs,i-1);
                  read(fmhs,rmhs);
                     if rmhs.npm=nocari then
                        begin
                           with rmhs do
                           begin
                           ketemu:= true;
                           writeln('Nomor Pokok Mahasiswa  : ',npm:7);
                           write('Koreksinya             : '); readln(npm);
                           writeln('Nama Mahasiswa         : ',nama);
                           write('Koreksinya             : '); readln(nama);
                           writeln('Nilai Mahasiswa        : ',nilai:2:0);
                           write('Koreksinya             : '); readln(nilai);
                        end;
               end;
                  seek(fmhs,i-1);
                  write(fmhs,rmhs);
               end;
                     if not ketemu then
                        writeln('Tidak NPM Tersebut!!!');
                        writeln;
                        write('ada lagi yang akan dikoreksi [Y/T] ? ');
                        readln(lagi);
            end;
         close(fmhs);
      end. 

Selanjutnya berikut Program Hapus Data Mahasiswa dalam Pascal

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