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