Найти длину дуги - QBasic

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

помогите пожалуйстаааа 1) найти длину дуги данной линии y^2=(x+1)^3, отсеченной прямой х=4 2) вычислить объем тела, полученного вращением фигуры Ф вокруг оси Ох Ф: у^2=x, x^2=y 3) вычислить площадь поверхности, образованной вращением кривой L вокруг оси Ох L: x=2(t-sint), y=2(1-cost), (0<=t<=2pi).

Решение задачи: «Найти длину дуги»

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

REM
REM OTBET: 31.81
REM
 
DECLARE FUNCTION f! (x!)
CLS
 
a = -3
b = 3
h = .0005
S = (f(a) + f(b)) / 2
 
FOR x = a + h TO b - h / 2 STEP h
   S = S + f(x)
NEXT x
S = S * h
PRINT "INTEGRAL ="; S
END
 
FUNCTION f (x)
   f = x ^ 2 * SQR(9 - x ^ 2)
END FUNCTION

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

В этом коде выполняется численное интегрирование функции f(x) = x^2 * sqrt(9-x^2) на отрезке от -3 до 3 с шагом 0,0005. Список действий:

Объявляется переменная S со значением (f(a) + f(b)) / 2, где f(a) и f(b) - значения функции f на концах отрезка.
Запускается цикл от a + h до b - h/2 с шагом h.
В каждой итерации цикла значение функции f(x) прибавляется к переменной S.
После завершения цикла значение переменной S умножается на h.
Выводится значение переменной S. Функция f(x) вычисляется как x^2 * sqrt(9-x^2).