Программа нахождения суммы ряда.

[JellyFilled]

Помогите пожалуйста написать программу нахождения суммы ряда. Суммирование прекращается, когда модуль слагаемого меньше ε>0 (входное данное). В алгоритме может быть максимум 1 цикл.
fi - последовательность Фибоначчи, n! - факториал числа n (произведение всех целых чисел от 1 до n).
(f1/1!)+(f1/3!)+(f2/5!)+(f2/7!) + ...
С рядами проблема у меня.

[Stilet]

С рядами проблема у меня.

Сюда заглянуть не желаешь?:http://www.programmersforum.ru/showp...1&postcount=35

[abit]

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

С рядами проблема у меня.

Ну хоть какие-то попытки бы дал нам полюбоваться... вот решение, что мне пришло в голову с одним циклом:

var
  eps,new_member:double;
  Sum:double=0;
  i:dword=0;

function fibb(i:dword): dword;
begin
     if (i <= 2) then fibb := 1
      else fibb := fibb(i-1) + fibb(i-2);
end;

function fact(i: dword): dword;
begin
   if i=0 then fact := 1
   else fact := fact(i-1) * i;
end;

begin
  write(' Введите eps (>0) : '); readln(eps);
  while true do
  begin
      new_member:=fibb((i+2) div 2)/fact(2*i+1);
      inc(i);
      if new_member<eps then break;
      Sum:=Sum+new_member;
  end;
  writeln(Sum:5:5);
  Readln;
end.

постарайся разобраться...