Найти определенный интеграл от функции методом прямоугольников - QBasic

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

Найти определенный интеграл от функции на отрезке [1.4, 2.56] методом прямоугольников, разделив этот отрезок на 40 частей. Помогите пожалуйста, очень нужно))

Решение задачи: «Найти определенный интеграл от функции методом прямоугольников»

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

CLS
a = 1.4
b = 2.56
 
DEF fnf (x) = x ^ 1.34 * EXP(-x) - x ^ .22
 
h = (b - a) / 40
 
S = 0
FOR x = a TO b + h / 2 STEP h
   S = S + fnf(x)
NEXT x
S = S * h
 
PRINT "INTEGRAL ="; S
END

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

Задается функция fnf(x), которую необходимо интегрировать.
Задаются границы интегрирования a и b.
Задается шаг интегрирования h.
Инициализируется переменная S для хранения интеграла.
Запускается цикл FOR, который суммирует значения функции fnf(x) на каждом шаге h.
Значение переменной S умножается на h, чтобы получить конечный результат.
Выводится результат на экран.