Pointer Di 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.

output :

0 komentar:

Posting Komentar