Реферат: Курсовая по информатике

PRINT USING " b=####.##### INTEGR=####.#####"; b; IN1

PRINT #1, USING " b=####.##### INTEGR=####.#####"; b; IN1

NEXT b

END

INT1:

dx = (b - a) / (n - 1)

IN1 = (fna(a) + fna(b)) / 2

x = a

5 x = x + dx

IN1 = IN1 + fna(a + dx)

IF x < b THEN 5

IN1 = IN1 * dx

RETURN

INT2:

n = 100

45 GOSUB INT1: R = IN1

n = n + 20: GOSUB INT1

IF ABS(R - IN1) > t THEN 45

RETURN

Данные:

Нижняя граница интеграла? 2

Введите изменение верхнего предела интеграла, b? 3,5

Введите шаг? .9

Точность? .001

Результаты:

Верхняя граница 2 Точность .001

b= 3.00000 INTEGR= -0.86889

Верхняя граница 2 Точность .001

b= 3.90000 INTEGR= -1.64549

Верхняя граница 2 Точность .001

b= 4.80000 INTEGR= -2.32331