Link List Pada Delphi

Pada postingan sebelumnya uda di jelaskan apa itu Link List pada pascal
Sekarang gue bakal ngasih kode listingpada delphi

Langsung aja ya berikut source code nya :



program LiFo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
      tipedata = ^ptipedata ;
      ptipedata = record
        nilai:integer;
        next:tipedata;
      end;

      var awal,akhir,data,data1 : tipedata;
      I,n,k :integer;




procedure tambahlifo (n:integer);
begin
  new (data);
  data^.nilai:=n;
  data^.next:=awal;
  if (awal=nil) then
  akhir :=data;
  awal:=data;
end;

 procedure input ();
 begin
  write ('berapa banyak data nilai ? ');
  readln (n);
    for  I := 1 to n do
    begin
      write ('data ke-',I,': ');
      readln (k);
      tambahlifo(k);

    end;
 end;

procedure tampil ;
begin
  writeln('data awal=',awal^.nilai);
  writeln('data akhir=',akhir^.nilai);
   write('LIFO = ');
  while data <> nil do
  begin
    write(data^.nilai,'');
    data:=data^.next;
  end;
end;

procedure hapus;
begin
  while awal<>nil do
  begin
    data:=awal;
    awal:=data^.next;
    dispose(data);
  end;
end;


begin
awal:=nil;
akhir:=nil;
input;
writeln;
tampil;
hapus;
readln;
end.

Dan hasil outputnya :