Программа
' Поиск корня уравнения методом хорд
DEF FnF (X) = X * X - 100 ' Вычисление функции
DEF FnRoot (X0) ' Функция нахождения корня
LOCAL Eps, X, XNew, F0, Fx 'Локализация переменных
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
FnRoot = (XNew + X) / 2 ' Определение значения функции
END DEF
' Ввод интервала локализации корня:
INPUT "Введите начальное приближение корня ", X
Result = FnRoot(X) ' Вычисление корня
PRINT "x="; Result; " F(x)="; FnF(Result) ' Вывод корня и проверки
END
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию