konsep pemograman
pratikum ke 12ogram pascal
program pascal menggunakan pointer

list :

uses Crt;

var

x,y,z : longint;

lagi : char;

namak : string[20];



begin

lagi := 'y';

while (lagi = 'y') or (lagi = 'Y') do

begin

clrscr;

write('Siapa Nama Anda..?'); ReadLn(namak);

writeLn;

write('Hallo ',namak,', Coba kamu');

WriteLn(' masukan nilai x,y dan z ');

writeLn('pada operasi matematika ini.');

writeLn;

writeLn('Operasi matematika X^2 + y^2 + z =..... ');

write('masukan nilai x..= '); ReadLn(x);

write('masukan nilai y..= '); ReadLn(y);

write('masukan nilai z..= '); ReadLn(z);

writeLn;

writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);

writeLn;

write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');

readLn(lagi);

end;

end.

output :

logika : 


Pointer merupakan variabel khusus yang berisi suatu address (alamat) di lokasi lain didalam memory. Suatu variabel yang points(menunjuk) ke sesuatu sehingga disebut pointer.
Ada dua macam pointer:
-typed(tertentu): merupakan pointer yang menunjuk pada tipe data tertentu pada variable.
-generic(umum): merupakan pointer yang tidak menunjuk pada tipe data tertentu pada variable.
 


Var P : pointer;
Dipergunakan sebagai buffer sementara (tidak permanen). Sehingga kita bisa melepasnya untuk suatu saat tidak diperlukan. Untuk itu pointer sangat bagus karena sifatnya yang dinamis. Tetapi, generic pointer tidak sama dengan typed pointer. Typed pointer menggunakan “new” untuk menampung memori dan “dispose” untuk melepasnya.  Generic pointer menggunakan “getmem” untuk mendapatkan memori dan “freemem” untuk melepasnya. Pada pointer dengan tipe tertentu, program Pascal mengetahui ukuran dari memori yang harus dilaokasikan, sedangkan tipe umum (generic pointer) Pascal tidak bisa, karena Pascal tidak mengetahui variabel apa yang akan dipakai. Sehingga dengan getmem kita perlu untuk menentukan berapa besar memori yang akan kita alokasikan. Ukuran terbesar adalah 65532 bytes (hampir 64K).