Seputar laptop - Source Code Hapus Data dalam Pascal

Source Code Hapus Data dalam Pascal - Hapus data dalam jadwal berikut berupa hapus data dengan memakai metode record.

Penghapusan data dalam record artinya dalam menghapus tidak terlebih dulu di cari data tersebut menurut ID, hanya berupa pembatalan data menurut batas record.

Berikut ini source code hapus data memakai compiler dev-pascal :

program hapus_data; uses crt; type    mhs = record       npm: string[7];       nama: string[25];       nilai: real;    end;  var    fmhs: file of mhs;    rmhs: mhs;    nourut,i,jml: integer;    nocari: string[7];    ketemu: boolean;    lagi,ya: char;     begin      assign(fmhs,'mhs.dat');      reset(fmhs);      lagi:= 'Y';      while upcase(lagi)='Y' do       begin      clrscr;         jml:= filesize(fmhs);          write('Nomor Record yang di Hapus (1  -',jml:3,') ? ');         readln(nourut);         writeln;          if (nourut < 1) or (nourut > jml) then            writeln('Tidak Ada No Record ini !!!')         else         begin            for i:= nourut to jml do            begin               seek(fmhs,i-1);               read(fmhs,rmhs);               with rmhs do               begin               writeln('Nama Mahasiswa   : ',rmhs.nama);               writeln('Nilai Mahasiswa  : ',rmhs.nilai:6:2);               end;            end;         write('Yakin Data ini Akan di Hapus [Y/T] ? '); readln(ya);         if upcase(ya) = 'Y' then            begin               seek(fmhs,nourut-1);               truncate(fmhs);            end;      end;      writeln;       write('ada lagi yang akan dicari [Y/T] ? '); readln(lagi);    end;    close(fmhs); end. 

Sekian artikel wacana Source Code Hapus Data dalam Pascal, agar bermanfaat.

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