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

[bigglewood]

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


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


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

[bigglewood]

это я уже решил. спосибо...и забыл сказать что там ограничение до 10 в минус 5 степени...сначала создаю функцию вычисления факториала а потом ее использую...это кусок кода

Function Tform1.ResFact(N:real) : real;
Begin
  if N <= 1
    then
      ResFact := 1
    else
      ResFact := N*ResFact(N-1);
End;

procedure TForm1.Button1Click(Sender: TObject);
const e=exp(-5*ln(10));
var w,k,s,x:real;
i:integer;
begin
k:=1;
s:=0;
val(edit1.text,x);
    repeat
    w :=exp(2*k*ln(x))/resfact(2*k);
    k:=k+1;
    s:=s+w;
   until w > e;
   label1.caption:=floattostr(s);
end;

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