Source Code Cari Data dalam Pascal - Pencarian dalam data tertentu di dalam suatu aktivitas memang penting, berikut source code untuk mencari data tertentu.
Program Tambah Data dalam Pascal.
Program Tambah Data dalam Pascal.
Berikut ini source code cari data dengan memakai compiler dev-pascal :
program cari_data_tertentu; 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]; lagi: char; ketemu: boolean; begin assign(fmhs,'mhs.dat'); reset(fmhs); jml:= filesize(fmhs); lagi:='y'; while upcase(lagi)='Y' do begin clrscr; ketemu:= false; write('Masukan NPM 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 ketemu:= true; writeln('Nama Mahasiswa : ',rmhs.nama); writeln('Nilai Mahasiswa : ',rmhs.nilai:2:0); end; end; if not ketemu then writeln('Tidak nomor tersebut!!!'); writeln; write('Cari Data Lagi [Y/T] ? '); readln(lagi); end; close(fmhs); end.
Selanjutnya berikut Program Edit Data Mahasiswa dalam Pascal.
Sekian source code pascal perihal Source Code Cari Data dalam Pascal supaya bermanfaat.
Sumber http://www.materi-it.com/
Sekian source code pascal perihal Source Code Cari Data dalam Pascal supaya bermanfaat.
Komentar
Posting Komentar