Табулирование функций нахождение максимума и минимума - QBasic

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

Y=sin2x+2cosx+3 начало массива 2 конец массива 4 шаг 0.2

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

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

DEFSNG M, X-Y
DEFINT I
CLS
DIM y(10)
 
FOR i = 0 TO 10
   x = 2 + .2 * i
   y(i) = SIN(2 * x) + 2 * COS(x) + 3
   PRINT USING " x = #.#   y = #.######"; x; y(i)
NEXT i
PRINT
 
max = y(0)
min = y(0)
FOR i = 1 TO 10
   IF y(i) > max THEN
      max = y(i)
   ELSEIF y(i) < min THEN
      min = y(i)
   END IF
NEXT i
   PRINT " MAX = "; max
   PRINT " MIN = "; min
END

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

В этом коде:

Строка DEFSNG M, X-Y; Определяет набор функций для табулирования (M), а также диапазоны значений для оси X и Y. Здесь вместо M может быть любое имя функции или набор функций, которые вы хотите табулировать.
Строка DEFINT I; Определяет тип переменной I, который будет использоваться в коде.
Строка CLS; Очищает экран перед началом табулирования.
Строка DIM y(10); Создает массив y, который будет использоваться для хранения значений функции на протяжении 10-ти итераций цикла.
Цикл FOR i = 0 TO 10; Инициализирует переменную i и запускает цикл, который будет выполняться 11 раз. Значение i изменяется от 0 до 10.
*Строка x = 2 + .2 i;** Вычисляет значение переменной x, которое будет использоваться в функции.
Строка y(i) = SIN(2 x) + 2 COS(x) + 3; Вычисляет значение функции и сохраняет его в массиве y.
Строка PRINT USING x = #.# y = #.######; x; y(i); Выводит текущее значение x и y на экран. Формат вывода включает пробелы для улучшения читаемости.
Цикл FOR i = 1 TO 10; Инициализирует переменную i и запускает цикл, который будет выполняться 10 раз. Значение i изменяется от 1 до 10.
Строка IF y(i) > max THEN; Проверяет, является ли текущее значение y(i) больше максимального значения, которое было сохранено в переменной max.
Строка ELSEIF y(i) < min THEN; Проверяет, является ли текущее значение y(i) меньше минимального значения, которое было сохранено в переменной min.
Строка END IF; Завершает условное выражение.
Если условие истинно, то max = y(i); Если текущее значение y(i) больше максимального значения, то обновляет значение max.
Если условие истинно, то min = y(i); Если текущее значение y(i) меньше минимального значения, то обновляет значение min.
Цикл FOR i = 1 TO 10; Завершается.
Строка PRINT MAX =; max; Выводит значение max на экран.
Строка PRINT MIN =; min; Выводит значение min на экран.
Строка END; Завершает программу. Таким образом, этот код табулирует функцию, вычисляет ее максимальное и минимальное значения и выводит их на экран.