Como Faço Isso?

[Guest Digão]

boa noite

Gostaria de fazer um programinha no delphi que calculasse o fatorial de um número. Caso alguém não saiba o que é um fatorial veja:

fatorial de 5 = 5 x 4 x 3 x 2 x 1 = 120

fatorial de 4 = 4 x 3 x 2 x1 = 24

fatorial de 7 = 7 x 6 x 5 x 4 x 3 x 2 x 1 = 5040

fatorial de 10 = 10 x 9 x 8 x 7 x 6 x 5 x 4 x 3 x 2 x 1 = 3628800

fatorial de 2 = 2 x 1 = 2

Acho que deu para entender né?

[AnaoScript]

Ae brother eu não sei se vai funcionar em delphi mas da uma olhada na logica

var x = 9

y = x*x-1*x-2*x-3*x-4...

dai por diante

[Guest Edson (Edy)]

podemos resolver isso com faço for

Vamos lá

--------------------------

//criar uma variavel

var numero, contador, resultado:integer;

begin

//testando o valor de entrada

try

numero:=strtoint(edtnumero.text);

except

showmessage('Numero inválido!');

end;

resultado:=1;

// Criando faço de repetição

for contador:=numero downto 1 do

resultado:= contador * resultado;

// Mostrando o resultado

edtresultado.text:=inttostr(resultado);

end;

-----------------------

Espero que ter ajudado!!!

Edy

[AnaoScript]

Ae cara eu esqueci desse for é que ainda sou leigo em delphi