Linked List

program linked_list;

uses crt;
type ptrdata = ^recorddata;
     recorddata = record
        item : string;
        berikut : ptrdata
     end;

var pd : ptrdata;
    elem : string;


procedure node_baru(var baru: ptrdata; elemen: string);
var ps: ptrdata;
begin
new(ps);
new(baru);
         baru^.item := elemen;
         baru^.berikut := nil;

end;


Procedure tambah_depan(Var depan : ptrData; elemen : string);
Var  ps :ptrdata;
Begin
new(ps);
new(depan);
                node_baru(ps,elemen);
        ps^.berikut  :=  pd;
        pd:=ps ;
End;


begin
clrscr;
 new(pd);
 elem := 'Nama          : Katon Galih Wicaksono';
        tambah_depan(pd, elem);
        writeln(pd^.item);

 elem := 'NIM           : J1F114028';
        tambah_depan(pd, elem);
        writeln(pd^.item);
        writeln;

 elem := 'Nama          : Ketut Mega Fortuna';
        tambah_depan(pd, elem);
        writeln(pd^.item);

  elem := 'NIM           : J1F114029';
        tambah_depan(pd, elem);
        writeln(pd^.item);

readln;
end.


Berikut Outputnya :