Решение. Сначала выбираем начальное приближение, разделив отре­зок пополам, т

Сначала выбираем начальное приближение, разделив отре­зок пополам, т. е. х₀ = (а + b)/2. Если F(x) = 0, то х₀ является кор­нем уравнения. Если F(x) 0, то выбираем тот из отрезков, на концах которого функция имеет противоположные знаки. Полученный отрезок снова делим пополам и выполняем действия сначала и т. д. Процесс деления отрезка продолжаем до тех пор, пока длина отрезка, на концах которого функция имеет противоположные знаки, не будет меньше заданного числа .

Программа _____________________________________________________

program lab;

uses crt;

var x,a,b,e:real;

iteraz:integer;

function fun(x:real):real;

begin

fun:=x+sqrt(x)+exp((l/3)*(ln(x)))-2.5;

end;

begin

repeat

clrscr;

writeln('кopeнь уравнения находится на интервале [a,b]');

write('Введите [a='); readln(a); write('Введите [b='); readln(b);

write('Введите приближённое значение корня Х='); readln(x);

write('Введите точность е='); readln(e);

until (b-a>e) or (x>a) or (x<b) or (a<>0); iteraz:=0; while (fun(x)<>0) and (abs(a-b)>e) do

begin

iteraz:=iteraz+l;

if (fun(a)*fun(x))<0 then b:=x else a:=x;

x:=((a+b)/2);

end;

writeln('Решение уравнения:');

writeln('Bычиcлeннoe значение корня…',х:6:5);

writeln('Чиcлo итераций.. ',iteraz);

writeln('Программа закончена, нажмите Enter.');

readln;

end.

Поиск по сайту: