Foro - Perl en Español

por **mparrado8** » 2013-04-13 17:21 @765

¡Hola! El objetivo de mi programa es calcular n! y pensando, tras entrar en numerosos bucles infinitos he llegado a elaborar un un programa que para mi está bien y se ejecuta pero que resulta que no funciona como tiene que hacerlo y en la pantalla no muestra el resultado. ¿Podéis darme alguna sugerencia o ayudarme a buscar el error?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Introduce un número\n";
$a = <STDIN>;
chomp($a);
 
while ( $n > 1 ) {
    if ( ( $a == 0 ) && ( $a == 1 ) ) {
        print "El factorial del numero es 1";
    }
    do {
        $temp = $a;
        $n    = $temp;
        $fac == $a * $n;
        $a--;
        } until ( $n == 1 )
 
}
print "El factorial de $a! es $fac";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Yo lo que veo es que estás usando un operador de comparación numérica ('==') en lugar de una asignación ('=') en la línea 12.

Y que en la primera vuelta, quieres hacer

$fac = $a * $n;

que en realidad es

$fac = $a * $temp;

que a su vez es

$fac = $a * $a;

y eso no es correcto según la definición de factorial.

por **mparrado8** » 2013-04-13 17:46 @782

Lo primero, ¡entendido! ¡Ah! y lo otro creo que también, me confundí porque sería $temp = $a; $n = $temp -1; y luego ya podría hallar $fact, ¿no? y restarle a la variable $a una unidad en cada vuelta. ¿Eso sería correcto?

por **mparrado8** » 2013-04-13 17:55 @788

He hecho alguna correción, pero aún no sirve

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Introduce un numero\n";
$a= <STDIN>;
chomp ($a);
 
while ($n > 1) {
        if (($a == 0) && ($a == 1))
        {
        print "El factorial del numero es 1";
        } 
        until ($n == 1){
                if ($n > 1){
                $temp = $a - 1;
                $n = $temp;
                $fac = $a*$temp;
                $a = $a - 1;
                } 
                $a--; 
                }
}
print "El factorial de $a! es $fac ";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-04-13 22:34 @982

Cuando el programa llega a la línea 5, ¿cuánto vale $n?

A la hora de hacer programas, debes ponerte en el papel del ordenador... e intentar reproducir mentalmente o en un papel, qué es lo que va a hacer, paso a paso.

Toma un papel, y escribe en una línea todas las variables que tienes. Luego, empieza por la primera línea del programa, y comienza a dar valores a las variables o a modificarlas, según lo que digan las líneas, escribiendo los valores debajo de cada variable.

Así sabrás qué está pasando.

Foro - Perl en Español

Cálculo del factorial

Cálculo del factorial

Publicidad

Re: Cálculo del factorial

Re: Cálculo del factorial

Re: Cálculo del factorial

Re: Cálculo del factorial

¿Quién está conectado?