Реферат: Исследование методов вычисления определенных интегралов

end;

// В соответствие с блок-схемой напишем программу на языке высокого уровня:

procedure TForm2. MenuItem4Click (Sender: TObject);

begin

// найдем площадь интеграла по методу трапеций

S: =0; // изначально обнуляем значение площади интеграла

n: =1; // начальное значение количества разбиений

Repeat // начало цикла

S1: =S; // предыдущее значение площади изначально равно значению площади с количеством разбиений равным 1

n: =2*n; // увеличиваем количество разбиений в два раза

h: = (b-a) /n; // формула вычисления шага

S: =f (a) +f (b); // значение функции в нижнем пределе + значение функции в верхнем пределе определенного интеграла

x: =a; // значению xприсвоим значение нижнего предела

fori: =1 ton-1 do // для i-того элемента, изменяющегося от 1 до n-1

begin

x: =x+h; // х увеличиваем на шаг

S: =S+2*f (x) // сумма площадей трапеций

end;

S: =S*h/2; // вычислим площадь по формуле

Untilabs (S-S1) <=E; // если разность значения площади и предыдущего значения площади меньше или равна заданной точности Е, то

Form4. Edit1. Text: =FloatToStr (S); // выводим значение на экран

Form4. Caption: ='Вычисление методом трапеций';

Form4. Button2. visible: =True;

Form4. Chart1. Visible: =True;

Form4. ShowModal;

end;

procedure TForm2. MenuItem8Click (Sender: TObject);

begin

// найдем площадь интеграла по методу Симпсона (парабол)