Zdravím. Mám taký problém s vypracovaným zadaním. Program je vytvorený v Pascale. Nejde spustiť. Vypisuje chybu v poslednom riadku. Ja tam ale žiadnu nevidím. Nevedel by mi niekto poradiť? Ďakujem
uses crt; var a,b,c,d,e,x,y: real; function z(x:real; y:real):real; begin clrscr; write('Zadaj hranice intervalu <a,b>:'); readln(a,b); write('Zadaj hranice intervalu <c,d>:'); readln(c,d); write('Zadaj krok "e":'); readln(e); x:= a; y:= c; repeat z:=((-2.3/x)+ (x/2)+y) /(x*y); writeln('x':5,'y':5,'z'); writeln(x:1:1,' ':5,y:1:1,' ',5,z:2:3); x:=x+e; y:=y+e until (x<=b)AND(y<=d); writeln; write('Koniec programu, stlac ENTER.'); readln; end.
|