Pointer

Berikut merupakan contoh dari penerapan pointer pada bahasa pascal

Berikut merupakan contoh program sederhanannya

Program pointer; uses crt; var     nama, nim : string;         shift, no : integer;         a, b : ^string;         c, d : ^integer; begin clrscr; new(a); new(b); new(c); new(d);         nama :='Ardiansyah Sukma Wijaya';         nim  :='J1F114073';         shift:= 1;         no   := 14;         a^:= nama;         b^:= nim;         c^:= shift;         d^:= no; clrscr;         writeln('Nama    : ',a^);         writeln('NIM     : ',b^);         writeln('Shift   : ',c^);         writeln('No Meja : ',d^); readln; end.