Вычислить определённый интеграл от 0.1 до 2.2 - QBasic

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

Вычислить определённый интеграл от 0.1 до 2.2 выражение:(sqrt(1.5x+0/6)/(1.6+sqrt(0.8x^2+2)))dx.вот....

Решение задачи: «Вычислить определённый интеграл от 0.1 до 2.2»

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

REM OTBET: 0.9111814
 
DECLARE FUNCTION f! (x!)
 
CLS
n = 1000
 
a = .1
b = 2.2
 
S = (f(a) + f(b)) / 2
h = (b - a) / n
 
FOR i = 1 TO n - 1
   x = a + h * i
   S = S + f(x)
NEXT
Integral = S * h
 
PRINT Integral
END
 
FUNCTION f (x)
   f = SQR(1.5 * x + .6) / (1.6 + SQR(.8 * x ^ 2 + 2))
END FUNCTION

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

Задаются начальные значения переменных: n=1000, a=.1, b=2.2, S=(f(a)+f(b))/2, h=(b-a)/n
Используя цикл for с 1 до n-1, вычисляются значения x и S. Значение x равно a+hi, а S равно сумме f(x) и f(a+hi).
Вычисляется значение Integral как произведение S и h.
Выводится значение Integral.
Определяется функция f(x). Она равна SQR(1.5x+.6)/(1.6+SQR(.8x^2+2)).