xPasos - TODO POR PASOS

Objetivo:

Aprender el uso de la instrucción de ciclo FOR.

Problema:

Elaborar un programa que genere los números enteros comprendidos entre 1 y 1000 inclusive y hallar su suma.

Solución:

---

Análisis

Se debe usar una variable para almacenar el número que se va a sumar. Este número será generado usando una instrucción de ciclo FOR que inicie en 1 y finalice en 1000.

El ciclo FOR tiene la siguiente estructura:

For variable = valor_inicial To valor_final
... Aqui va el código que queremos ejecutar varias veces
Next


Para guardar la suma usaremos un acumulador, así:

acumulador = acumulador + valor_a_sumar

---

Variables

i_numero = Contador. Permite llevar el control de los números generados.
i_suma = Acumulador. LLeva la suma de los números generados.

---

Programa

;EJEMPLO NUMERO 005

EnableExplicit

OpenConsole()

Define.i i_numero, i_suma

#MAXIMO = 1000 ;DEFINE CONSTANTE

For i_numero = 1 To #MAXIMO
  i_suma = i_suma + i_numero
Next

Print("Suma: "+Str(i_suma))

Input()
CloseConsole()
End

---