Diferencia entre revisiones de «El factorial de cualquier número»
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
| Línea 6: | Línea 6: | ||
(%i9) fact(n):=block([prod:1], | (%i9) fact(n):=block([prod:1], | ||
| + | |||
for k:1 thru n do prod:prod*k, | for k:1 thru n do prod:prod*k, | ||
| + | |||
prod )$ | prod )$ | ||
| + | |||
(%i10) fact(45); | (%i10) fact(45); | ||
| + | |||
(%o10) 119622220865480194561963161495657715064383733760000000000 | (%o10) 119622220865480194561963161495657715064383733760000000000 | ||
Revisión del 13:04 3 may 2011
Enunciado Calcular el factorial de cualquier número.
Solución
(%i9) fact(n):=block([prod:1],
for k:1 thru n do prod:prod*k,
prod )$
(%i10) fact(45);
(%o10) 119622220865480194561963161495657715064383733760000000000