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.
- Output
Tidak ada komentar:
Posting Komentar