CONTOH PROGRAM POINTER (PASCAL)

uses crt;
type ptr =^data;
data = record
isi : string;
pre,
next : ptr;
end;
var baru,posisi,awal,akhir : ptr;

procedure tambah_belakang (elemen : string);
begin
new (baru);
baru^.isi :=elemen;
baru^.pre :=nil;
baru^.next :=nil;
if awal = nil then awal :=baru
else
begin
akhir^.next :=baru;
baru^.pre := akhir;
end;
akhir := baru;
akhir^.next :=nil;
end;

procedure baca_depan;
begin
posisi :=awal;
repeat
write (posisi^.isi);
posisi := posisi^.next;
until posisi = nil;
end;

procedure baca_belakang;
begin
posisi :=akhir;
repeat
write (posisi^.isi);
posisi :=posisi^.pre;
until posisi = nil;
end;


begin
clrscr;
tambah_belakang ('a');
tambah_belakang ('b');
tambah_belakang ('c');
tambah_belakang ('d');
writeln ('JIKA DIBACA DARI DEPAN ADALAH');
baca_depan;
readln;
writeln ('JIKA DIBACA DARI BELAKANG ADALAH');
baca_belakang;
readln;
end.