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

[murzic28]

Помогите написать программу решения интеграла методом левых прямоугольников в Паскале: интеграл в пределах от 5 до 5,4 натуральный логарифм икс в квадрате разделить на 1000 синус икс в квадрате дэ икс.

[Z1000000]

Твое описание функции неоднозначно. Скобки расставь.
А в общем случае:

program Left;
var
 dx,S,A,B : Real;
 i,Step : Integer;
begin
Step := 10;
A := 5;B:=5.4;
dx := (B-A) / step;
S:=0;
for i:=0 to Step-1 do
 begin
  S := S + youfunction(A+dx*i);
 end;
writeln ( S );
end.