Составить программу решения уравнения sinx^2+cosx^2-10x=0 методом деления отрезка пополам. известно, что корень находится на промежутке [0,1]

207

416

Посмотреть ответы 2

Ответы на вопрос:

linda281

Информатика

4,5(67 оценок)

Ваша небрежность при записи к необходимости составить решение для двух выражений. соответственно, были найдены два корня. // pascalabc.net 3.1, сборка 1250 от 28.05.2016 function f1(x: real): =sin(x*x)+cos(x*x)-10*x; function f2(x: real): =1-10*x; function root(a,b,eps: real; f: real-> real): real; begin var x,fx: real; var fa: =f(a); if abs(fa)< =eps then result: =a else begin var fb: =f(b); if abs(fb)< =eps then result: =b else if fa*fb> 0 then result: =0/0 else repeat x: =(a+b)/2; fx: =f(x); if abs(fx)< =eps then result: =x else if fa*fx> 0 then a: =x else b: =x; until abs(fx)< =eps end end; begin var eps: =readreal('введите точность решения: '); writeln('r1=',root(0,1,eps,f1)); writeln('r2=',root(0,1,eps,f2)) end. тестовое решение введите точность решения: 1e-7 r1=0.10101518034935 r2=0.0999999940395355