Foro - Perl en Español

Cuando dije que estaría mucho por aquí, no mentía.

También tengo que hacer un programa que calcule el máximo común divisor de dos números.

Lo primero que se me ha ocurrido es hacerlo mediante el uso de bucles while y un array para almacenar los divisores de cada número.

De momento he hecho esto, pero hay algún fallo, porque se ejecuta pero no pone los números.

Gracias de antemano.



He "investigado" un poco y he encontrado una forma de hallar el mcd en C, que consiste en restar los números si uno es mayor que el otro. De momento he hecho lo siguiente, creo que el problema está en la declaración de las variables pero realmente no lo sé.

¿Puedes ayudarme?

El algoritmo no está bien implementado: la línea 13 no hace nada. Sí, es una división, pero el resultado no queda almacenado en ningún sitio.

He probado a hacerlo de otra forma, pero parece ser que tampoco funciona, me estoy desesperando.


print "introduce un numero\n";
$a = <STDIN>;
print "introduce otro numero\n";
$b = <STDIN>;

if ($a =! $b)
{
$c = $a - $b;
if ($c > 0)
{
while ( $c > $b)
{
$r = $c - $b;
push @divisor, $r;
}
}
}
print "el máximo común divisor es @divisor";

Y la otra corregida que sigue sin funcionar de la forma esperada, pero aún así ¿a la división debería asignarle una variable temporal o normal?



print "Introduce un numero:\n";
$a = <STDIN>;
$n = 2;
while ($a%$n > 0)
{
$c = $a/$n;
if ($a%$n == 0)
{
push @divisores, $n;
}
while ($c > 1)
{
$r = $c/$n;
} $n++;

}
print "Los divisores son @divisores";

En la página de la Wikipedia tienes el algoritmo de Euclides donde muestra lo fácil que es calcular el Máximo común divisor.

Inténtalo. Si no puedes, avísanos.

Ya lo he leído, aunque no sé si lo habré entendido muy bien, porque no soy ningún lince para esto de la programación. Teniendo dos números diferentes y que ninguno sea 0, lo primero que hay que hacer es una división, y luego el resto de la división se convierte en uno de los nuevos números de los que quieres encontrar el máximo común divisor, y haces así hasta que el resto es 0. Si la explicación la he entendido, tengo la sensación de que no sé plasmarlo bien en lenguaje Perl.

Muchas gracias por toda la ayuda.



print "Introduce un numero:\n";
$a = <STDIN>;
print "Introduce otro numero:\n";
$b = <STDIN>;
if ($a > $b)
{
while (($a%$b) != 0)
{
$r = $a%$b;
my $a = $b;
$div = $b;
}
}

if ($a < $b)
{
while ($b%$a != 0)
{
$r = $b%$a;
$temp = $b;
$temp = $a;
$div = $b;
}
}

print " El maximo comun divisor es $div";

Para que el código Perl aparezca bonito, debes hacer que las marcas Perl *rodeen* el código. No vale con pulsar el botón.

O de otra forma: seleccionas el código y luego le das al botón Perl.

Casi lo tenías Creaste demasiadas variables que no iban a ningún sitio...
Paciencia, y fijarse en lo que le estamos pidiendo al ordenador.

¡Muchísimas gracias! Bueno, parece que voy progresando algo, a ver si me familiarizo con el bucle do{} y me fijo más en las cosas, que esto de programar me va a acabar gustando

Una última pregunta, ¿el print tiene que estar necesariamente dentro del bucle o se puede poner después de la última llave que delimita el bucle?

Naturalmente, tu misma puedes hacer la prueba.

Pero... ¿qué ocurrirá si alguno de los números es 0?

¡Éste ya lo tengo hecho! Ahora quería probar a hacer el mismo programa pero aplicando el Teorema de Euclides de las restas continuas, lo que pasa es que solo he visto un organigrama y no me ha quedado muy claro, y en la wikipedia tampoco lo encuentro ¿Dónde puedo encontrarlo? Sé que hay que usar variables temporales, pero no me ha quedado muy claro el mecanismo.