Fatorial

[Guest - Marco -]

Pessoal,

Gostaria de saber como que faço um calculo de fatorial usando delphi...

Obrigado!!!

[Paulo Nobre]

Costumo usar a função:

Function Fatorial(n:Extended):Extended;

begin

If n = 0 Then

Fatorial:= 1

Else

Fatorial:= n * Fatorial(n-1);

end;

Porém, para mim ela apenas funciona para valores menores ou iguais a 1754.

Aproveitando a pergunta do colega, alguém saberia como fazer o cálculo com

qualquer número?

[Micheus]

Porém, para mim ela apenas funciona para valores menores ou iguais a 1754.

Paulo Nobre, provavelmente porque deve atingir o limite do tipo Extender = 1.1 x 10^4932

[Paulo Nobre]

Micheus ,

Podemos concluir, que não existe como calcular o fatorial para números maiores?

Mesmo, que não veja nenhuma aplicação prática para isso!

[Guest --Bart --]

Micheus ,

Podemos concluir, que não existe como calcular o fatorial para números maiores?

Mesmo, que não veja nenhuma aplicação prática para isso!

não...

Podemos concluir que o DELPHI não "Conhece" numero maiores para esse calculo

Mesma coisa da calculadora

Se você for por 9999999999999999999 X 999999999999999999999 ela vai dar erro

xD

[Eli Martines]

Ola......

Sou estudante de tecnologia da informação.

Não sei muito, mas fiz teste de mesa e funcionou da seguinte forma:

var
  N,I, R : Integer;
begin
  R:=1;
  N := Strtoint(Edit1.Text);
  for I := 1 to N do
    R := R + I;
  edit2.Text:=Inttostr( R );

end;

att

Eli Martines

Editado Setembro 26, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Guest Andre Lima]

AE GALERA...o post foi em 2006, mas sempre vai ter quem precisa de ajuda então...fiz e deu certo

procedure TForm1.Button1Click(Sender: TObject);

var

i,r:integer;

begin

//r começa com 1 porque senão vai dá sempre 0 na multiplicação

r := 1;

//para 1 até o número que digitei faça

for i := 1 to strtoint(edit1.Text) do

Begin

//façam o teste de mesa que dá certinho!!

r := r * i;

End;

//mostrar r, que é o resultado

showmessage(inttostr®);

end;

[Guest Andre Lima]

consertei o showmessage

AE GALERA...o post foi em 2006, mas sempre vai ter quem precisa de ajuda então...fiz e deu certo

procedure TForm1.Button1Click(Sender: TObject);

var

i,r:integer;

begin

//r começa com 1 porque senão vai dá sempre 0 na multiplicação

r := 1;

//para 1 até o número que digitei faça

for i := 1 to strtoint(edit1.Text) do

Begin

//façam o teste de mesa que dá certinho!!

r := r * i;

End;

//mostrar r, que é o resultado

showmessage(inttostr( r ));

end;

[Guest Nelson Antonio]

o cálculo de fatorial fiz desta forma e deu certo

procedure TForm1.BitBtn1Click(Sender: TObject);

Var

aux:integer;

conta:integer;

numero:integer;

begin

aux:=StrToInt(Edit1.Text);

conta:=1;

numero:=1;

memo1.Lines.Clear;

while aux>0 do

begin

conta:=conta*numero;

aux:=aux-1;

numero:=numero+1;

memo1.Lines.Add(IntToStr(Conta));

end;

Edit2.Text:=IntToStr(conta);

end;