Использовать:
function f(x:real):real;
begin
f:=sin(x);
end;
число пи это pi
a=0
b=pi
ответ равен приближено 2
Ввывод осуществить с помощью writeln(s=' , s:0:6);
function f(x:real):real;
begin
f:=sin(x);
end;
{Введите сюда нужную функцию}
function F(x:real):real;
begin
F:=x*x*x*x+2*x*x+4
end;
{======================================}
BEGIN
write('Начало интегрирования a = '); readln(a);
write('Конец интегрирования b = '); readln(b);
write('Количество разбиений интервала n = '); readln(n);
a := 0;
b := pi;
shag := 0.01;
n := trunc((b-a)/shag);