Суммирование рядов смешанного типа.

[maliyusha]

Здравствуйте,форумчане! Очень нужна помощь в записи условий задачи,программу полностью можно не решать,а только начало (на языке Паскаль.)
Задача следущего характера:
а) Решить задачу вычисления конечной суммы ряда для заданного числа n при изменении аргумента х в заданном диапазоне, количество шагов изменения х равно 10.
б) Определить число членов конечной суммы n, позволяющее аппроксимировать функцию с заданной точностью ε (например, ε = 10 в степени -5), исходя из критерия |Sn-Sn-1|=|an|<ε .

Сумма S= 1+(cos(x)/1!)+(cos(2x)/2!)+...+(cos(nx)/n!)

Диапазон изменения аргумента 0.l ≤ x ≤ l

n 20

Функция y(х) ecos(x) ⋅cos(sin(x)); (здесь е в степени cos(x))

Хотя,если программа будет полностью составлена,буду очень счастлива,если можно с комментариями,если лень-без!
Откликнетесь,пожалуйста! Очень нужно на завтра,иначе незачет! Заранее спасибо!

[alex_fcsm]

var x,sum:real;
    i:integer;
    
function fact(i:integer):real;
var j:integer;
    res:real;
begin
res:=1;
 for j:=1 to i do
  res:=res*j;
  fact:=res;
end;

begin
x:=0.1;sum:=1;
for i:=0 to 9 do
 begin
  sum:=sum+cos((i*0.1+x)/fact(i));
 end;
 writeln(sum);
end.

[maliyusha]

Спасибо,именно это мне и было нужно. Дальше справлюсь Еще раз спасибо!

[Nataly026]

Помогите с кодом. Программа вычисления суммы всех членов ряда не меньших заданного числа е=10"-6.
Вариант 1/2= 1/3*1+1/3*5+1/(2п-1)(2п+1)+..., п=1...

[Mad_Cat]

i:=1;
sl:=1/3;
s:=0;
while sl>=e do begin
s:=s+sl;
inc(i);
sl:=1/(4*i*i-1);
end;

[Nataly026]

СПАСИБО
а цикл по п должен быть?