Помогите решить интеграл в паскале 

С каким приближением (какой должен быть дискрет)? Каким методом (там есть метод трапеций, треугольников, парабол, прямоугольников, еще что-то там)? А то ведь можно тупо посчитать его на бумаге, а в программе просто вывести ответ.

В общем виде делается так: в цикле вычисляются значения функции под интегралом с дискретом dx (сами выберите его) от нижней до верхней границы, и выводится просто сумма произведений этих значений на этот дискрет. Решается в пять строк.

в пример приводилась такая вот задача:

Вообще-то вам нужно просто ставить туда свою функцию и больше ничего. Простите, где такие упражнения дают? Это же школьная задача по информатике, когда только-только функции в языках начинают проходить.

да, это школьная программа, я пробовала переделать задачу под свой интеграл у меня не получилось

Руки бы оторвал автору примера Я синтаксис паскаля уже не помню, но вообще не могу понять чё там сложного?

Пацаны! Есть у кого оболочка TP7, скажем, под рукой? Позырьте синтаксис родных функций, возвращающих корень n-степени, косинус и значение Пи.

cas siopeja писала : да, это школьная программа, я пробовала переделать задачу под свой интеграл у меня не получилось

Выложи свой текст именно ТЕКСТОМ, а не сканом. Поправим

PROGRAM Simpson;
USES crt;
VAR x,a,b,h,s:real;
n:integer;
FUNCTION Y(p:real):real;
begin
Y:=1/(1+pp);
end;
BEGIN
clrscr;
write(' Отрезок интегрирования [a,b] ? ');
read(a,b);
write(' На сколько частей разбиваем отрезок интегрирования? n=');
read(n);
h:=(b-a)/n;
s:=0; x:=a+h;
while x<b do
begin
s:=s+4Y(x);
x:=x+h;
s:=s+2Y(x);
x:=x+h;
end;
s:=h/3(s+Y(a)-Y(b));
writeln;
writeln(' Интеграл равен I=',s);
END.

Там нет функции степени. Есть Exp и Ln.

x^y = e^(y*(ln x))

Тоже нет Паскаля под рукой, но, думаю, тут уже все ясно.

Y := exp((1 /3) * ln (2.1 * cos (p)))

PROGRAM UZHOSNAH;
USES crt;
VAR x,a,b,h,s:real;
n:integer;
FUNCTION Y(p:real):real;
begin
Y:=exp((1 /3) * ln (2.1 * cos (p)));
end;
BEGIN
clrscr;
а:=0; b:= (тут вставьте значение Пи/3);
write(' На сколько частей разбиваем отрезок интегрирования? n=');
read(n);
h:=(b-a)/n;
s:=0; x:=a+h;
while x<b do
begin
s:=s+4Y(x);
x:=x+h;
s:=s+2Y(x);
x:=x+h;
end;
s:=h/3(s+Y(a)-Y(b));
writeln;
writeln(' Интеграл равен I=',s);
END.

знания вот этого Y:=exp((1 /3) * ln (2.1 * cos (p))); мне и не хватало, спасибо!

Можешь поразить препода, написав еще отдельно функцию возвращающую кубический корень

ну только не я, а тот кто будет эту задачу защищать у препода))