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

Opis rješenja: Radijus je drugi korijen količnika površitne i broja Pi (sqrt(p/pi))

Opis programa:

Listing programa:

PROGRAM p06411089; 
USES 
  WinCRT;
VAR                 { deklarisanje promjenljivih }
  r, o, p : Real;   { realne promjenljive }
BEGIN
  WRITELN('Izracunati poluprecnik i obim');  { naslov }
  Write('Povrsina = ');                      { ulazna promjenljiva }
  Readln(p);                                 { ulaz - ucitavanje promjenljive }
  
  r  := sqrt(p/pi);                          { obrada - proracun } 
  o  := 2 * r * pi;
  
  Writeln('Za povrsinu ', p);                 { izlaz - ispis }
  Writeln('Poluprecnik kruga je ', r, '   obim kruga je ', o);
END.

Ispis na ekranu:

Index