Napisati program sa procedurom za izračunavanje obima i povrsine kruga.

Listing programa:

PROGRAM O_P_kruga;
CONST
  pi = 3.14;
VAR
 r, o, p :Real;

PROCEDURE Obim_i_Povrsina (r:Real; VAR o, p: Real);
BEGIN
  o := 2 * r * pi;
  p := r * r * pi;
END;

BEGIN       {MAIN}
  Writeln ('Obim i povrsina kruga ');
  Write ('Radijus ');
  Readln(r);
  Obim_i_Povrsina (r,o, p);
  Writeln('r ', r, '   obim ',o, '   povrsina ',p);
  READLN;
END.

Ispis na ekranu:
Obim i povrsina kruga
Radijus 3
r  3.000000000000000E+000   obim  1.884000000000000E+001   povrsina  2.826000000000000E+001

Index