Вычислить интеграл по формуле прямоугольников - Pascal ABC

Формулировка задачи:

где Помогите пожалуйста вычислить интеграл по формуле прямоугольников, на языке паскаль Ответ выходит не тот(((
Program INT ;
      var 
              a , b , s ,t, h,x, p : real ;k: integer;
      begin
        a := 0 ; b := 1 ; s := 0 ; 
        For k:= 1 to 3 do
        a:= a+((k+4)/(k+2));
        t:=4.3*cos(a);
        b:=3*sqr(t)+4;
              h := ( a + b );
        while a >= b do begin
          s := s+(sin(a/b)*x);
          a := a + h ;
        end ;
        p := s * h ;
        writeln ( ' значение интеграла p = ' , p:1:5 );  end .

Код к задаче: «Вычислить интеграл по формуле прямоугольников - Pascal ABC»

textual
Program INT ;
var a,b,t,c,d,h,s,x:real ;
    k,n:integer;
begin
a := 0 ;
For k:= 1 to 3 do
a:= a+((k+4)/(k+2));
t:=4.3*cos(a);
b:=3*sqr(t)+4;
writeln('a/b=',a/b:0:4);
c:=0;
d:=1;
write('Число разбиений n=');//чем больше k, тем выше точнсть
readln(n);
h:=(d-c)/n;
x:=c+h/2;
s:=0;
for k:=1 to n do
 begin
  s := s+sin(a/b)*x;
  x := x+h;
 end;
s:=s*h;
writeln ( ' значение интеграла = ' , s:0:5 );
end .

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ