Вроде всё просто, но чёто математику забыл нафиг!

Такие вот суммы на паскале решить:

... + (2n+1)*x^2/n! + ...
... + x^n*cos(n*Pi/3)/n + ...

например, первая:

Сообщение от :
s := 0;
x := x*x;
for i := 1 to Nmax do begin
if i = 1 then iFact := 1 else iFact := i*iFact;
s := s + (2*i + 1)*x/iFact;
end;

лучше каждый новый член выражать через предыдущий...

можно и так:

Сообщение от :
s := 3*x*x;
x := s;
for i := 2 to Nmax do begin
x := x*(2*i + 1)/((2*i - 1)*n);
s := s + x;
end;

Звучит вроде круто...

Сообщение от :
Пакалем

это кем?!

p51x, молодец..мне просто в такое время впадлу...я такое исч0 в школе делал и как сча помню ,что через предыдущий надо)

Sigurd, эт мужик такой был. Умный вроде даже какой то... в мозге задачи как в виндовсе считал!

Сообщение от HepB:
лучше каждый новый член

трёхчлен лучше, поверь мне!

Сообщение от Synastesia:
трёхчлен лучше, поверь мне!

палишься млин!

Сообщение от HepB:
я такое исч0 в школе делал и как сча помню ,что через предыдущий надо)

какое ТЗ - такие и ответы... такие даже в школе стыдно было делать дольше 5 минут....

p51x, надо было сказать что это архи сложно и бабло с заказчика стрясти... эх вы...

Сообщение от Inbox:
надо было сказать что это архи сложно и бабло с заказчика стрясти... эх вы...

дело говоришь!

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

Сообщение от :
const tCOS:array[0..2] of Single = (0.5, -1, 2);
......................
s := x shr 1;
x := s;
for i := 2 to Nmax do begin
x := x*(1 - 1/i)*tCOS[(i-1) mod 3];
s := s + x;
end;

Всех благодарю!!! Очень приятно что в итернете есть ещё добрые люди!