Вычислить определённый интеграл от 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 - QBasic»

textual
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

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ