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

'Тут описуються сталі

e = 2.718281828459045#

pi = 3.141592653589793#

'Тут задається від під інтегральної функції

DEF fny# (x#) = e(x# (2

DEF fncoef# (i#) = (i# MOD 2) * 2 + 2

DEF fnxi# (i#) = a# + i# * h#

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

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

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