viernes, 16 de diciembre de 2011

Sumar impares

Hola! por esas cosas de la vida, tuve que volver a mi viejo amor, a programar, fabricar herramientas informaticas a partir que otras, que sirvan para solucionar problemas en el tratamiento y presentacion de datos.!! 

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