xPasos - TODO POR PASOS

Objetivo:

Aprender el uso de la instrucción de ciclo REPEAT-UNTIL.

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

El ciclo REPEAT-UNTIL tiene la siguiente estructura:

variable = valor_inicial

Repeat
... Aqui va el código que queremos ejecutar varias veces
... Aqui va el código que incrementa la variable de control del ciclo
Until variable > valor_final


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 008

EnableExplicit

OpenConsole()

Define.i i_numero, i_suma

#MAXIMO = 5 ;DEFINE CONSTANTE

i_numero = 1

Repeat
  i_suma = i_suma + i_numero  
  i_numero = i_numero + 1
Until i_numero > #MAXIMO  
  
Print("Suma: "+Str(i_suma))

Input()
CloseConsole()
End

---