Как найти X из уравнения - QBasic

Формулировка задачи:

Помогите пожалуйста! Как найти X из уравнения Ln(x+1/x)=3 в QBasik!

Решение задачи: «Как найти X из уравнения»

Листинг программы

REM
REM  OTBET: 0.0499; 20.0356
REM
 
DECLARE FUNCTION f! (x!)
CLS
 
FOR x = 1 TO 21 STEP .0001
   IF ABS(f(x)) < .00005 THEN PRINT USING "##.####"; x; 1 / x
NEXT x
END
 
FUNCTION f (x)
   f = x + 1 / x - EXP(3)
END FUNCTION

Объяснение кода листинга программы

В этом коде:

Объявляется функция с именем f, которая принимает один аргумент x.
Задается шаг для цикла от 1 до 21 с шагом 0.0001.
Для каждого значения x в заданном диапазоне проверяется, является ли абсолютное значение функции f(x) меньше 0.00005.
Если это условие выполняется, то выводится текущее значение x и обратное значение x.
В функции f вычисляется значение функции путем сложения x и обратного значения x, а также вычитания значения e в степени 3.
Код завершается после выполнения цикла. Примечание: значение переменной EXP(3) равно примерно 20.0356, что соответствует числу 20 и десятичной части 0.0356.