Ejemplo 1
Ejemplo 1
Ejemplo 1
Ejemplo 1
En este ejemplo se emplea
calcular el resultado y
:prog1()
:Prgm
Ê
:InputStr "Enter an integer",n
Ë
:expr(n)!n
:0!temp:1!I
Ì
:While i{n
©Ì
:
temp+i!temp
©Ì
:
i+1!I
Ì
:EndWhile
Í
:Text "The answer is "&string(temp)
:EndPrgm
Ê
Solicita una entrada en la pantalla Program E/S.
Ë
Convierte la cadena introducida con InputStr en una expresión.
Ì
Calcula el bucle.
Í
Presenta la salida en un cuadro de diálogo.
Para obtener {, escriba 8 µ (cero). Para escribir
Nota:
@
8 p (veces)
H 2
H
Programación
para la entrada, el bucle
InputStr
para presentarlo.
Text
While...EndWhile
, pulse:
&
para
693