Составление программы вычисления определённого интеграла функции. Формула Симпсона, страница 4

                                                               Открытие файла отчета: rezult.txt

                                                                       4

                                                                  Ввод

A,B,E

                                                                       5

                                                                 

VVOD(C)

                                                                       6

                                                                      

VVOD(D)

                                                                      

                                                                       7

                                                                       I=1,(1),3

                                                                       8

J1=0

                                                                    NTEK=N0

                                                                       9

CF=C[I] ; DF=D[I]

J2=J1

                                                                       10

                                                                J1=TRAP(NTEK,

A,B)

                                                                       11

                                                                NTEK=2*NTEK

                                                                       12

                                                           _

                                                                     J1-J2 <=E

                                                                                +

13

                                                                   Вывод

J2

                                                                      

                                                                       14

Закрытие файла

                                                                       15

КОНЕЦ

Функция вычисления значения интеграла:

                                                                       1

Вход (N,A,B)

                                                                       2

                                                               Опис. перемнных

                                                                       3

                                                                H=(B-A)/N

S=(F(A)-F(B))/2

                                                                       4

                                                                    G=1,(1),N-1

                                                                       5

S=S+F(A+G*H)

                                                                      

                                                                       6

                                                                  TRAP=H*S

                                                                       7

ВЫХОД

Функция вычисления текущего значения ф-ции:

1

                                                                  Вход (x)

                                                                 2

                                              F=1/((X-CF)*(SQRT((SQR(X)+DF)))

                                                                 3

                                                                 Выход(f)

Процедура ввода коэфф C и D :

1

                                                                Вход (MAS)

                                                                2

                                                                   I=1,(1),3