МЕТОД ИТЕРАЦИЙ

[now2]

Задания
I. Напишите программу решения уравнений методом итераций с
наперед заданной точностью.
II. Отделите отрезок с корнем, приведите уравнение к итерационному
виду и решите его с помощью метода итераций.
(x-1)^2=1/2*e^x , ε = 0,0001.

сама программа

program b3;
uses crt;
var a,n,m,b,e,l,c,x0:real;
label 1;
function F(x:real):real;
begin
F:=sqr(x-1)-(1/2)*exp(x);
end;
function F1(x:real):real;
begin
F1:=2*(x-1)-(1/2)*exp(x);
end;
function F2(x:real):real;
begin
F2:=2-(1/2)*exp(x);
end;
begin
clrscr;
writeln('a and b');
readln(a,b);
writeln('e');
readln(e);
m:=f1(a);
n:=f1(b);
l:=1-m/n;
x0:=(a+b)/2;
1: c:=f(x0);
if abs(c-x0)*(l/1-l)>e then begin x0:=c; goto 1 end else writeln('корень= ',c:5:5);
readkey;
end.

ПРОВЕРЬТЕ ПОЖАЛУЙСТА ПРАВИЛЬНО ЛИ Я РЕШИЛА , буду очень благодарна

help ....help....help...

кто может проверииииииить.................... .(((((((((очень надо

[ViktorR]

Для поиска решения методом итерации необходимо получить зависимость вида: x = f(x).
1. В Вашем случае уравнение необходимо преобразовать:
(x-1)^2=1/2*e^x -> x-1 = sqrt((e^x)/2) -> x = 1 + sqrt((e^x)/2).

2. Нет необходимости использовать метку. Достаточно применить цикл типа

repeat
...
until <условие завершения>

Т.о.:

readln(xn); {вводим первое приближение корня (надо определить)}
repeat {цикл}
   x := xn;
   xn := x = 1 + sqrt((e^x)/2); {вычисляем следующее значение}
until <   условие завершения: abs(x-xn) < eps;   >

PS: Это только предложение, как можно решить. Условие завершения цикла должно соответствовать требованию для данного оператора цикла.


Как-то так, ...

[now2]

программа значит не правильная да ?

[now2]

спасибо большое всем))))