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

Блок 5. Вызов процедуры вывода графика функции на экран;

Блок 6. Установка начального значения счётчика отрезков равным 3;

Блок 7. Вычисление значения начального значения интеграла методом трапеций;

Блок 8. Запоминание предыдущего значения интеграла, вычисленного методом трапеций, увеличение значения числа отрезков на 2, вычисление следующего значения интеграла методом трапеций;

Блок 9. Проверка условия : абсолютное значение разности текущего и предыдущего значений интегрирования меньше чем 0.001, если да, то выход из цикла, если нет, то переход на блок 8.

Блок 10. Вывод результатов, полученных при вычислении интеграла методом трапеций на экран.

Блок 11. Установка начального значения счётчика отрезков равным 3;

Блок 12. Вычисление значения начального значения интеграла методом Симпсона;

Блок 13. Запоминание предыдущего значения интеграла, вычисленного методом Симпсона, увеличение значения числа отрезков на 2, вычисление следующего значения интеграла методом Симпсона;

Блок 14. Проверка условия: абсолютное значение разности текущего и предыдущего значений интегрирования меньше чем 0.001, если да, то выход из цикла, если нет, то переход на блок 13.

Блок 15. Вывод результатов, полученных при вычислении интеграла методом Симпсона на экран.

Блок 16. Конец программы.

5. Текст программы

program tr_s;

uses crt,graph;

var

a,b:real; { Границы отрезка }

r,r2:real; { Предыдущее и текущее приближенные значения интеграла}

n:integer; { Счетчик }

{ Интегрируемая функция }

function f(x:real):real;

begin

f:=1/(x*ln(x)*0.43429);

end;

{ Метод трапеций }

function trap(a,b:real;n:integer):real;

var

s:real; { Полученная сумма }

h:real; { Шаг }