сумма ряда

[[Te[M]ka]]

Даны действительные числа
x, ε (x≠0, ε >0). Вычислить с -3, -4, -5, -6, точностью ε (ε =10, 10, 10, 10) сумма ряда и указать количество учтенных слагаемых.
Результат оформить в виде таблицы:

ε Сумма N

10-3

10-4

10-5

10-6

Ограничимся рассмотрением первых 10-и членов.

∞ (-1)К+1
∑ ------------------- (х/3) 4К+2
к=0 (2к+1)!

Program summa_rada;
Uses crt;
Var R,a,E,s,b:real;
i,k,x:integer;
begin
ClrScr;
writeln ('vvedite x');
readln(x);
E:=0.01;
a:=-x/63;
for i:=1 to 4 do
begin
s:=1; b:=0; k:=1; x:=x+1;
while (abs(s-b)>E) do
begin
b:=s;
R:=1/2*k+11;
s:=exp(k*ln(x));
k:=x+1;
end;
writeln ('Summa N');
writeln(s:10:2, E:10:6, k:11);
E:=E*0.1;
end;
readln;
end.

Вот код программы. Мне надо сделать её без экстремумы. Помогите.

[Stilet]

экстремумы

Не понял... Где тут экстремумы?

[[Te[M]ka]]

Сообщение от Stilet

Не понял... Где тут экстремумы?

экспонента )
эт я чет загнался )

[Stilet]

А чем Экспонента то не угодила?
Впрочем для твоего случая можно заменить на

s:=x;for i:=2 to k do s:=s*x;

[[Te[M]ka]]

Экспонента неугодила преподователю, которому я сдаю лабораторную )
Спс за помощ. сейчас опробую вашим методом.

[Stilet]

Экспонента неугодила преподователю

Гордись. У тебя есть шанс открыть миру новую болезнь - преподавательскую экспонентофобию