FILE PADA PASCAL

Berikut contoh program File menggunakan bahasa pascal yang telah saya buat :


1. Source Code

Uses Crt; Var JenisFile    : Text; Nm,ALmt,Telp: String; Tanya        : Char; Pil      : ShortInt; Begin Repeat ClrScr; Writeln; Writeln('          MENU UTAMA'); Writeln(' ============================='); Writeln(' | 1. Membuat File Data      |'); Writeln(' | 2. Memasukan Data         |'); Writeln(' | 3. Menampilkan Data       |'); Writeln(' | 0. Keluar                 |'); Writeln(' ============================='); Write('Menu pilihan : '); Readln(Pil); Case  Pil Of 1 : Begin Assign(JenisFile,'Alamat.dat'); ReWrite(JenisFile); Close(JenisFile); Writeln('File data berhasil dibuat !'); readln; End; 2 : Begin Assign(JenisFile,'Alamat.dat'); Append(JenisFile); Repeat ClrScr; Write(' Nama         : ');Readln(Nm); Write(' Alamat       : ');Readln(Almt); Write(' Telepon      : ');Readln(Telp); Writeln(JenisFile,Nm); Writeln(JenisFile,Almt); Writeln(JenisFile,Telp); Writeln; Write('Apakah ingin menginput lagi ? (Y/T): '); Tanya := Readkey; Until UpCase(Tanya) = 'T'; Close(JenisFile); Writeln('Data sudah dimasukkan !'); readln; End; 3 : Begin Assign(JenisFile,'Alamat.dat'); Reset(JenisFile); Repeat Readln(JenisFile,Nm); Readln(JenisFile,Almt); Readln(JenisFile,Telp); ClrScr; Writeln(' Nama         : ',Nm); Writeln(' ALamat       : ',ALmt); Writeln(' Telepon      : ',Telp); Writeln; If Nm = '' Then Tanya := 'T' Else Begin Write('Apakah ingin melihat data berikut (Y/T) : '); Tanya := ReadKey; End; Until UpCase(Tanya) = 'T'; Close(JenisFile); End; Else End; Until Pil=0; End.

LINKED LIST

LINKED LIST

Contoh program sederhana untuk Linked List antara lain sebagai berikut :

Source Code


  uses crt;

  type pointer=^typedata;

  TYPEDATA = RECORD

   NILAI : INTEGER;

   BERIKUTNYA : POINTER;

   end;

    var list :pointer;

  procedure mas_dep(var L : pointer; x : Integer);

  var baru : pointer;

 begin

  new(baru);

  baru^.Nilai:=x;

  baru^.Berikutnya:= nil;

  if L= nil then L:=baru

  else

  begin

  baru^.berikutnya :=L;

  L:= baru;

  end;

 end;

 procedure cetak (L:pointer);

 var bantu : pointer;

 begin

  bantu:= L;

  while bantu <> nil do

  begin

  write (bantu^.Nilai:3);

  Bantu:=bantu^.Berikutnya;

   end;

  end;

  var bil, bil2 : integer;

  JB : char;

  begin

  clrscr;

  new(list);

  list:=nil;

  jb:='Y';

  writeln;

  writeln('Masuk depan');

  while upcase(Jb)='Y' do

  begin

  writeln;

   write ('Masukkan bilangan : '); readln(bil);

   mas_dep(list,bil);

   write ('Lagi [Y/T]  : '); readln(Jb);

   end;

   cetak(list);

   writeln;

   readln;

   end.


OUTPUT