Вычислить корни уравнения - QBasic (27289)

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

ln(X)-X+1,8=0 на отрезке (2;3) с точностью e=10 в -4 степени

Решение задачи: «Вычислить корни уравнения»

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

REM
REM OTBET: 2.8458
REM
 
CLS
CONST eps = .0001
 
FOR x = 2 TO 3 STEP eps
   IF ABS(LOG(x) - x + 1.8) < .00003 THEN
   PRINT USING "X = #.####"; x
   END IF
NEXT x
END

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

Вот что происходит в этом коде:

REM — команда для комментария, используется для объяснения кода или для удаления частей кода, которые временно не нужны.
CLS — команда для очистки экрана.
CONST eps = .0001 — определение константы eps, которая используется для контроля за точностью вычислений.
FOR x = 2 TO 3 STEP eps — цикл FOR, который выполняет вычисления для ряда значений переменной x от 2 до 3 с шагом eps.
IF ABS(LOG(x) — x + 1.8) < .00003 — условие, которое проверяет, является ли текущее значение x корнем уравнения. Функция LOG используется для вычисления натурального логарифма.
PRINT USINGX = #.####; x — команда для вывода значения x, которое является корнем уравнения, с точностью до четырех знаков после запятой.
NEXT x — команда для перехода к следующей итерации цикла FOR.
END — конец программы.