Вычисление интеграла фукции f (x) (методом Симпсона WinWord) — страница 6

  • Просмотров 1105
  • Скачиваний 26
  • Размер файла 128
    Кб

');   readln(a,b); { Выводится график функции }   out_grp(a,b,f(b),f(a)); { Вычисляется интеграл по методу трапеций }   n:=3;   r:=trap(a,b,n);         { Начальное значение }   repeat     r2:=r;                { Запоминается предыдущее значение }     n:=n+2;               { Увеличивается количество шагов }     r:=trap(a,b,n);       { Рассчитывается

новое значение }   until (abs(r-r2)<0.001);{ Повторяется до достижения необходимой точности } { Вывод результатов } writeln(' Резльтат по методу трапеций равен: ',r:6:3); writeln(' для получения необходимой точности                                                                       интервал

был разбит на');   writeln(n,' отрезков'); { Вычисляется интеграл по методу Симпсона }   n:=3;   r:=simpson(a,b,n);      { Начальное значение }   repeat     r2:=r;                { Запоминается предыдущее значение }     n:=n+2;               { Увеличивается количество шагов }     r:=simpson(a,b,n);       { Рассчитывается новое значение } until (abs(r-r2)<0.001);{

Повторяется до достижения необходимой                                      точности } { Вывод результатов }   writeln;   writeln(' Резльтат по методу Симпсона равен: ',r:6:3);   writeln(' для получения необходимой точности интервал

                                                                                         был разбит на ');   writeln(n,' отрезков'); end. 6. Результаты работы программы Введите A,B: 2 3 Результат по методу трапеций равен:  1.062  для

получения необходимой точности интервал был разбит на 11 отрезков Результат по методу Симпсона равен:   1.061  для получения необходимой точности интервал был разбит на 7 отрезков. Анализ полученных в ходе работы программы результатов говорит о том,  что поставленная задача успешно решается.          Метод трапеции является наиболее простым методом приближённого интегрирования , этот метод позволяет