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

integ# = integ# * h#

PRINT "Trapeze = "; integ#

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

'інтеграла за методом лівих прямокутників

integ# = 0

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

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

NEXT

integ# = integ# * h#

PRINT "L Rectangle = "; integ#

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

'інтеграла за методом центральних прямокутників

integ# = 0

FOR i# = 0 TO n#

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

NEXT

integ# = integ# * h#

PRINT "C Rectangle = "; integ#

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

'інтеграла за методом правих прямокутників

integ# = 0

FOR i# = 1 TO n#

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

NEXT

integ# = integ# * h#