Pointer

C++

LISTINGNYA..

/* program : ptr4.c */
#include <stdio.h>
main ()
{
static int tgl_lahir[] = {19, 9, 1994};
int *ptgl;
ptgl = tgl_lahir;
printf ("Nilai yang ditunjuk oleh ptgl = %d\n", *ptgl);
printf ("Nilai dari tgl_lahir[0] = %d\n", tgl_lahir[0]);

HASIL OUTPUTNYA

Pascal

LISTINGNYA...

Uses crt;
Type ptr = ^string;
Var
ptrnama, ptrkls, ptrnpm : ptr;
nama,kls,npm : string;
x,n : integer;
begin
clrscr;
writeln(‘data mahasiswa : ‘);
writeln(‘ ‘);
writeln(‘masukan angka : ‘);
readln (n);
for x := 1 to n do
begin
writeln(‘data ke ‘,x);
write(‘nama = ‘);
readln(nama);
write(‘kelas = ‘);
readln(kls);
write(‘npm = ‘);
readln(npm);
ptrnama := @nama;
ptrkls := @kls;
ptrnpm := @npm;
writeln(‘nama = ‘,ptrnama^);
writeln(‘kelas = ‘,ptrkls^);
writeln(‘npm = ‘,ptrnpm^);
end;
readln;
end.