PROSEDUR DAN FUNGSI
Prosedur dan fungsi adalah bagian yang paling banyak dipakai pada struktur data. Prosedur sama dengan program biasa tapi dikelompokan menjadi satu kesatuan yang terpisah-pisah. Contoh prosedur:
uses crt;
const phi:real=3.14;
var r,luas:real;
procedure luaslingk;
begin
luas:=phi*r*r;
writeln('Luas Lingkaran:',luas);
end;
begin
clrscr;
write('Panjang jari-jari');readln(r);
luaslingk;
end.
Contoh Fungsi:
uses crt;
const phi:real=3.14;
var jari:real;
function luaslingk(r:real):real;
begin
result:=phi*r*r;
end;
begin
clrscr;
write('Panjang jari-jari');readln(jari);
writeln('Luas Lingkaran:',luaslingk(jari));
end.