PROGRAM POINTER PASCAL
uses crt;
type
ptrdata = ^segitiga;
segitiga = record
alas, tinggi : integer;
next : ptrdata;
end;
var
awal, akhir : ptrdata;
procedure tambah (a,t :
integer);
var
baru : ptrdata;
begin
new(baru);
baru^.alas:=a; baru^.tinggi:=t;
if awal=nil then
awal := baru
else
akhir^.next:=baru;
akhir:=baru;
akhir^.next:=nil;
end;
procedure tampil;
begin
akhir:=awal;
while akhir <> nil do
begin
writeln('alas = ',akhir^.alas,'
, ','tinggi = ',akhir^.tinggi,' ',
'luas =
',0.5*(akhir^.alas*akhir^.tinggi):0:2);writeln;
akhir := akhir^.next;
end; end;
begin
clrscr;
awal := nil;
akhir := nil;
writeln;
tambah (5,7);
tambah (4,8);
tambah (2,9);
tampil;
readln;
end.
Listing Program Pointer :
outputnya
PROGRAM POINTER C++
#include "stdio.h"
#include "conio.h"
void main()
{
int *a, *b;
int x, y,z;
a=&x;
x=10; b= a;
*b= 15;
y=20;
z=25;
a=&z;
*a=35;
*b=45;
b=&y;
y=25;
*a=75;
a=b;
*b=10;
*a=15;
printf(" Nilai x : %d \n", x);
printf(" Nilai y : %d \n", y);
printf(" Nilai z : %d \n", z);
getch();
}
Listing Program Pointer C++ :
outputnya