Помогите, пожалуйста, найти ошибку. Программа не запускается
Метод секущих
...
begin
x:=0;
while y1*y2>0 do
begin
y1:=f(x);
y2:=f(x+h);
x:=x+h;
end;
writeln('eps='); {точночть}
readln(eps);
writeln('eps1');
repeat
a:=x;
b:=x+h;
ya:=f(a);
yb:=f(b);
c1:=c;
c:=a-ya*(b-a)/(yb-ya);
yc:=f(c);
if (yc*yb)>0 then b:=c else a:=c;
until ((abs(f(c)))

  • А ты кнопку "выполнить" нажала?
    ---
    1. Так не запускается или запускается и не реагирует? Согласись, это разные вещи.
    2. В этом коде нет ввода eps1.
    3. Еще раз напоминаю про pastebin.com .
  • until ((abs(f(c))) - не хватает закрывающейся скобки, и не хватает в конце end.
    Больше сказать нечего, т. к. программа показана не полностью

Вас заинтересует