6.. Za poznati poluprečnik izračunati površinu i zapreminu lopte.

Opis programa: Broj PI se deklariše kao konstanta u dijelu CONST PI (Vidi >>)

Listing programa:

PROGRAM P06411069;
CONST
  PI = 3.141592654;    { broj PI }
VAR                    { deklarisanje promjenljivih }
  r, V, P: Real;       { realne promjenljive }
BEGIN
  WRITELN('Povrsina i zapremina');  { naslov }
 
  Write('poluprecnik ');    { ulazna promjenljiva }
  Readln(r);                { ulaz - ucitavanja promjenljiva }
                              
  P := 4 * SQR ( r ) * PI;       { povrsina lopte }
  V := 4 / 3 * SQR ( r ) * PI;   { zapremina lopte}

  Writeln('r = ', r, '  P = ', P, '  V = ', V);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index