Помогите с паскалем,исправить.Сил больше нет begin var f:real->real:=x-> 0.1*(sin(x)/cos(x))(0.1*x+0,0025*x*x); ; var (a,b):=ReadReal2('Введите границы интервала:'); var (fa,fb):=(f(a),f(b)); var eps:=ReadReal('Введите требуемую точность:'); var n:=1; Writeln(' n',12*' ','x',14*' ','y'); while True do begin var x:=(a+b)/2; var y:=f(x); if (Abs(y) Writeln(n:3,x:15:6,y:15:6); if Sign(fa)=Sign(y) then a:=x else b:=x; n+=1 end end.

Помогите с паскалем,исправить.Сил больше нет begin

end.

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы