Приближенное вычисление определенных интегралов методом трапеций (Паскаль)

[now2]

вот программа которая решает Приближенное вычисление определенных интегралов методом трапеций.

program 13;
const
a = 0.6;
b = 2.4;
e = 0.0001;
var dx, x, y, integ : real;
n : integer;
function f(x: real): real;
begin
f := 1+0.5*x*x/1+sqrt(0.8*x*x+1.4);
end;
begin
integ := sin (b) - sin (a);
n := 9;
y := 0;
while integ - y > e do
begin; 
n := n + 1;
  dx := (b - a) / n;
  y := 0; 
  x := a + dx;
   while x < b do 
    begin 
    y := y + f(x);
    x := x + dx;
    end;
  y := (y + (f(a) + f(b)) / 2) * dx;
  end;
  
writeln ('количество отрезков разбиения: ',n);
writeln ('приближенное значение интеграла: ',y:7:6);
writeln ('точное значение интеграла  : ',integ);
writeln ('относительная погрешность вычислений : ',(integ - y));
end.

вопрос : может ли погрешность быть отрицательной? и точное значение намного меньше приближенного ? почему так
результат ниже приведен и сам интеграл для которого написана прога



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

f := 1+0.5*x*x/1+sqrt(0.8*x*x+1.4);

А скобки где? И в числителе и знаменателе.

И как вообще она скомпилировалась. Программа с именем "13" .

[now2]

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

f := 1+0.5*x*x/1+sqrt(0.8*x*x+1.4);

А скобки где? И в числителе и знаменателе.

И как вообще она скомпилировалась. Программа с именем "13" .

какие скобки?

[now2]

у меня паскаль ABC. Net

[now2]

ааааааааааааа,вот что получилось ,но все равно погрешность отрицательная ,почему

[now2]

и все равно между приближенным и точным результатом разница большая

[type_Oleg]

Точное = 1.4050674
А у вас я не понял, как точное считается.

[now2]

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

Точное = 1.4050674
А у вас я не понял, как точное считается.

у меня приближенное значение 1.4 а точное почему то меньше , я сама никак не пойму почему так получается

[type_Oleg]

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

... я сама никак не пойму почему так получается

А я не пойму, как вы вычисляете " точное значение ".
И что это

integ := sin (b) - sin (a);

- непонятно.
Точное - это значит решить неопределенный интеграл (найти первообразную функцию) . И по этой первообразной найти точное. Но здесь первообразную уж очень муторно выводить.

[now2]

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

А я не пойму, как вы вычисляете " точное значение ".
И что это

integ := sin (b) - sin (a);

- непонятно.
Точное - это значит решить неопределенный интеграл (найти первообразную функцию) . И по этой первообразной найти точное. Но здесь первообразную уж очень муторно выводить.

бллллллллииииин и что делать(((((