7.2.. Učitati radijus. Ako je veći od 5 izračunati obim kruga inače izračunati površinu kruga.

Opis rješenja:

Listing programa:

PROGRAM P07211091;
CONST
  pi = 3.14;
VAR                        { deklarisanje promjenljivih }
  r, O, P : REAL;    { cjelobrojne promjenljive }
BEGIN
  WRITE('Radijus  ');        { ulazne promjenljive }
  READLN( r );            { ulaz - ucitavanje promjenljive }
 
  IF r > 5 THEN           { ako je a vece od b, a > b tada }
     BEGIN
      O := 2 * r * pi;                 { izraz1 }
      Writeln(' r ', r, ' O ', O);
     END
  ELSE
     BEGIN
       P := r * r * pi;          { izraz3 }
       Writeln(' r ', r, ' P ', P );
     END;
  READLN;
END.

Ispis na ekranu:

Index