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
|
|