9.5.3. Za upisani poluprečnik izraćunati obim (pet puta upis se izvodi u glavnom programu).
Listing programa:
PROGRAM p09511003;
{Naci obim kruga}
Var
i : Integer;
r : Real;
FUNCTION Obim:Real; {funkcija}
BEGIN
Obim := 2 * r * pi;
END;
BEGIN {Glavni program}
FOR i := 1 TO 5 DO
BEGIN
Write('Poluprecnik ');
Readln(r);
Writeln ('Poluprecnik ',r, ' ', 'Obim ',Obim);
END;
READLN;
END.
Ispis na ekranu:
Index
|
|