Multiplicar "N" Factoriales ?

[[coso]]

Hola luisa,

Código Delphi [-]

function Factorial(n : integer) : integer;
begin
        result := 1;
        if n = 1 then exit;
        result := n*Factorial(n-1);
end;

procedure Form1.Button1Click(sender : TObject);
var
         i,n : integer;
begin
         n := 1;      
         for i := 0 to Memo1.Lines.Count - 1 do
              n := n*Factorial(strtoint(Memo1.Lines[i]));

         ShowMessage(inttostr(n));
end;

en el memo1 se pondrian los numeros de los cuales se quiere el producto de sus factoriales.

[rgstuamigo]

Corrigiendo un poquito..

Código Delphi [-]
function Factorial(n : integer) : LongWord;
begin
        result := 1;
        if (n = 1)or(n = 0) then exit;//factorial de cero=1 por definicion
        result := n*Factorial(n-1);
end;

Hay que tener en cuenta tambien el tipo de dato que devuelve la funcion Factorial por que si es un tipo pequeño, los resultados no serian los mismo ya que esta funcion factorial es una funcion progresivamente enorme.
Por ejemplo el Factorial(31)=738197504. si saco el Factorial(32), ya no me soporta el tipo LongWord, me saldria un valor distinto al deseado o un error.
Saludos......

[luisagpe]

[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]Hola chicos gracias por la ayuda, se me hizo mas sencillo utilizar un acumulador, o por lo menos eso pensé... si aqui vengo a molestar otra vez ^^U les pondré como luce mi pantalla y el codigo completo del botón;



lo que completamente debe hacer esto es realizar la formula que esta en imagen dentro del formulario, una explicación sencilla;

n!= un solo factorial
r1, r2, r3... rn = muchos factoriales multiplicados entre si

al final se hace un división... pero el programa me marca un error que no comprendo -.-


[/font]

[luisagpe]

Me olvide de poner mi codigo

Código Delphi [-]
[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif] procedure TFormClasif1.btnCalcularFac1Click(Sender: TObject);
var
  n, n2, factorial, factorial2, i, i2, acumulador, RS:integer;
begin
  n:=strtoint(edit1.Text);
  n2:=strtoint(edrs.Text);
  acumulador := 1;
  factorial := 1;
  factorial2 := 1;
for i:=1 to n do
  factorial := factorial*i;
  ResN.Caption := inttostr(factorial);
for i2 :=1 to n2 do
  factorial2 := factorial2*i2;
  acumulador := acumulador*factorial2;
  factR.Caption:=inttostr(acumulador);
  RS := factorial / factorial2;
  resultadoFinal.Caption:=inttostr(RS);
 end;[/font]

[[coso]]

el error te sale porque rs no debe ser entero. Debe ser de tipo double, ya que contendra un decimal.

[[coso]]

ten en cuenta tambien que tu codigo no esta haciendo n!/(r1!r2!...rn!) sino n!/n2! Tal como te decia (incluida la correcion de rgst, y teniendo en cuenta tambien lo del overflow del integer, esto es, valores demasiado grandes) lo mejor seria una funcion factorial aparte, y llamarla al necesitarla.

[[coso]]

y aun por otra banda, tienes

     n!                      n!
__________   y luego        ___
r1!r2!..rn!                 rn!

tu codigo estaba calculando la segunda formula. ¿Cual es la que quieres calcular?

[luisagpe]

segunda formula O.o!
no.. es solo una, es solo que se tiene que resolver lo de abajo y lo arriba :P
he cambiado a double RS y ahora marca un error diferente en esta linea

Código Delphi [-]
resultadoFinal.Caption:=(RS);

me dice que son incompatible los tipos Strings y double
¿no puedo hacer operaciones con labels?
creo que ese es mi problema, pero no se bien -.-