Multiplicar "N" Factoriales ?

[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 -.-

[[coso]]

si es la segunda formula es tansolo una divison de factoriales

entoces seria

Código Delphi [-]
var
rs : double
begin
....
rs := factorial(n)/factorial(n2);
ResultadoFinal.Caption := FormatFloat('0.00000000',rs);
...

ten en cuenta que n!/(r1!r2!...rn!) es diferente de n!/rn!. En el primero se supone que hay n erres, mientras que en el segundo que tansolo hay una rn.