Вычисление факториала

@voevodaa · Регистрация: 21.11.2012

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,k,n,p,i,q:integer;
s,s1:double;
begin
q:=0;
k:=0;
x:=strtoint(edit2.text);
 
while s>1.0e-13 do
begin
 if (k mod 2=0) then p:=1 else p:=-1; //(-1)^k
 s1:=exp((2*k+1)*ln(x))/(2*k+1); //(x^(2k+1))/(2k+1)!
 q:=q*(k*2+1); здесь как бы увеличиваю факториал
 s:=s+p*s1; нахождение суммы
 k:=k+1; 
Memo1.Lines.Add(floatToStr(s));
end;

У меня не получается сделать (2k+1)! Выдает не верные значения подскажите!

@FIL · 28.04.2014, 20:49

5-я строка:

Delphi

q:=1;

и q ты считаешь, а нигде не используешь.

Лучше задание и формулу напиши.

Опции темы