Решение. Исходное уравнение следует привести квиду х = (x), на­пример

Исходное уравнение следует привести к виду х = (x), на­пример

х= ln(х)/2 + х.

Программа _____________________________________________

procedure iter(a,b,eps,q:real; fn;func); {Метод простой итерации}

function Fi(x:real):real;

begin

Fi:=ln(x)/2+x; {Эквивалентная функция}

end;

var n,i:word; x,xp:real;

f:boolean;

begin

clrscr;

write('Введите кол-во итераций (>2) ');

repeat

{$I-}

readln(n);

{$I+}

until (IOResult=0) and (n>l);

x:=Fi((b-a)/2); i:=l; f:=true;

while (i<n) and f do

begin

xp:=x; x:=Fi(x);

f:=abs((q*(x-xp))/(l-q))>=eps; {f:=abs(x-xp)>=eps;}

i:=i+l;

end;

if f then writeln('3a ',n,' итераций нельзя достигнуть корня')

else

begin

writeln('кopeнь вычислен с заданной точностью');

writeln('Oтвeт: ', х:7:4); writeln('F(x)=', fn(x):7:4);

writeln('Кол-во итераций: ', i);

end;

readln;

end;

Пример 11. Найти методом итераций с точностью = 10^-3 корень уравнения, представленного в виде

х = F(x), где F(x) = 5х² - е^1-х - 4.

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