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; 
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);
  READLN;
END.

Ispis na ekranu:

Index