Табулирование функции - QBasic (27450)

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

Представить таблицу значений x и функции y = f(x) при условии, что x изменяется на интервале Xmin<=x<=xmax с шагом (дельта)dx y = 2x корень|COS(x^2+1)-x|конец корня - e^-2*x и найти наибольшее из отрицательных значении функции

Решение задачи: «Табулирование функции»

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

CLS
 
Xmin = 0
Xmax = 1
dx = .1
 
LOCATE 1, 3
PRINT " X         Y"
 
i = 3
max = -100
 
FOR x = Xmin TO Xmax + dx / 2 STEP dx
   y = 2 * x * SQR(ABS(COS(x ^ 2 + 1) - x)) - EXP(-2 * x)
   LOCATE i, 3
   PRINT USING "#.#"; x
   LOCATE i, 12
   PRINT USING "##.######"; y
   i = i + 1
 
   IF y < 0 AND y > max THEN max = y
NEXT x
PRINT
PRINT " MAX ="; max
END

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

Установка начальных значений переменных:
- Xmin = 0 (минимальное значение переменной X)
- Xmax = 1 (максимальное значение переменной X)
- dx = 0.1 (шаг изменения переменной X)
Вывод таблицы с именами переменных:
- LOCATE 1, 3 (переход в строку 1, столбец 3)
- PRINT X Y (вывод заголовка таблицы)
Инициализация счетчика i = 3, переменной max = -100
Начало цикла, который выполняется от Xmin до Xmax с шагом dx:
- FOR x = Xmin TO Xmax + dx / 2 STEP dx (цикл FOR для переменной x)
- y = 2 x SQR(ABS(COS(x ^ 2 + 1) - x)) - EXP(-2 * x) (вычисление значения переменной y по формуле)
- LOCATE i, 3 (переход в строку i, столбец 3)
- PRINT USING #.#; x (вывод значения переменной x с шагом 0.1)
- LOCATE i, 12
- PRINT USING ##.######; y (вывод значения переменной y с шагом 0.0001)
- i = i + 1 (увеличение счетчика i на 1)
- IF y < 0 AND y > max THEN max = y (обновление значения переменной max, если текущее значение y больше и меньше -100)
- NEXT x (конец цикла FOR)
Вывод значения переменной max:
- PRINT MAX =; max (вывод значения переменной max)
Конец программы:
- END (конец программы)