Паскаль.Интергалы. Цикл с условием.

[-=elV!Pka=-]

условие: считать интегралы функции ,f(x)=sin(ln(x))*sqrt(x*x*x) на отрезке [a,b] методом прямоугольников с шагом по аргументу h=(b-a)/20, до тех пор пока |интеграл от h - интергал от h/2|>e. a,b,e вводятся с клавиатуры.
вот моя программа. помогите, исправьте пожалуйста. .

program ex_9; 
uses crt; 
cоnst n=20; 
var x:array [1..5000] of real; 
y:array [1..5000] of real; 
s:array [1..5000] of real; 
i:integer; 
c,c1,a,b,h,e,h1:real; 
begin 
clrscr; 
writeln ('vvedite zna4enie a'); 
readln (a); 
writeln ('vvedite zna4enie b'); 
readln (b); 
writeln ('vvedite zna4enie E'); 
readln (e); 
h:=(b-a)/n; 
c:=0; 
c1:=0; 
h1:=h/2; 
x[1]:=a+h; 
while abs(c-c1)>e do 
begin 
for i:=2 to 20 do 
x := x[i-1]+h; 
for i:=1 to 20 do 
begin 
y:=sin(ln(x))*sqrt(x*x*x); 
s:=h*y; 
c:=c+s; 
end; 
writeln ('integral pri h=',h:0:3,' raven ',c); 
end; 
for i:=2 to 20 do 
x := x[i-1]+h; 
for i:=1 to 20 do 
begin 
y:=sin(ln(x))*sqrt(x*x*x); 
s:=h1*y; 
c1:=c1+s; 
end; 
writeln ('integral pri h1=',h1:0:3,' raven ',c1); 
readln; 
end.

я первокурсница.. а как мне сказали эта задачка для 4го курса...

[RUSt88]

какой к черту 4-ой курс?! кто вам такое сказал? тут чистая математика и умение строить алгоритм, максимум второй семестр 1-ого курса

[-=elV!Pka=-]

Сообщение от RUSt88

какой к черту 4-ой курс?! кто вам такое сказал? тут чистая математика и умение строить алгоритм, максимум второй семестр 1-ого курса

... для Вас она легкая видимо...

[RUSt88]

могу помочь за денежку

[Stilet]

Я не силен в математике, но космос как бы намекает:

var h,i,i2,a,a2,b:double;
begin
 a:=1;b:=10;i:=0;i2:=0;
 a2:=a;      h:=(b-a)/20;
 while (a<b)and(abs(i-i2)<0.001) do begin
  i:=i+sin(ln(a))*sqrt(a*a*a);
  i2:=i2+sin(ln(a2))*sqrt(a2*a2*a2);
  a:=a+h;
  a2:=a2+h/2;
 end;
 write(i:5:2); readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.