Тема. Программирование циклического процесса. Типы циклов.
Задание:
Решить задачу, организовав итерационный цикл с точностью  .
Вычислить значение определенного интеграла методом трапеции:  , точное значение: 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;
Блок схема:
|
Главная
Каталог файлов
