сложная числовая последовательность !

[drylozav]

народ у меня такая проблема . у меня есть исходная числовая последовательность Последовательность вложена внизу . Вот мой исходный код :

procedure TForm1.Button1Click(Sender: TObject);
var
sum,x,i,k,s,fact:integer;
res,chisl:real;
begin
x:=strtoint(edit1.Text);
k:=strtoint(edit2.Text);
s:=1;
sum:=0;
 chisl:=0;
fact:=1;
res:=0;
 for i := 1 to k do  begin
  s:=trunc(power(x,i));
 end;
for i:=1 to k do begin
chisl:=chisl+8*sqr(i)*sqrt(x)* s;
edit3.Text:=floattostr(chisl);
end;
k:=2*k+1;
for i:=2 to  k do  begin
fact:=fact*(i);
if i mod 2 <> 0 then begin
sum:=sum+fact;
  edit4.Text:=inttostr(sum);
end;
end;
for i:=1 to k do   begin
 res:=res+(chisl/sum);
 edit5.Text:=floattostr(res);
end;

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

[Stilet]

Я лично так решение представляю:

var s,x:double;k,fac:integer;
begin
 s:=0;x:=2;fac:=1;
 for k:=0 to 3 do begin
  fac:=fac*(2*k+1);
  s:=s+(8*k*k*sqrt(x)*exp(k*ln(x)))/fac;
 end;
 write(s:5:2);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[drylozav]

все администратор . можно закрывать тему .

[Mad_Cat]

 fac:=fac*(2*k+1)

может все таки

 fac:=fac*(2*k+1)*2*k;

[drylozav]

в смысле ??

[Mad_Cat]

в прямом)
пройди цикл ручками и посмотри значение fac в обоих случаях
смотри цикл стилета

0 fac:=1;
1 fac:=1*3; //куда 2-ка потерялась
2 fac:=1*3*5 // где 2,4
3 fac:=1*3*5*7 // 2,4,6 потеряны

мой цикл

for k:=0 to 3 do begin
 if k=0 then fac:=1 
else
fac:=fac*(2*k+1)*2*k;

0 fac=1
1 fac = 1*2*3;
2 fac=1*2*3*4*5;
3 fac=1*2*3*4*5*6*7; //вроде все на месте

[drylozav]

не не не . чувак , посмотри я файл в вопрос вложил . там увидишь . ты немножко не то написал .

[Mad_Cat]

drylozav , чувак, в школе по математике чего было???

3! = 1*2*3
5!=1*2*3*4*5

и еще вот это

exp(k*ln(x))

тебе препод не простит)

[drylozav]

ахахахах )) сори не врубился с начала . реально я лол ))

[Stilet]

чувак, в школе по математике чего было???

У меня 5-ка, но это было давно и не правда.
И я не администратор кстати...