|
Ejecución |
 |
|
Guión de la actividad 7.1:
Suma de los 100 primeros
números naturales |
|
Arrancar el KPL, haciendo clic dos veces sobre el
icono del escritorio.
|
 |
|
Escribir nuestro comentario
inicial: |
// Programa: Sumar100
// Autores: Lidia y Pablo
// Descripción: Este
programa calcula la suma
de los 100 primeros
// números naturales
|
|
Poner título al programa:
Borrar MyNewProgram y poner
Sumar100 en su lugar.
En el Método Principal,
Method Main(), escribimos: |
Var m
As
Integer
Var
suma
As
Integer
|
|
para definir las variables.
Después tecleamos: |
printLine("Vamos
a calcular la suma de
los 100 primeros números
naturales")
PrintLine("1+2+3+4+
... + 99+100")
|
|
para que el usuario entienda lo que hacemos y ahora
escribimos: |
For
m=1
To
100
suma=suma+m
Next
|
|
Esta sentencia que va desde
m igual a 1 hasta 100, va
asignando a la variable suma
los siguientes valores:
Para m=1, suma=0+1=1
Para m=2, suma=1+2=3
Para m=3, suma=3+3=6
Para m=4, suma=6+4=10
……………………………
Para m=99, suma=4851+99=4950
Para m=100, suma=4950+100=5050
y de esta manera, cuando salimos del bucle el último valor de
suma será el valor
deseado.
Por último, escribimos el
código: |
Print("La
suma es igual a ")
Print(suma)
|
|
que nos imprimirá por
pantalla el resultado de la
suma.
Guardaremos el archivo con
el nombre Sumar100,
seleccionando la carpeta
donde quiera ir almacenando
todas las actividades. Por
defecto la carpeta elegida
es My Phrograms Files que
está en Mis Documentos.
En el caso de existir algún
error en el CÓDIGO FUENTE de
nuestro programa, KPL nos
informa con un aviso de
ERROR y el cursor se sitúa
sobre la línea y secuencia
errónea. Lo rectificaremos.
Al ejecutar el programa
(F5), obtendremos: |
|
 |
|
¿Qué tendrás que cambiar en
el código del programa para
calcular la suma de los 200
primeros números naturales?
(Nota: la suma te
tiene que salir 20100). |
