andru2012, в твоем примере не метод трапеций, не функция f(x)=5x^2-x+2 и, вообще, пример не работает ))
| Код |
program fourrr;
var a, b : real; { границы отрезка}
h : real; { приращение аргумента }
s : real; { приближенное значение интеграла }
x : real; { аргумент }
p : real;
function f(p,x:real):real;
begin
f:=(exp(5*ln(p))*x*exp(x))/(exp(6*ln(p+exp(x))));
end;
begin
writeln(' f(x)=(p^5 * x * e^x) / ( (p + e^x)^6 ) ');
write('Параметр p: '); readln(p);
write('Нижняя граница a: '); readln(a);
write('Верхняя граница b: '); readln(b);
write('приращение аргумента h: '); readln(h);
s:=(f(p,a)+f(p,b))/2;
x:=a+h;
while x < b do
begin
s := s + f(p,x);
x := x + h;
end;
s:=s*h;
writeln('значение интеграла: ', s);
end.
|
|