Не пойму в чём ошибка

[Витек]

Доброе время суток народ, знаю что малость не по теме НЕ РЕГУЙТИСЬ БЛАГИМ МАТОМ но всётаки прога не на VB а на Pascal рискну задать немало интересующий меня вопрос..)
Вот написал прогу но непойму в чом же проблема, вот листинг:

Program Prog;
var
n:real;
i:integer;
x,h,y:real;
begin
Writeln('Введите массив n:');
readln(n);
h:=(3-2)/n;
for i:=1 to n do
begin
x:=2+i*h;
y:=(1/x)*(Ln(x)+Ln(2));
end;
Writeln('Интеграл = ',y);
readln;
end.

смысол в том что нам нужно вычислить численный интеграл методом трапеции, при n=1 и n=4

Кто знает помоги, плиzzzzz.....

Заранее благодарен !

[nekeda]

контрольная завтра? или просто дз?

[DirectXManiac]

Витек

n:real;

Зачем?
n:integer; - попробуй так! тут real не нужен!

[RayShade]

Нафига столько переменных объявлять?

И потом, я не понимаю конечно ничего в интегралах, но мне кажется что цикл тут абсолютно ненужен, потому что в Y в конце исполнения окажется просто, результат последнего прохода.

[Viper]

надо было суммировать, а автор переписывает значение. вот и траблы отсюда.

З.Ы. вообще пример кода мягко говоря странен... причем тут массив n? Разве это массив, вроде должно быть число участков разбиения?

З.З.Ы. собственно формула трапеции:

S = h*[(F(x0)+F(xn))/2 + Sum(F(xi))]

где h - шаг разбиения
x0 - начало участка
x1 - конец участка
F - подинтегральная функция
n - число подучастков
Sum(F(xi)) - сумма значений подинтегральной функции для всех промежуточных значений xi.

h = (x1 - x0)/n
xi = x0 + h*i