Foro - Perl en Español

por **alexclipse** » 2012-04-21 09:30 @437

Es un ejercicio muy sencillo y debo de estar fallando en alguna tontería pero el programa que he elaborado me devuelve como resultado el último valor introducido. ¿En qué me falla?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Introduzca la cantidad de números a sumar: ";
my $a = <STDIN>;
chomp($a);
while ( $a <= 0 ) {
    print "Introduzca un número mayor de 0:";
    my $a = <STDIN>;
    chomp($a);
}
if ( $a > 0 ) {
    my $n = 0;
    while ( $n < $a ) {
        print "Introduzca los números: ";
        my $b = <STDIN>;
        chomp($b);
        push @numeros, $b;
        $n++;
    }
}
 
my $suma = total(@numeros);
print "La suma es: $suma\n";
 
sub total {
    my $sumatorio = 0;
    foreach $valor (@numeros) {
        $resultado = +$valor;
    }
    return ($resultado)
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Línea 24: defines $sumatorio, pero no lo usas luego para nada
Línea 20: le pasas a la función total() todos los @numeros, pero luego, esta función, no los recoge
Línea 26: en lugar de hacer la suma, lo que haces es guardar cada valor de @numero en $resultado, así que es normal que te devuelva siempre el último valor
Línea 28 y 29: faltan un ';' y una '}' al final.

por **alexclipse** » 2012-04-21 10:07 @463

Lo de $sumatorio sí que es cierto. El ';' y '}' finales se debe a que no los he seleccionado al copiar pero sí que los he puesto en el programa. En cuanto a que me devuelva el último número corrigiendo lo que dije en mi segundo mensaje funciona perfectamente.

Foro - Perl en Español

Definir una función que sume números introducidos

Definir una función que sume números introducidos

Publicidad

Re: Definir una función que sume números introducidos

Re: Definir una función que sume números introducidos

Re: Definir una función que sume números introducidos

¿Quién está conectado?