Teknik Informatika: 01/13/13

Program POINTER Pada Pascal dan Turbo C++

Program pointer Pascal

Uses crt;

Type ptr = ^string;

Var

ptrnama, ptrjur, ptrnim : ptr;

nama,jur,nim : string;

x,n : integer;

begin

clrscr;

writeln('========PENDATAAN MAHASISWA========');

writeln('');

write('Masukan angka : ');readln (n);

writeln('');

for x := 1 to n do

begin

writeln('Data ke : ',x);

writeln('');

write('Nama : '); readln(nama);

write('Jurusan : ');readln(jur);

write('NIM : '); readln(nim);

ptrnama := @nama;

ptrjur := @jur;

ptrnim := @nim;

writeln('_____________________');

writeln('Nama : ',ptrnama^);

writeln('Jurusan : ',ptrjur^);

writeln('NIM : ',ptrnim^);

writeln('_____________________');

end;

readln;

end.

Input dan Output

Program pointer Turbo C++

#include<stdio.h>

#include<conio.h>

void main()

{

int nilai[5],*penunjuk;

clrscr();

nilai[0]=100;

nilai[1]=200;

nilai[2]=300;

nilai[3]=400;

nilai[4]=500;

penunjuk=&nilai[0];

printf("=============ALAMAT MEMORI==============\n");

printf("________________________________________\n");

printf("Nilai%i ada di alamat memori %p\n",*penunjuk,penunjuk);

printf("Nilai%i ada di alamat memori %p\n",*(penunjuk+1),penunjuk+1);

printf("Nilai%i ada di alamat memori %p\n",*(penunjuk+2),penunjuk+2);

printf("Nilai%i ada di alamat memori %p\n",*(penunjuk+3),penunjuk+3);

printf("Nilai%i ada di alamat memori %p\n",*(penunjuk+4),penunjuk+4);

getch();

}