Решение. Исходное уравнение следует привести квиду х = (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х2 - е1-х - 4. 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | Поиск по сайту:
|