Задача: Написать программу на Pascal для вычисления определенного интеграла функции 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

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

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