Delphi. Вычисление интеграла методом прямоугольников

[vika18]

Помогите решить задачу)я вообще не понимаю ничего

[Mad_Cat]

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

кого извините?
Вам каких прямоугольников? левых, правых, средних?

[vika18]

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

кого извините?
Вам каких прямоугольников? левых, правых, средних?

Как я поняла,любым методом,главное что бы проще

[DrStrangeLove]

методом прямоугольников) (можете исправить название топика)

_______
название темы исправил.
Модератор.

[Mad_Cat]

>>>ТЫК<<<

[DrStrangeLove]

Program ex;
Uses Math;
 
Var a,b,S1,S2,d,eps,x:real;n,i:longint;
 
 
function func(x:real):real;
begin
 func := sqrt(1 + (-0.5 * power(sin(x),2)));
end;
 

Begin
 
WriteLn('Vvedite a i b:');
ReadLn(a,b);
eps := 0.0001;
S1:= 1E+10;
n:= 5;
 
repeat
 S2:=S1;
 n:= n*2;
 d:=(b-a)/n;
 x:= a;
 S1:=0;
 for i:=1 to n do
    begin
    S1:= S1+  func(x);
    x:= x+d;
    end;
S1:=S1*d;
until abs(S1-S2)<eps;
Writeln('I=', S1:10:6);
End.

Вот вроде...
Считает верно и приближенно.. (проверял на Wolfram Alpha)