Pemprograman Multi List dengan Turbo Pascal

berikut adalah source code program...

uses crt;
type
filebio = record
npm:string[8];
nirm:string[3];
nama:string[15];
alamat:string[12];
end;
filenirm = record
nirm2:string[3];
masuk:string[10];
akhir:string[10];
end;
var
biodata :array[1..10] of filebio;
tglnirm :array[1..10] of filenirm;
isi:text;
a,x,y:integer;

Procedure tbio;
begin
a:=5;
assign(isi,’biodata2.dat’);
reset(isi);
writeln(‘Biodata’);
writeln(‘————————————————————’);
writeln(‘*    Npm    *   Nirm   *      Nama        *      Alamat    *’);
writeln(‘————————————————————’);
for x:=1 to 10 do
begin
readln(isi,biodata[x].npm);
readln(isi,biodata[x].nirm);
readln(isi,biodata[x].nama);
readln(isi,biodata[x].alamat);
write(‘*  ‘,biodata[x].npm,’    ‘,biodata[x].nirm,’        ‘,biodata[x].nama,’        ‘,biodata[x].alamat:5);
gotoxy(60,a);
writeln(‘*’);
a:=a+1;
end;
close(isi);
writeln(‘————————————————————’);
readln;
end;

procedure tnirm;
begin
assign(isi,’filenirm.dat’);
reset(isi);
writeln(‘File Nirm’);
writeln(‘—————————————————–’);
writeln(‘* Nirm   *    Tanggal Masuk    *    Tanggal Akhir   *’);
writeln(‘—————————————————–’);
for x := 1 to 10 do
begin
readln(isi,tglnirm[x].nirm2);
readln(isi,tglnirm[x].masuk);
readln(isi,tglnirm[x].akhir);
writeln(‘*  ‘,tglnirm[x].nirm2,’   *     ‘,tglnirm[x].masuk,’      *     ‘,tglnirm[x].akhir,’     *’);
end;
writeln(‘—————————————————–’);
close(isi);
readln;
end;

procedure daftarsiswa;
begin
a:=5;
gotoxy(1,30);writeln(‘Daftar Siswa’);
writeln(‘———————————————————————–’);
writeln(‘* No *    Npm   * Nirm *       Nama       *  Tgl masuk  *  Tgl Akhir  *’);
writeln(‘———————————————————————–’);
for x := 01 to 10 do
begin
write(‘  ‘,x,’    ‘,biodata[x].npm,’   ‘,biodata[x].nirm,’    ‘,biodata[x].nama,’   ‘,’              ‘,’   ‘,’    ‘);
for y := 01 to 10 do
if biodata[x].nirm = tglnirm[y].nirm2 then
begin
gotoxy(46,a);
writeln(tglnirm[y].masuk);
gotoxy(60,a);
writeln(tglnirm[y].akhir);
a:=a+1;
end;
end;
writeln(‘———————————————————————–’);
readln;
end;

begin
clrscr;tbio;
clrscr;tnirm;
clrscr;daftarsiswa;
end.

Berikut ini output/tampilan program

File Biodata Mahasiswa

 File NIRM

 Hasil Akhir

sumber: http://nickoprasetioo.blogspot.com

Algoritma Update Data Sequential

Berikut ini adalah flowchat atau algoritma dari cara mengupdate data secara sequential.

PENJELASAN:

1. Pertama adalah menginput data dari keyboard.

Variable yang dipakai sebagai input adalah :

NMS : variable nama

NPMS : variable npm

KLS : variable kelas

2. Membaca record dari file 01.

Variable yang digunakan untuk menampung data dari file ini adalah :

NM : variable nama

NPM  : variable npm

KL  : variable kelas

3. Memeriksa isi record, jika isinya sama dengan /* maka proses berakhir(EOF). jika tidak lanjut ke proses berikutnya.

4. Memindahkan record dari file 01 yang tersimpan didalam variable NM, NMP,KL ke variable penampung untuk file 02.

Variable penampung tersebut adalah:

NMO : variable nama

NPMO  : variable npm

KLO: variable kelas

5. Memindahkan data di variable penampung ke dalam file file 02

6. Memeriksa isi variable NM, jika isi NM tidak sama dengan ‘ALDO; maka proses kembali ke langka 2 untuk membaca record selanjutnya.

7. Memindahkan data yang akan disisipkan ke variable penampung untuk file02. Data yang akan disisipkan ini tersimpan didalam variable NMS, NPMS, KLS.

8. Memindahkan data didalam variable penampung ke dalam file file01

9. Kembali ke langkah 2 untuk membaca data berikutnya.