Вычисление определенного интеграла методом трапеции

INPUT "a=" ;a 
INPUT "b=" ; b
INPUT "e=" ; e
INPUT "n=" ; n
h=(b-a)/n

INPUT "a="; a
INPUT "b="; b
INPUT "e="; e
DO
    n = n + 1
    st = (b - a) / n
    FOR x = a TO b - st STEP st
        s = s + (x ^ 3) / (SQR(1 + (x ^ 2) ^ 3)) * st
    NEXT x
    IF ABS(s - salt) <= e THEN EXIT DO
    salt = s
    s = 0
LOOP
PRINT s
END

CLS
INPUT "a="; a
INPUT " b="; b
INPUT " e="; e
INPUT "n="; n
 
h = (b - a) / n
n = n + 1
FOR x = (a + h) TO (b - h) STEP h
 
    fx = (x ^ 3) / SQR((1 + x ^ 2) ^ 3)
    Fxh = (x - h) ^ 3 / SQR((1 + (x - h) ^ 2) ^ 3)
    S = S + (fx + Fxh) / 2 * h
NEXT x
ds = (S - S0) / S
PRINT ds, S
IF ds < e THEN
    PRINT S, n
ELSE
    n = 2 * n
    S0 = S
 
 
END IF
ymin = 1E+10
ymax = -1E+10
FOR x = (a + h) TO (b - h) STEP h
    y = (x ^ 3) / SQR((1 + x ^ 2) ^ 3)
    IF y < ymin THEN ymin = y
    IF y > ymax THEN ymax = y
NEXT x
IF ymin > 0 THEN ymin = 0
SCREEN 9
VIEW (100, 10)-(400, 300)
WINDOW (a, ymax)-(b, ymin)
LINE (a, ymin)-(a, ymax)
n = n \ 10
FOR x = (a + h) TO (b - h) STEP h
    y = (x ^ 3) / SQR((1 + x ^ 2) ^ 3)
    PSET (x, y), 10
NEXT x
LOCATE 20, 15
PRINT "znach integr "; S
LOCATE 21, 15
PRINT "kol-vo uchastkov "; n
LOCATE 23, 13
PRINT a
LOCATE 22, 10
PRINT ymin
LOCATE 2, 8
PRINT ymax
LOCATE 7, 25
PRINT " y = (x ^ 3) / (SQR((1 + (x ^ 2)) ^ 3)"
LOCATE 23, 50
PRINT b
END