6.3.. Za poznati poluprečnik izračunati obim i površinu kruga.

Opis rješenja: Površina kruga se izračunava prema poznatoj formuli: p=pi*r2, odnosno p=pi * r*r. Obim kruga se izračunava prema poznatoj formuli: o=2*r*pi. TURBO PASCAL sadrži vrijednost pi. Ako u programskom jeziku nije sistemski ugrađena vrijednost broja pi mora se izvesti pridruživanje vrijednosti za broj pi=3.141593 ili za preciznije izračunavnje se koristi izraz pi= 4 * ARCTAN(1.0).

Opis programa: Na početku programa su deklarisane varijable koje se koriste u programu. Sve vrijednosti će biti realne. Poslije upisivanja vrijednosti poluprečnika izvodi se izračunavnje. Na kraju je ispis vrijednosti.

Provjeriti različitost ispis:

***

Listing programa

Opis

1

Writeln(o,p);

 

2

Writeln('o=',o,'  p=',p);

 

3

Writeln('o=',o:4:2,'   p=',p:4:2);

 

Listing programa:

PROGRAM P06411079;
VAR                 { deklarisanje promjenljivih }
  r, o, p : Real;   { realne promjenljive }
BEGIN
  WRITELN('Obim i površinu kruga');      { naslov }
  Write('Poluprecnik ');                 { ulazne promjenljive }
  Readln(r);                             { ulaz - ucitavanje promjenljivih }
  
  o  := 2 * r * pi;                      { obrada - proracun }
  p  := pi * sqr(r);
  
  Writeln('Za poluprecnik ', r);         { izlaz - ispis }
  Writeln('Obim kruga je ', o, '   povrsina kruga je ', p);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index