Una grata sorpresa es saber que existe un lenguaje de programacion como PERL.
Este es mi primer código fuente. Es una programa para la consola de linux que suma los N primeros números impares. Es simple como procedimiento, lo encuadro en un nivel de dificultad "ni media neurona".
Helo aqui
#!/usr/bin/perl
# este programa calcula la suma de los N (es el limite) primeros numeros
# utiliza un bucle for.
print"*************************************\n";
print"* SUMA DE IMPARES 0.1 *\n";
print"* ---- -- ------- --- *\n";
print"*************************************\n";
print"cuantos impares desea sumar :";
chop($limite=<STDIN>);
print "\n";
# iniciar las variables que voy a usar en los calculos
# $suma llevara los totales de las sumas sucesivas
$suma=1;
for ($i=1;$i<$limite;$i++){
$suma=$suma+(($i*2)+1);
}
print "la suma de los $limite es : $suma \n";
Seguramente en un proximo encuentro subire mas.
No hay comentarios:
Publicar un comentario