Linked List

Berikut ini merupakan contoh program pascal yang menggunakan linked list

Berikut merupakan source code untuk program di atas :
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    : Ardiansyah Sukma Wijaya';
        tambah_depan(pd, elem);
        writeln(pd^.item);

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

    elem := ' Nama    : Ardiansyah Sukma Wijaya';
        tambah_depan(pd, elem);
        writeln(pd^.item);

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

readln;
end.