Factorial de un número

  • 0 Respuestas
  • 2538 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado d33k40

  • *
  • Underc0der
  • Mensajes: 94
  • Actividad:
    0%
  • Reputación 0
  • En la tierra de los ciegos, el tuerto es el rey.
    • Ver Perfil
    • Email

Factorial de un número

  • en: Julio 16, 2010, 08:26:54 am
Buenas a todos, un simple programa para sacar la factorial de x numero.

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. print "Vamos a calcular el factorial. \n";
  4. print "\n";
  5. print "De que numero quieres calcular su factorial?: \n";
  6. print "\n";
  7. $numero = <>;
  8. $total = 1;
  9. for($i = 1 ; $i <= $numero ; $i++ ) {
  10.    $total = $total * $i;
  11. }
  12. print "El factorial es: ", $total;
  13. print "\n";
« Última modificación: Marzo 14, 2015, 09:50:35 am por Expermicid »