Численные методы

[Adriana]

Составить программу вычисления определенного интеграла методом средних с заданным шагом интегрирования. Алгоритм вычислений оформить как подпрограмму- процедуру, вычисление значений подынтегрального выражения проводить с помощью подпрограммы- функции, имя которой передается через заголовок процедуры в переменной процедурного типа.

[xakkkkker]

Лаба что ли?

Вот к примеру вычисление суммы функии F(x)=2x+2; на промежутке от 1 до 100;

Procedure F_R(n,k:integer; var S:real );
var
 i:integer;
begin
s:=0;
 For i:=n to k do
  S:=S+(2*i+2); 
end;

Потом вызываешь процедуру

F_R(1,100,F)

И в F будет сумма.

Это пример как можно решить а с интегралом попробуй сам... за тебя писать никто не станет

[Google2010]

Метод средних прямоугольников

procedure MSP(a,b,h:double;n:integer;function f:double;var s:double);
var i:integer;s:double;
begin 
  x:=a+h/2;
  s:=0;
  while x<=b do begin
    s:=s+f(x);
    x:=x+h;
  end;
  s:=s*h;
end;