Multiplicar "N" Factoriales ?

[luisagpe]

Ahh... perdon soy mala explicando =P
veras lo que pasa es que en la parte de abajo de la formula son muchos factoriales, que despues de haber obtenido quiero multiplicar, por eso me sugirieron un acumulador, pero no me esta funcionando...

[[coso]]

entonces....quieres calcular n!/(r1!r2!...rn!)?

[luisagpe]

exactamente, ese es el objetivo...
soy mala explicando perdon -.-

[[coso]]

el primer codigo que te puse te calcula los r1!r2!...rn!. Estos deberan estar en un Memo (componente), por ejemplo.

Código Delphi [-]
function Factorial(n : integer) : integer;
begin
        result := 1;
        if abs(n) > 2 then exit;
        result := n*Factorial(n-1);
end;

function R1R2RN : longint;
var
         i : integer;
begin
         result := 1;      
         for i := 0 to Memo1.Lines.Count - 1 do
              result := result*Factorial(strtoint(Memo1.Lines[i]));
end;
 
procedure Button1Click(sender : TObject);
begin
         resultadofinal.Caption := strtofloat(Factorial(Edit1.Text) / R1R2RN);
end;

[rgstuamigo]

Hola luisagpe de nuevo. entonces lo que estas queriendo hacer es Permutaciones sin repeticiones donde la formula es:

donde n es el número de cosas que puedes elegir, y eliges r de ellas
(No se puede repetir, el orden importa)
¿Es eso lo que quieres?

[luisagpe]

Empezado por rgstuamigo

Hola luisagpe de nuevo. entonces lo que estas queriendo hacer es Permutaciones sin repeticiones donde la formula es:

¿Es eso lo que quieres?

si estoy queriendo hacer permutaciones, pero la formula es diferente, de hecho esta en una imagen en el formulario, (la captura que puse) es casi igual a esa que me pones solo que en lugar de
(n-r)!
es
r1!*r2!*r3!... rn! <rn! debe ser hasta donde el usuario quiera

[[coso]]

creo q con lo que tienes ya puedes solucionarlo saludos