Zadatak 9.5.1: Za upisani poluprečnik izračunati obim

Listing programa:

PROGRAM p09511001;
{Naci obim kruga}
USES
  WinCrt;
Const
  pi = 3.14159;
Var 
  i : Integer;
  r : Real;

FUNCTION Obim:Real;  {funkcija}
BEGIN
  Obim := 2 * r * pi;
END;

BEGIN    {Glavni program} 
  Write('Otkucaj poluprecnik ');
  Readln(r);
  Writeln ('Poluprecnik ',r, '  ', 'Obim ',Obim);
END.
        

Izvođenje programa:

Index