Umiestnenie súboru www.TrSek.com/zadania/func2.pas
{ FUNC2.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre vypocet hodnot funkcie Z = 3 + x + 1/ y - 4  }
{ Vypocet sa skonci zadanim y=4.                                    }
{ Vysledky /aj nacitane x,y/ tlacte v tabulke.                      }
{                                                                   }
{ Datum:04.02.2004                             http://www.trsek.com }

program funkcia;
uses crt;
var x:array[1..100] of real;
    y:array[1..100] of real;
    z:array[1..100] of real;
    i:integer;
    n:integer;

begin
     ClrScr;
     WriteLn('Program vypocita funkciu Z = 3+x+1/y-4');

     { nacita az pokial nezada y=4 }
     n := 0;
     repeat
        n := n + 1;
        Write('Zadaj x[',n,']='); ReadLn(x[n]);
        Write('Zadaj y[',n,']='); ReadLn(y[n]);
     until (y[n] = 4);


     WriteLn;
     WriteLn('Vysledna tabulka je');
     WriteLn;
     WriteLn('Por|      X |      Y |      Z |');
     WriteLn('-------------------------------');

     for i:=1 to n-1 do
     begin
          z[i] := (3 + x[i] + 1)/(y[i]-4);
          WriteLn( i:3,'|', x[i]:8:3, '|', y[i]:8:3, '|', z[i]:8:3, '|' );
     end;

     WriteLn('-------------------------------');
     ReadLn;
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com