Наближене обчислення визначених інтегралів, що не беруться через елементарні функції

DEF fnxir# (i#) = a# + i# * h# + h# / 2

CLS

'Тут вводяться межі інтегрування та

'кількість проміжків

INPUT «Введіть нижню межу інтегрування » a#

INPUT «Введіть верхню межу інтегрування » b#

INPUT «Введіть кількість проміжків » n#

'Тут обчислюється крок

h# = (b# - a#) / n#

'Тут обчислюється наближене значення

'інтеграла за методом Сімпсона

integ# = 0

FOR i# = 1 TO ((2 * n#) - 1)

integ# = integ# + fncoef#(i#) * fny#(fnxis#(i#))

NEXT

integ# = integ# + fny#(a#) + fny#(b#)

integ# = integ# * (h# / 6)

PRINT "Simpson = "; integ#

'Тут обчислюється наближене значення

'інтеграла за методом трапецій

integ# = 0

FOR i# = 1 TO (n# - 1)

integ# = integ# + fny#(fnxi#(i#))

NEXT

integ# = integ# + (fny#(a#) + fny#(b#)) / 2