Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d - QBasic

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

Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d и значение аргумента, при котором оно получено. Значение x изменяется от 0 до 2 с шагом 0,2. нужно решить, используя массив

Решение задачи: «Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d»

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

CLS
  ' Ввод
INPUT "Vvedite a: ", a
INPUT "Vvedite b: ", b
INPUT "Vvedite c: ", c
INPUT "Vvedite d: ", d
  ' Массив до 10 эл. включ. можно не объявлять
FOR i = 0 TO 10
  x = i / 5
  M(i) = a * x ^ 3 + b * x ^ 2 + c * x + d
NEXT
  '  Найдём минимум
  Min = M(0)
FOR i = 0 TO 10
  IF M(i) < Min THEN Min = M(i): k = i
NEXT
  PRINT "Znachenie = "; Min
  PRINT "Argument ="; k / 5

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

Вот что делается в этом коде:

Ввод коэффициентов a, b, c, d.
Создание массива до 10 элементов.
Вычисление значения функции для каждого элемента массива.
Поиск минимума функции.
Вывод минимального значения функции.
Вывод аргумента, соответствующего минимальному значению.