Программа нахождения корня уравнения
Программа на языке Паскаль: методом касательных (Ньютона) найти корень уравнения.
Program Iteration;
Type Func=function(x:real):real; { Тип функция }
Var Result:real; { Корень }
X:real; { Переменная }
Function F(X:real):real;far; { Функция }
Begin
F:=(X+1)*(X-2) { X=2 ! }
End;
Function Root(F:func;X:real):real; { Функция нахождения корня }
const Eps=0.00000001; { Точность вычислений }
Var PredX:real; { Приближение полученное на предыдущей итерации }
Begin
repeat
PredX:=X; { Сохранение приближения }
X:=-F(X)/100+X { Вычисление нового приближения }
;Write(#13#10,X,' ')
until Abs(PredX-X)<=Eps; { Выход из цикла при достижении заданной точности }
Root:=X { Определение значения функции }
End;
BEGIN
WriteLn; { Пропуск строки }
Write('Введите начальное приближение '); { Вывод приглашения }
ReadLn(X); { Ввод начального приближения }
Result:=Root(F,X); { Вычисление корня }
WriteLn('X=',Result,' F(',Result:0:2,')=',F(Result))
{ Вывод корня и проверки }
END.
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию