gistfile1.txt

program MengolahDataBuku;
{I.S.: user memasukan data buku}
{F.S.: menampilka data buku yang sudah terurut}
uses
crt, sysutils;
const
  MaksBuku = 20;
  nama_file = 'E:\DataMahasiswa\Tugas\Alpro\file_test\data_buku.txt';
type
  DataBuku = record
    KodeBuku,NamaBuku : string;
    Tahun, Pengarang  : string;
  end;
  Buku = array[1..MaksBuku] of DataBuku;
var
  BK     : Buku;
  N,Menu : integer; //banyaknya data buku
  NP,KS  : string;  //NP : Nama Pengguna, KS : Kata Sandi
  NmP    : string;  //Nama Pengarang
  file_buku   : file of databuku;
  i:integer;

procedure isifile;
begin
  assignfile(file_buku, nama_file);
  rewrite(file_buku);
  readln(n);
  for i:=1 to N do
  begin
    write('kude buku : ');readln(bk[i].kodebuku);
    write('nama buku : ');readln(bk[i].Namabuku);
    write('tahun     : ');readln(bk[i].tahun);
    write('pengarang : ');readln(bk[i].pengarang);
    write(file_buku, bk[i]);
  end;

  close(file_buku);
end;

procedure tampil;
begin
  assignfile(file_buku, nama_file);
  reset(file_buku);
  while not eof(file_buku) do
  begin
    read(file_buku, Bk[i]);
    writeln('kude buku : ',bk[i].kodebuku);
    writeln('nama buku : ',bk[i].Namabuku);
    writeln('tahun     : ',bk[i].tahun);
    writeln('pengarang : ',bk[i].pengarang);
  end;
  close(file_buku);
end;

{procedure tambah;
begin
  assignfile(file_buku, nama_file);
  append(file_buku);
  readln(n);
  for i:=1 to N do
  begin
    write('kude buku : ');readln(bk[i].kodebuku);
    write('nama buku : ');readln(bk[i].Namabuku);
    write('tahun     : ');readln(bk[i].tahun);
    write('pengarang : ');readln(bk[i].pengarang);
    write(file_buku, bk[i]);
  end;

  close(file_buku);
end;  }

begin
  isifile;
  clrscr;
  tampil;
  //clrscr;
  //tambah;
  readln;

end.