Интеграл=)

[Psychoo]

Помогите пожалуйста обнаружить ошибку ,а то вычисляет неправильно или еxitcode выбивает.Заранее благодарен

[Вадим Мошев]

Выкладывайте ваш код на форум, ОФОРМИВ ЕГО ТЭГОМ code

[Psychoo]

program lab4;
var a,b,e,h,S1,S2,R,d:real;i,n,k,j,m:integer;p:Char;
function f(x:real):real;
begin
f:=x*x;
end;
begin
 repeat
 writeln('Vvedit a,b,e');
 readln(a,b,e);
 writeln('1-Left rectangular');
 writeln('2-Right rectangular');
 writeln('3-Middleline rectangular');
 writeln('4-Trapeze');
 writeln('5-Parabola');
 writeln('6-BD');
 readln(n);
 m:=1;
 S1:=(b-a)*f(a);
  repeat
  m:=m*2;
  h:=(b-a)/m;
  S2:=0;
  case n of
  1:
  begin
  for i:=0 to m-1 do S2:=S2+f(a+i*h);
  S2:=S2*h;
  end;
  2:
  begin
  for i:=1 to m do S2:=S2+f(a+i*h);
  S2:=S2*h;
  end;
  3:
  begin
  for i:=1 to m do S2:=S2+f(a+i*h-h/2);
  S2:=h*S2;
  end;
  4:
  begin
  for i:=0 to m-1 do S2:=S2+f(a+i*h)+f(a+(i+1)*h);
  S2:=S2*(h/2);
  end;
  5:
  begin
  for i:=0 to m do S2:=S2+k*f(a+i*h);
  S2:=S2*h/3;
  if(i=0)and(i=m)then k:=1;
  if(i mod 2=0)then k:=2 else k:=4;
  end;
  6:
  begin
  d:=h/4;
  for i:=0 to m-1 do
       for j:=0 to 4 do
       begin
       if (j=0) and (j=4) then K:=7;
       if (j=1) and (j=3) then K:=32;
       if (j=2) then K:=12;
       S2:=K*f(a+i*h+j*d);
       end;
  S2:=S2*((2*d)/45);
  end;
end;
R:=abs(S2-S1);
until R<e;
S1:=S2;
writeln(S2:10:7);
writeln(m);
writeln('Repeat Y/N?');
readln(p);
until p='N';
readln;
end.