Foro - Perl en Español

por **perliña** » 2013-04-09 05:40 @277

Tengo que hacer un programa que me ordene unos números, pero ocurre que el búcle solo lo realiza una vez. Es decir, introduzco los números 3, 2 y 1 y me los ordena como 2, 1, 3.

No encuentro el fallo. A ver si alguien puede ayudarme a verlo.

Esta es la parte del código que creo que falla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$b = 1;
$c = 0;
while ( $b < $n ) {
        while ( $c < ( $n - $b ) ) {
                if ( $num[$c] > $num[ $c + 1 ] ) {
                $t = $num[$c];
                $num[$c] = $num[ $c + 1 ];
                $num[ $c + 1 ] = $t;
                }
 
                $c++;
        }
        $b++;
}
 
print "Los numeros, en orden creciente, son: @num\n";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

print "Introduzca la cantidad de numeros que quiera ordenar: ";
$n = <STDIN>;
chomp($n);
while ( $n <= 0 ) {
        print "Introduce un numero mayor de 0:";
        $n = <STDIN>;
        chomp($n);
        }
 
if ( $n > 0 ) {
$i=0;
        while ( $i < $n ) {
        print "Introduce los numeros: ";
        $a = <STDIN>;
        chomp($a);
        push @num, $a;
        $i++;   }
$b = 1;
$c = 0;
}
 
while ( $b < $n ) {
        while ( $c < ( $n - $b ) ) {
                if ( $num[$c] > $num[ $c + 1 ] ) {
                $t = $num[$c];
                $num[$c] = $num[ $c + 1 ];
                $num[ $c + 1 ] = $t;
                }
 
                $c++;
        }
        $b++;
}
 
print "Los numeros, en orden creciente, son: @num\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-04-09 06:30 @312

Falta reinicializar el valor de $c antes del bucle de la línea 23. Al no hacerlo, solo se ejecuta una vez.

por **perliña** » 2013-04-09 06:44 @322

Muchísimas gracias. Ya he conseguido solucionar el problema

por **explorer** » 2013-04-09 08:01 @376

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
print "Introduzca la cantidad de números a ordenar: ";
my $n = <STDIN>;
chomp $n;
 
if ( $n > 0 ) {
    my @numeros;
 
    for (1 .. $n) {
        print "Introduce un número mayor de 0: ";
        $a = <STDIN>;
        chomp $a;
        push @numeros, $a;
    }
 
    for my $b ( 1 .. $n - 1 ) {
        for my $c ( 0 .. ( $n - $b - 1) ) {
            if ( $numeros[$c] > $numeros[$c+1] ) {
                ($numeros[$c],  $numeros[$c+1]) = ($numeros[$c+1], $numeros[$c]);
            }
        }
    }
    
    print "Los números, en orden creciente, son: @numeros\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema en un programa de ordenación

Problema en un programa de ordenación

Publicidad

Re: Problema en un programa de ordenación

Re: Problema en un programa de ordenación

Re: Problema en un programa de ordenación

Re: Problema en un programa de ordenación

Re: Problema en un programa de ordenación

¿Quién está conectado?