Тема. Программирование циклического процесса. Типы циклов.
Задание:
Решить задачу, организовав итерационный цикл с точностью .
Вычислить значение определенного интеграла методом трапеции: , точное значение: pi/2+1. Определить, как изменяется число итераций при изменении точности.

Исходный код программы на Delphi 7:
program Project2;
//метод трапеций

{$APPTYPE CONSOLE}

uses
SysUtils;

var A,B,e,S, h, integ:REAL;

n,i:integer;

function f(x:real):real;
begin
f := 1+SIN(X);
end;

begin
a:=0;
b:=pi/2;
e:=10e-3; //погрешность
n:=4;

h := (b — a) / n;

for i := 1 to n-1 do
begin
S := S + f(a + h * i);
end;

integ := h * ( ( f(a) + f(b) ) / 2 + S);

writeln(integ:0:4);

Readln;

end.

Задание функции вынесено в подпрограмму:
function f(x:real):real;
begin
f := 1+SIN(X);
end;

Блок схема: