Функция y=4x(5-3x^2) - QBasic

Вывести на экран отрицательные функции y=4x(5-3x^2) при изменении x от 1 до 2 с шагом 0,1.

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

CLS
FOR x = 1 TO 2 STEP .1
y = 4 * x * (5 - 3 * (x ^ 2))
IF y < 0 THEN PRINT "Отрицательные значения: "; y
NEXT x
END

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

CLS — очистка экрана
FOR x = 1 TO 2 STEP .1 — цикл с шагом .1 от x=1 до x=2
y = 4 * x * (5 - 3 * (x ^ 2)) — вычисление значения функции y по формуле y=4x(5-3x^2)
IF y < 0 THEN PRINTОтрицательные значения: ; y — проверка на отрицательность значения y и вывод сообщения и значения переменной y в случае отрицательности
NEXT x — переход к следующей итерации цикла
END — завершение программы