Паскаль.ЧИСЛЕННОЕ ИНТЕГРИРОВАНИЕ

Uses CRT;
Var
a,b,DeltaX,Inteqral:Real;
begin
  clrscr;
  Write('Vvedite a = '); Readln (a);
  Write('Vvedite b = '); Readln (b);
  Writeln;
  DeltaX:=a;
  Inteqral:=0;
  while DeltaX<b do
   begin
    Inteqral:=Inteqral+1/(sqrt(DeltaX*DeltaX+0.5));
    DeltaX:=DeltaX+0.1;
   end;
  Writeln ('Integral Fx=',Inteqral);
Readln
End.

Uses CRT;
Var
a,b,DeltaX,Inteqral:Real;
begin
  clrscr;
  Write('Vvedite a = '); Readln (a);
  Write('Vvedite b = '); Readln (b);
  Writeln;
  DeltaX:=a;
  Inteqral:=0;
  Inteqral:=((b-a)/6)*(1/(sqrt(a*a+0.5)+4*1/(sqrt((a+b)/2)*(a+b)/2)+0.5)+1/(sqrt(b*b+0.5)));
  Writeln ('Integral Fx=',Inteqral);
Readln
End.

Uses CRT;
var a,b,Result:real;
    dx,fx:array[1..100] of real;
    i:integer;
begin
  clrscr;
  Write('Vvedite a = '); Readln (a);
  Write('Vvedite b = '); Readln (b);
   Result:=0;
   fx[1]:=0;
   dx[1]:=a;
   for i:=2 to 100 do
    begin
     dx[i]:=dx[i-1]+((b-a)/100);
    end;
   for i:=2 to 100 do
    begin
    fx[i]:=dx[i]*dx[i];
    end;
   for i:=1 to 100 do
    Result:=Result+fx[i];
    Result:= ((b-a)/100)*Result;
   Writeln ('Integral Fx=',Result);
Readln
End.