Programando en Perl ... no. 6

Ejercicios básicos
 La única forma para aprender programación es la practica continua. En esta ocasión se usará Perl para realizar estos ejercicios.

1.  Hacer un programa que determine si un número es par o impar. Un número par es un entero que puede ser dividido entre dos y su residuo nos da cero.

#ejecutar: perl   par.pl
use strict;
use warnings;

#declaramos la variable numero
my ($numero);

print "Introduce un número:";
$numero=<STDIN>;
chomp($numero);#quitamos los espacios
if($numero%2==0){
   print "El número ",$numero," es par\n";
}else{
   print "El número ",$numero," es impar\n";
}

2. Hacer un programa que determine si un número (A) es múltiplo de otro número (B). 

#ejecutar: perl multiplo.pl
use strict;
use warnings;

#declaramos los dos números
my ($a,$b);

print "Introduce número (A): ";
$a=<STDIN>;
chomp($a);

print "Introduce número (B):";
$b=<STDIN>;
chomp($b);

#determinamos si son o no múltiplos
if($a>$b){
  if($a%b==0){
      print "(A) ",$a," es multiplo de (B) ",$b,"\n";
  }else{
     print "(A) ",$b," no es multiplo de (B) ",$b, "\n";
   }
}else{
 if($b%$a==0){
    print "(A) ",$a," es multiplo de (B) ",$b,"\n";
  }else{
   print "(A) ",$a,"  no es multiplo de (B) ",$b,"\n";
  }
}

3.Hacer un programa que determine el mayor, el mediano y el menor de tres números.

#ejecutar: perl determinar.pl
use warnings;
use strict;

#creamos una constante 'booleana'
use constant VERDADERO => 1;

my($a,$b,$c,$continuar);

do{
    print "\n[Número mayor, mediano y menor de tres números]\n";

print "Introduce número (A):";
$a=<STDIN>;
chomp($a);
print "Introduce número (B):";
$b=<STDIN>;
chomp($b);
print "Introduce número (C):";
$c=<STDIN>;
chomp($c);

if($a>$b && $a>$c){
    print "el numero  A ",$a," es el mayor\n";
    if($b>$c){
        print "el numero  B ",$b," es el mediano\n";
        print "el numero  C ",$c," es el menor\n";
    }else{
        print "el numero  C ",$c," es el mediano\n";
        print "el numero  B ",$b," es el menor\n";
    }
}else{
    if($b>$a && $b>$c){
        print "el numero  B ",$b," es el mayor\n";
        if($a>$c){
            print "el numero  A ",$a," es el mediano\n";
            print "el numero  C ",$c," es el menor\n";
        }else{
            print "el numero  C ",$c," es el mediano\n";
            print "el numero  A ",$a," es el mediano\n";
        }

    }else{
        print "el numero  C ",$c," es el mayor\n";
        if($a>$b){
            print "el numero  A ",$a," es el mediano\n";
            print "el numero  B ",$b," es el menor\n";
        }else{
            print "el numero  B ",$b," es el mediano\n";
            print "el numero  A ",$a," es el menor\n";
        }
    }

}#fin else

print "Desea continuar? (Si->s , No->n):";
$continuar=<STDIN>;
chomp($continuar);
if($continuar eq 'n'){
 last;#alternativa a 'break'   
}
 

}while(VERDADERO);

4. Hacer un programa que determine el mayor de cinco números. En vez de definir cinco variables, definimos un vector de cinco elementos.

#ejecutar: perl mayor.pl
use strict;
use warnings;

use constant MAX => 5;

#definimos las variables necesarias
my(@numeros,$mayor,$tam);

#introducimos cinco números
for (my $i = 0; $i < MAX; $i++) {
    print "Introduce número[ ",($i+1),"]:";
    $numeros[$i]=<STDIN>;
    chomp($numeros[$i]);
}
$tam = scalar (@numeros);#obtenemos tamaño del vector
$mayor=0;
#determinamos el número mayor
for (my $j = 0; $j < $tam; $j++) {
    if($mayor<$numeros[$j]){
        $mayor=$numeros[$j];
    }
}
print "El número ",$mayor," es el mayor\n";


Eso es todo por hoy.