Delphi 7 калькулятор

[Yar_]

Помогите пожалуйста, срочно нужно, кому не трудно

[newerow1989]

function step(chislo:real;stepen:integer):real;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

var x,k:integer;
    s:real;
begin
   s:=0;
   x:=5;
   For k:=0 to 16 do
      s:=s+step(-1,k)*step(x,4*k+3)/fact(2*k+1)/(4*k+3);
   Writeln(s);
   Readln;
end.

Сойдет?

[RomiKon]

Тут скорее так:

...
var k:integer;
    s,a,x,e:real;
begin
   k:=0;
   s:=0;
   a:=0;
   x:=5;
   e:=0.0001;
   repeat
      a:=step(-1,k)*step(x,4*k+3)/fact(2*k+1)/(4*k+3);
      s:=s+a;
      Inc(k);
   until a > e; // шагов будет столько, сколько нужно чтобы обеспечить точность
   Writeln(s);
   Readln;
end.

[Аватар]

Сойдет?
Тут скорее так:

Уже при k=6 все в топку. Или типы другие для факториала или рекуррентное соотношение