Acciones

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)

(Página creada con '[wxMaxima: input start ]: fact(n):=block([prod:1], for k:1 thru n do prod:prod*k, prod )$ fact(5); 120 [wxMaxima: input end ]: ')
 
Línea 1: Línea 1:
/* [wxMaxima: input  start ] */
+
'''Enunciado'''
fact(n):=block([prod:1],
+
Calcular el factorial de cualquier número.
 +
----
 +
 
 +
'''Solución'''
 +
 
 +
(%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 )$
fact(5);
+
 
120
+
(%i10) fact(45);
/* [wxMaxima: input  end  ] */
+
(%o10) 119622220865480194561963161495657715064383733760000000000

Revisión del 13:03 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