9.5.13. Naci obim pravougaonika za 5 ucitanih vrijednosti (Funkcija koristi nove varijable. Pridruživanje vrijednosti funkcije u glavnom programu o = Obim(a, b) )

Listing programa:

PROGRAM obim_kvadrata02;
{Naci obim kvadrata za 5 ucitani vrijednosti (Funkcija koristi nove varijable)}
{pridruzivanje vrijednosti funkcije u glavnom programu  o = Obim(a, b) }

USES
  WinCrt;
Var 
  i : Integer;
  a, b, o : Real;

FUNCTION Obim(x, y: Real) :Real;  {funkcija}
BEGIN
  Obim := 2 * x + 2 * y;
END;

BEGIN    {Glavni program} 
  FOR i := 1 TO 5 DO
    BEGIN    
      Writeln('Izracunavanje obima pravougaonika');
      Write('Stranica 1 ');
      Readln(a);
      Write('Stranica 2 ');
      Readln(b);
      o := Obim(a, b);  
      Writeln (i,'    Stranica 1 :', a, '      Stranica 2 :', b, '    Obim ', o);
    END;
END.

Izvođenje programa:

Index