помогите решить ....пожалуйста

[darika]

Составить программы вычисления значений S1 и S2

S1=интеграл сверху у него 6 снизу k=1 (k вквадрате+ 3k -8.5)
S2=интеграл сверху 5 снизу n=1 (-1)в n степени ( n(n+1)/(2n+1))
помогите решить ....пожалуйста

[darika]

ну помогите решить...мне оч оч надо!!!

[maladoy]

используйте вот эту функцию или вот тут посмотрите

[__STDC__]

Это надо каким методом решить?

[darika]

вроде выбора

[__STDC__]

метод выбора? это как? что-то непонятно...
могу предложить метод прямоугольников:

function f(x:extended):extended;
begin
        f:=(n+1)*exp(n*ln(x));
end;

function square(h:extended):extended;
var
        i:integer;
        func,center:array[0..n] of extended;
begin
        square:=0;
        for i:=0 to n-1 do begin
                center[i]:=x1+(i+1/2)*h;
                func[i]:=f(center[i]);
                square:=square+h*func[i];
        end;
        writeln(square:0:2);
end;

h - шаг аргумента, x1 - начало отрезка, в массиве center - координаты центров сторон прямоугольников || Ox, в func - значения ф-ции в этих точках...
Там моя ф-ция тестовая.. ее нужно заменить своей
Шаг находится по формуле h=(x2-x1)/n (n - кол-во разбиений отрезка)

[darika]

это вообще не так решается!!!(((

[__STDC__]

серьезно что ли? интеграл это площадь фигуры ограниченной концами отрезков, осью Ох и функцией... моя прога считает сумму разбиений площади на маленькие прямоугольники... Я спросил до того: "Каким методом решать?" Вы мне ответили невразумительно... Я не знаю о "методе выбора" если такой существует. Описание алгоритма предоставьте или ваши наработки.. тогда и поговорим.. А такими восклицаниями в мой адрес прошу не кидаться