6.4.. Za poznat obim kruga izračunati poluprečnik i površinu kruga.

Opis rješenja: Radijus je koli─Źnika obima i dvostruke vrijednosti broja Pi (o/(2 * pi))

Opis programa:

Listing programa:

PROGRAM p06411090; 
USES 
  WinCRT;
VAR
  r, o, p: Real;
BEGIN
  Write('Obim = ');
  Readln(o);
  r  := o/(2 * pi);
  p  := pi * sqr(r);
  Writeln('Za obim ', o);
  Writeln('Poluprecnik kruga je ', r, '   povrsina kruga je ', p);
END.

Ispis na ekranu:

Index