Multiplicar "N" Factoriales ?

[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

[luisagpe]

seguire intentando con los codigos dados, muchas gracias...

[[coso]]

vaya ahora me leo brusco. mil perdones.