Seputar laptop - Source Code Edit Data dalam Pascal

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

Berikut ini source code edit data memakai 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 perihal Source Code Edit Data dalam Pascal, supaya bermanfaat.

Sumber http://www.materi-it.com/