Нужно срочно решить задачку в Delphi

[SERESHKA]

Для данного значения х найти сумму ряда у с точностью до члена ряда, меньшего eps=0,0001.Сравнить эту сумму со значением функции для контроля.
Нужно код процедуры и блок-схему...

[Arigato]

Нужно код процедуры и блок-схему

Кому нужно, Вам? Ну так вперёд!
См. тут: http://www.programmersforum.ru/showthread.php?t=47718

[SERESHKA]

Эт ссылка на мою же страничку......
помогите решить,\
или хотяб скажите как вичислить факториал рекурсивно....Please

[Sazary]

или хотяб скажите как вичислить факториал рекурсивно.

function fact(n : longint) : longint;
begin
if n=1 then
 begin
 fact := 1;
 exit;
 end;
fact := n*fact(n-1);
end;

Намекну: здесь не нужно вычислять факториал для каждого слагаемого. Ищите закономерность.