Программа
' Поиск корня уравнения методом хорд
DECLARE FUNCTION Root! (X0!)
DEF FnF (X) = X * X - 100 ' Вычисление функции
INPUT "Введите начальное приближение корня ", X ' Ввод начального приближения
Result = Root(X) ' Вычисление корня
PRINT "x="; Result; " F(x)="; FnF(Result) ' Вывод корня и проверки
END
FUNCTION Root (X0) ' Функция нахождения корня
CONST Eps = 0 ' Точность вычислений
F0 = FnF(X0) ' Вычисление значения функции в точке начального приближения
X = X0 + 1 ' Определение первого приближения
XNew = X + 1 ' Определение второго приближения
WHILE ABS(XNew - X) > Eps ' Цикл приближения к корню
X = XNew ' Сохранение предыдущего приближения
Fx = FnF(X) ' Вычисление значения функции в точке X
IF Fx <> 0 THEN ' Если новое приближение не является корнем
XNew = X - (X - X0) / (1 - F0 / Fx) ' то вычисление нового приближения
ELSE
XNew = X ' иначе подготовка выхода из цикла
END IF
WEND
Root = (XNew + X) / 2 ' Определение значения функции
END FUNCTION
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию