Contoh program pointer pada pascal

 #Contoh Program Pointer Pada Pascal

• Input
• Proses
• Output

a. Tampilan saat program dijalankan

(gambar 1)

b. Tampilan saat menginput jumlah data

(gambar 2)

c. Tampilan saat menekan ENTER

(gambar 3)

 Source Code

3.      uses crt; 4.        5.      var 6.      x : Pointer; 7.      y : ^Byte; 8.      r : array [0..100] of Byte; 9.      i : Byte; 10.  n : integer; 11.  begin 12.  clrscr; 13.  writeln('#######################'); 14.  writeln('| Pointer Tak Bertipe |'); 15.  writeln('#######################'); 16.  writeln; 17.  write('Masukkan Jumlah Data : '); readln(n); 18.  writeln; 19.  writeln; 20.    21.  GetMem(x, 20); 22.  y:= x; 23.  for i := 0 to n do 24.  begin 25.  r[i] := n - i; 26.  y^ := n - i; 27.    28.  inc(y); 29.  end; 30.  y:= x; 31.  for i := 0 to n do 32.  begin 33.  writeln('###############################'); 34.  write('  r[ ', i ,' ] = ', r[i], ' ; '); 35.  writeln('  p^ ke-', i ,' = ', y^); 36.  writeln('###############################'); 37.  inc(y); 38.  end; 39.  readln; 40.  end.