miércoles, 3 de noviembre de 2010

Lab de lenguajes de progra (Dr.Elisa)

Programas en Perl

Hola a todos, aqui les dejo unos 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

1 comentario: