Cумма слогаемых, цикл Опции

[bigglewood]

Помогите пожалуйста решить - Используя оператор цикла с дальнейшим условием, вычислить сумму бесконечного ряда, учитывая только те слогаемые, которые по абсолютной величине больше заданного числа :


При вычислении члена ряда использовать рекурентные соотношения, число Х ввести склавиатуры. Вот функция :


Сообщение отредактировано: volvo - 13.06.2006 23:18

[Pola]

И где у тебя "рекурентные соотношения"?
факториал не нужен

k:integer; и зачем тебе i?

begin
val(edit1.text,x);
k:=1;
w:=sqr(x)/2;
s:=w;
 repeat
    k:=k+1;
    w :=w*sqr(x)/(2*k)/(2*k-1);
    s:=s+w;
 until w > e;
 label1.caption:=floattostrf(s, ffFixed, 10, 7);
end;