[Burk]

Даны действительные числа *n* и *x* (вводятся в edit'ы) получить то,что на рисунке.Предусмотреть функции для факториала и степени.
Вот то ,что я намалевал

Код:

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;
 end.
procedure TForm1.Button1Click (Sender;TObject);
var x,t : real
     s,n : integer ;
 begin
 n:=strtoint (Edit1.Text) ;
 x:=strtofloat (Edit2.Text) ;
 s:= (-1) ;
 while s<=10 do
  begin
  s:=s+1 ;
  t:=(1/factorial(s)*factorial(n+s))*exp((2*s+n)*(n(x/2))) ;
  Edit3.Text:= floattostr(t) ;
  end;

 end;
end.

Admin: Пользуемся тегами!

Собственно два оч серьезных недочета ,не предусмотрена функция для степени и сама программа не считает сумму ,получается ерунда какая то очень прошу приведите кто нибудь пожалуйста в человеческий вид
===
Сорри (( буду знать