Programas en Perl
Programa que te pide tu nombre y un numero del 1 al 100, en donde la computadora arroja uno aleatoriamente y te dice si le atinaste o no.
#!/usr/bin/perl
print" ¿Cual es tu nombre?\n\n";
$nombre =<>;
chomp $nombre;
print "Hola! $nombre\n\n";
for($i=0;$i<=10;$i++){
print "Atinale al numero...\n\n";
$x= rand(100);
print" Ingresa un numero del 1 al 100\n\n";
$numero =<>;
chomp $numero;
if($numero==$x){
print"Bien le atinaste al numero\n\n\n";
}
if($numero<$x){
print" El numero es bajo\n";
}
if($numero>$x){
print" El numero es alto\n\n";
}
print" El numero real era: $x vuelve a intentarlo $nombre\n\n";
}
exit;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Programa que te realiza una suma, resta, multiplicacion y modulo.
#!/usr/bin/perl
print "De el valor de a = ";
$a = <>;
chomp $a;
print "De el valor de b = ";
$b = <>;
chomp $b;
$c = $a * $b;
$d = $a + $b;
$e = $a / $b;
$f = $a - $b;
print "$a * $b = $c\n";
print "$a + $b = $d\n";
print "$a % $b = $e\n";
print "$a - $b = $f\n";
exit;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Programa de arreglo
#!/usr/bin/perl
@numeros=(1, 2, 6, 5, 10);
print" Hola los elemntos son: \n\n";
print "@numeros\n\n";
print "@numeros[0]\n";
print "@numeros[1]\n";
print "@numeros[2]\n";
print "@numeros[3]\n";
print "@numeros[4]\n";
exit;
Aqui otro programita de un arreglo simple
#!/usr/bin/perl
@frutas=("manzana","pera","naranja","fresa");
print "Los elementos son: \n\n";
foreach $fruta (@frutas)
{
print $fruta."\n\n";
}
exit;
SALUDOS A TODOS
ATTE: JESUS ALEJANDRO BELTRAN REYNA
No hay comentarios:
Publicar un comentario