Численное интегрирование Опции

[Account]

Дана функция f(x)=x*exp(x)*sin(x) интервал [0;3]. Методом прямоугольников вычислить интеграл. Побыстрому накидал (не оптимизировал)))). Вот программа

uses crt;
var
f:real;
x:real;
i:integer;
a,b:real;
begin
clrscr;
b:=3;
while (x < 2.97) do
begin
f:=f+(x*exp(x)*sin(x));
writeln('x= ',x:2:5,' | f(x)= ',f:2:2);
x:=x+0.03;
i:=i+1;
end;
writeln('--------------');
writeln('Itog: f(x) = ',((b-a)/100)*f:2:2);
{writeln('i=', i);}
readkey;
end.

только вот как проверить? нет у меня ни одного готового примера))))

[Account]

Все,проверил с помощью метода трапеций(результаты положительные))))

P.S. Извиняюсь перед админом за 2 поста подряд, думал он добавит к первому, как произошло ранее в другой теме), а получилось отдельным постом(

Сообщение отредактировано: Account - 3.01.2009 3:32

[Lapp]

Все,проверил с помощью метода трапеций(результаты положительные))))

Это не очень хорошая проверка, ибо так ты не проверяешь логику всей программы. Лучше будет, если ты подставишь вместо данной функции такую, которая интегрируется по формулам - например, x или x^2.

P.S. Извиняюсь перед админом за 2 поста подряд, думал он добавит к первому, как произошло ранее в другой теме), а получилось отдельным постом(

Непонятно, за что ты извиняешься. Разве что-то на эту тему есть в Правилах? Пость сколько угодно, если это не флуд.
А объединяются (причем автоматически) сообщения, которые были отосланы не позже, чем через 20 мин.