Dica para calcular fatorial (n!) e número binomial
Código
Function Fatorial(Number: Int64): Extended;
{n!= n(n-1) (n-2) ... 3 x 2 x 1}
var Count: LongInt;
FNbr: Extended;
begin
FNbr:= 1;
for count:=1 to Number do
FNbr:= Count*FNbr;
Result:= FNbr;
end;
function Binomial(n1,n2: Int64): Extended;
{n1!/n2!*(n1-n2)!
var n3: Int64;
begin
n3:= n1-n2;
Result:= Fatorial(n1)/(Fatorial(n2)*Fatorial(n3));
end;
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Object pascal
Adicionada dia: 06/04/07
Por: Antonino Costa Da Silva
Visualizada: 5513 vezes
Adicionada dia: 06/04/07
Por: Antonino Costa Da Silva
Visualizada: 5513 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009