pointer

uses crt;
var p : ^integer;
    nilai : integer ;
    begin
    clrscr;
    nilai:=2013;
    p:=@nilai;
    writeln(p^);
    p^:=1717;
    writeln(nilai);
    readln;
    end.



Pembahasan:

Pada contoh program deklarasi ini, pertama-tama dideklarasikan

variabel p sebagai pointer yang bertipe integer. Dibuat sebuah variabel lagi

yang diberi nama nilai dan bertipe integer.

Variabel nilai diisi dengan nilai 2013. Kemudian variabel p

menunjuk alamat dari variabel nilai dengan operator @, sehingga variabel p

berisi nilai 2013, dan ditampilkan outputnya di layar. Kemudian variabel p

diberi nilai 1717, dan secara otomatis variabel nilai juga bernilai 1717 karena

sudah ditunjuk oleh variabel p. Kemudian isi dari variabel p yang baru dan

variabel nilai ditampilkan di layar.


out put 
2013
1717