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

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

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

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

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

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

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

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

begin

x: =a+i*h; // х увеличиваем

if x=a then s: =s+f (x) else

if x=b then s: =s+f (x) else

ifimod2 = 0 thens: =s+2*f (x) elses: =s+4*f (x); // если число четное, то вычисляется по формуле s: =s+2*f (x), а если нечетное, то по s: =s+4*f (x)

end;

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

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

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

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

Form4. Button2. visible: =False;

Form4. Chart1. Visible: =False;

Form4. ShowModal;

end;

Визуализация методов

Для открытия программы необходимо запустить project1. exe. После запуска откроется окно программы (рис.4). Предварительно создаем текстовый файл integral. txt в том же каталоге, где расположена программа (рис.9) в этом файле должны сохраниться результаты сравнения.

Запускаем программу. С помощью компонента MainMenuвыберем вкладки "Ввод", "Решение", "Исследование" и "Заставка".

Выбираем вкладку "Ввод - Параметры" открывается Form2 и вводим параметры (рис.10):

Рисунок 9 – Меню

Рисунок 10 - Параметры