Программа

' Поиск корня уравнения методом хорд
DEF FnF (X) = X * X - 100 ' Вычисление функции
DEF FnRoot (X0)  ' Функция нахождения корня
  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