Program Pointer Tak Bertipe Pada Pada Pascal

• Source Code

uses crt;

type pointer=^string;

var

       p, q, r, s : pointer;

       nilai : String;

begin

clrscr;

nilai := 'ini adalah string nilai';

p := @nilai;

New(q);

New(s);

q^ := 'ini isi pointer q';

r := q; {r menunjuk ke yang ditunjuk q}

s^ := q^;

writeln('alamat pointer p = ', seg(p^):4,' : ', ofs(p^):4, ' isi pointer p = ', p^);

writeln('alamat pointer q = ', seg(q^):4,' : ', ofs(q^):4, ' isi  pointer q = ', q^);

writeln('alamat pointer r = ', seg(r^):4,' : ', ofs(r^):4, ' isi pointer r = ', r^);

writeln('alamat pointer s = ', seg(s^):4,' : ', ofs(s^):4, ' isi pointer s = ', s^);

readln;

end.

• Screenshoot

Semoga bermanfaat.