¿Cuántas combinaciones de 6 números seleccionados al azar hay entre 10 números? Programando con Delphi
¿Quieres imprimir las combinaciones de estos números o simplemente saber cuántas hay? Si es lo último, requiere
permutaciones y combinaciones
el valor de C6-4 en la fórmula, luego escribe una
función recursiva
Encuentra el valor
factorial
de 10, encuentra el valor factorial de 6 y luego encuentra (10
-
6), simplemente aplique la fórmula
:)
El código de referencia es el siguiente: El motivo
el valor de retorno
se define como Doble, porque los valores factoriales son grandes y no se pueden almacenar usando Integer:)
función
GetFactory(Value:
Integer ):
Doble;
comenzar
si
(Valor
lt;
0)
luego
comenzar
Resultado:=
-1;
finalizar
si no
si
(Valor
=
0)
o
( Valor
=
1)
luego
comenzar
Resultado: =
1;
finalizar
otro
comenzar
Resultado: =
Valor
GetFactory(Valor
-
1);
fin;
fin;
función
GetCombinationOfFormulas(Base,
Valor:
Entero):
Doble;
comenzar
si
(Base
gt;
0)
y
(Valor
gt;
0)
y
(Base
gt; =
Valor)
luego
comenzar
Resultado: =
GetFactorial (Base)
/
(GetFactorial(Base
-
Valor)
*
GetFactorial( Valor));
fin
else
Resultado:=
-1;
fin;