Free PASCAL

Tipe Data Pointer

Tipe data ini mengacu pada alamat alamat memori. sebuah variabel. Contoh bila saya memiliki variabel nama dengan tipe data string[20], string yang panjangnya 20 karakter. Isi dari variabel nama ini disimpan pada alamat tertentu dalam memori komputer, seperti 200868. Nah, tipe data pointer ini mengacu pada alamat memori tersebut. Cara pendefinisian dalam PASCAL :

var
   nama:string[20];
   pointer_nm:^string;

Penulisan diatas menunjukkan variabel nama dengan tipe string sepanjang 20 karakter dan variabel pointer_nm yang menyimpan alamat untuk tipe string. Perhatikan penggunaan tanda "caping" atau "topi" sebelum tipe string.

Berikut contoh aplikasi tipe data pointer dalam PASCAL :

program pointer1;

var
   nama:string[20];
   pointer_nm:^string;

begin
   {masukkan nama ke dalam variabel nama}
   write('masukkan nama : ');
   readln(nama);

   {menghubungkan nama dengan variabel pointer}
   pointer_nm:=@nama;

   {lihat isi masing-masing variabel}

   writeln('isi variabel nama : ',nama);

   {variabel pointer_nm tidak dapat di-read/write}
   {variabel pointer_nam hanya dapat dilihat nilainya}
   {untuk melihat nilainya gunakan tanda^ diakhir variabel}

   writeln('nilai variabel pointer : ',pointer_nm^);

end.

Jika dijalankan menjadi :

masukkan nama : TINTIN
isi variabel nama : TINTIN
nilai variabel pointer : TINTIN

Perhatikan contoh program PASCAL berikut yang menunjukkan perubahan data variabel nama dan pointer_nm.

program pointer1;

var
   nama:string[20];
   pointer_nm:^string;

begin
   {masukkan nama ke dalam variabel nama}
   write('masukkan nama : ');
   readln(nama);

   {menghubungkan nama dengan variabel pointer}
   pointer_nm:=@nama;

   {lihat isi masing-masing variabel}

   writeln('isi variabel nama : ',nama);
   writeln('nilai variabel pointer : ',pointer_nm^);

   {isi variabel nama diubah}
   nama:='ARI';
   writeln('nilai variabel pointer : ',pointer_nm^);

   {nilai variabel pointer diubah}
   pointer_nm^:='LALITA';
   writeln('isi variabel nama : ',nama);
end.

Jika dijalankan menjadi :

masukkan nama : TINTIN
isi variabel nama : TINTIN
nilai variabel pointer : TINTIN
nilai variabel pointer : ARI
isi variabel nama : LALITA