Como criar programa? (FATORIAL?!?!?!)

Question

Bom, gente to mexendo com o delphi agora e gostaria de saber como que posso criar um programa para calcular o fatorial de um n�??<BR>Me deem uma ajuda

Denisbetim · Answer

� o seguinte, coloque 2 componentes TEdit num Form e um bot�o!
na a��o onclick do bot�o, declare a variavel �i� de modo que fique assim..

no edit1 ser� digitado o n�mero que voc� quer tirar o fatorial e no edit2 ser� mostrado o resultado!

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
edit2.text := �1�;

for i := strtoint(edit1.text) to 1 do
edit2.text := strtoint(edit2.text) * i;

end;

Pronto!!!

Denisbetim · Answer

desculpa a� mas cometi um erro de convers�o... o c�digo � esse:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
edit2.text := �1�;

for i := strtoint(edit1.text) to 1 do
edit2.text := inttostr(strtoint(edit2.text) * i);

end;