![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
VAR xp,E,x0:REAL; X: REAL;
Function f(x:real): real;
Begin
f:= x*x-x-2;
End;
Function df(x:real): real;
Begin
df:= 2*x-1;
End;
Begin
writeln('введите начальное приближение х и точность');
Read(x0,e);
x:=x0;
REPEAT
xp:=x;
x:=x-f(x)/df(x);
UNTIL ABS(x-xp)<E;
writeln('корень уравнения =', x);
END.
В данной программе используется подпрограмма функция f, которая вычисляет левую часть исходного уравнения:
а также подпрограмма функция df, которая вычисляет значение дифференциала:
.
Переменная xp используется в программе для сохранения предыдущего значения х.
Дата публикования: 2014-11-26; Прочитано: 236 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!