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. 

Programando en Ceylon ... no. 3

Existe una herramienta para aprender a programar llamada PSeInt, en esta ocasión vamos a realizar ejemplos de programación básica y comparando esos códigos en Ceylon.

 
1. Se requiere obtener la talla de una persona sabiendo que su peso es de 54.5 kg y su índice de masa corporal es de 22.1.

Fórmulas:
imc=peso/(talla*talla)
peso=(talla*talla)*imc
talla=sqrt(peso/imc)

 Usando PSeInt escribimos:

 Y obtenemos:

Ahora en Ceylon: 
obtenerTalla.ceylon

void run(){
variable Float peso=54.5;
variable Float talla=0.0;
variable Float imc=22.1;

function sqrt(Float x) => x^0.5; //para obtener la raíz

talla=sqrt(peso/imc);
print("talla: ``talla`` ");
}
Compilamos y ejecutamos:

2. Obtener un bono de ventas, teniendo en cuenta que el objetivo (de ventas) debe ser igual o mayor a 300.

Obtenemos:

En Ceylon:

obtenerBono.ceylon

void run(){
  variable Integer ventas=320;
  variable Integer objetivo=300;
  variable String mensaje="";
  variable Float bono=0.0;

  if(ventas>=objetivo){
    bono=0.045*(ventas-objetivo);
    mensaje="Exito";
  }else{
    bono=0.0;
    mensaje="Fracaso";
  }

  print(" ``mensaje``  , bono obtenido: ``bono`` ");

}
Compilamos y ejecutamos:

3.  Un menú para elegir una película. Si es mayor de edad permitirá mostrar el menú.

Código:

Proceso obtener_opcion
    Definir opc Como Entero;
    Definir edad Como Entero;
    Definir permiso Como Logico;
    Definir aviso Como Caracter;
    aviso="";
   
    Escribir "¿Cuantos años tienes?";
    Leer edad;
   
    Si edad>=18 Entonces
        permiso=Verdadero;
    Sino
        permiso=Falso;
    Fin Si
   
    Si permiso Entonces
        Escribir "Cartelera Cine de Terror";
        Escribir "1. Masacre en Texas";
        Escribir "2. La isla de la bruja";
        Escribir "3. El misterio del valle de las sombras";
        Escribir "Elije una: ";
        Leer opc;
       
        Segun opc Hacer
            1:
                aviso="Debes traer ropa interior de sobra ... no es broma";
            2:
                aviso="Aceptable, si no quieres dormir varios días";
            3:
                aviso="Una opción bastante recomendable... para ir al psiquiatra";
            De Otro Modo:
                aviso="Esa opcion es invalida";
            Fin Segun
   
    FinSi
    Escribir aviso;
   
   
FinProceso

Obtenemos:

En Ceylon:
obtenerOpcion.ceylon

void run(){
  variable String aviso="";
  variable Boolean permiso=false;

  print("Cuantos años tienes?");
  String edadStr=process.readLine();
  Integer? _edad=parseInteger(edadStr);
 
  if(exists _edad){
    Integer edad=_edad;
    if(edad>=18){
      permiso=true;
    }else{
      permiso=false;
    }
  }
 
  if(permiso){
    print("Cartelera Cine de Terror");
    print("1. Masacre en Texas");
    print("2. La isla de la bruja");
    print("3. El misterio del valle de las sombras");
    print("Elije una: ");
    String opcStr=process.readLine();
    Integer? _opc=parseInteger(opcStr);

    if(exists _opc){
    Integer opcion=_opc;
    switch(opcion)
    case (1){aviso="Debes traer ropa interior de sobra ... no es broma";}
    case (2){aviso="Aceptable, si no quieres dormir varios días";}
    case (3){aviso="Una opción bastante recomendable... para ir al psiquiatra";}
    else{aviso="Esa opcion es invalida";}
    }


  }
  print("``aviso``");
 
 }

Compilamos y ejecutamos:

Espero les sirva.

Una herramienta para aprender a programar: PSeInt

PSeInt
Se trata de una herramienta enfocada a la enseñanza y aprendizaje de programación, se emplea un lenguaje algorítmico muy sencillo de utilizar.  Lo puedes instalar en Linux, Windows, y Mac.

 Al inicio te pedirá que lenguaje algorítmico usarás (te muestra una lista). A mi parecer es bastante sencillo e intuitivo.  Ideal para quienes están o quieren aprender a programar.

Link
http://pseint.sourceforge.net/slide/pseint.html
http://pseint.sourceforge.net/