POINTER PADA PASCAL dan C++
January 06, 2013PASCAL
LISTING:
Uses crt;
Type ptr = ^string;
Var
ptrnama, ptrkls, ptrhoby : ptr;
nama,kls,hoby : string;
x,n : integer;
begin
clrscr;
writeln('
PENDATAAN SISWA ');
writeln('________________________________________ ');
writeln('masukan jumlah siswa yang ingin didata : ');
readln (n);
writeln('=> ');
for x := 1 to n do
begin
writeln('data ke ',x);
write('nama = '); readln(nama);
write('kelas = ');readln(kls);
write('hoby = '); readln(hoby);
ptrnama := @nama;
ptrkls := @kls;
ptrhoby := @hoby;
writeln('nama = ',ptrnama^);
writeln('kelas = ',ptrkls^);
writeln('hoby = ',ptrhoby^);
writeln('=====================');
end;
readln;
end.
OUTPUT:
misalkan kita mendata 2 orang , yaitu
data 1:
nama andi
kelas 10
hoby melukis
data 2:
nama widia
kelas 11
hoby menyanyi
maka outputnya sebagai berikut!
C++
LISTING :
LISTING :
#include<conio.h>
#include<stdio.h>
void main()
{
int nilai[4],*penunjuk;
clrscr();
nilai[0]=100;
nilai[1]=175;
nilai[2]=250;
nilai[3]=400;
penunjuk=&nilai[0];
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);
getch();
}
OUTPUT:
0 comments