xPasos - TODO POR PASOS

Objetivo:

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

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 WHILE que inicie en 1 y finalice en 1000.

El ciclo WHILE tiene la siguiente estructura:

variable = valor_inicial

While variable <= valor_final
... Aqui va el código que queremos ejecutar varias veces
... Aqui va el código que incrementa la variable de control del ciclo
Wend


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 007

EnableExplicit

OpenConsole()

Define.i i_numero, i_suma

#MAXIMO = 1000 ;DEFINE CONSTANTE

i_numero = 1

While i_numero <= #MAXIMO
  i_suma = i_suma + i_numero

  i_numero = i_numero + 1
Wend

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

Input()
CloseConsole()
End

---