Код:
function factorial(n:integer):integer ;
begin
if n>1 then
factorial:=n*factorial(n-1) ;
if (n>(-1)) and (n<2) then
factorial:=1 ;
end;
function stepen(x:real;y:integer):real ;
begin
stepen:=exp(y*ln(x)) ;
end ;
procedure TForm1.Button1Click(Sender: TObject);
var x,t,r : real ;
s,n : integer ;
begin
n:=strtoint (Edit1.Text) ;
x:=strtofloat (Edit2.Text) ;
s:= (-1) ;
r:= 0 ;
while s<10 do
begin
s:=s+1 ;
t:=(1/(factorial(s)*factorial(n+s)))*stepen((x/2),(2*s+n)) ;
r:=r+t ;
end;
Edit3.Text:= floattostr(r) ;
end;
end.
а вот и ответ)) сам разобрался во всем) тему в клозед))