Вычисление функции разложением ее в ряд

Вычислить определенный интеграл функции sin x на отрезке от A до B.

begin
clrscr;
textcolor(5);textbackground(10);
writeln(‘введите числа k,A,B,h’);
readln(k,A,B,h);
y:=0;x:=A;
repeat
y:=y+sin(x)*h;
x:=x+h;
until x>=B;
writeln( y:8:5);
end

Пояснения
Заданный интеграл вычисляется по формуле прямоугольников как сумма hsin(x). Чем меньше шаг h, тем точнее результат вычислений.

Комментарии запрещены.