Дано действительное число e. Вычислить интеграл с точностью e

Категория: Delphi/Pascal
2012-02-25 18:58:13

В данной задаче вычисление с точностью e означает следующее. Отрезок интегрирования разбивается на ni равных частей и строится сумма Sni, которая является приближенным значением интеграла. Если выполняется условие |Sni+1-Sni|

code: #pascal
program integral;
var
n,i : integer;
a,b,shag,sum,itog : real;
 
function F(x:real):real;
begin
  F:=x+1;
end;
{======================================}
 
begin
write('Начало  интегрирования a = '); readln(a);
write('Конец  интегрирования b = '); readln(b);
write('Количество  разбиений  интервала n = '); readln(n);
 
shag:=(b-a)/n;
sum:=0;
for i:=1 to n-1 do
  sum := sum + F(shag*i+a);
sum := sum + (F(a)+F(b))/2;
 
itog:=(b-a)/n * sum;
writeLn('Интеграл = ', itog:0:5);
readln
end.
Поделиться:

Похожие статьи:

теги: студенты, сумма, интеграл