TI-Basic | ejemplos de programas

Ejemplos de programas

El siguiente programa borrará la pantalla y escribirá el mensaje HOLA MUNDO:

:ClrHome
:Disp "HOLA MUNDO"

Este programa suma los números enteros entre 1 y 20 y guarda el resultado en la variable A. Después borra la pantalla y muestra el valor de la variable A:

:ClrHome
:0->A
:For(X,1,20)
:A+X->A
:End
:Disp A

El siguiente programa entra en un bucle infinito que muestra continuamente la tecla pulsada, excepto la tecla On, que sirve para abortar la ejecución de un programa de forma predefinida.

:ClrHome
:Repeat 0
:Repeat A
:getKey->A
:End
:ClrHome
:Disp A
:End

Una característica común de los juegos en TI-BASIC es usar las teclas del cursor para mover un objeto en pantalla. Este programa pinta un punto en la pantalla y lo mueve según la tecla del cursor pulsada. El código anterior a Lbl 1 inicializa la pantalla gráfica direccionable pixel a pixel.

:ClrDraw
:-47 -> Xmin
:47 -> Xmax
:-31 -> Ymin
:31 -> Ymax
:0 -> X
:0 -> Y
:Repeat 0
:Pt-Off(X,Y)
:getKey -> C
:If C = 24
:X-1 -> X
:If C = 25
:Y+1 -> Y
:If C = 26
:X+1 -> X
:If C = 34
:Y-1 -> Y
:Pt-On(X,Y)
:End

Este código el lento y grande. El siguiente código hace lo mismo de forma más optimizada. Por ejemplo, los paréntesis de cierre de funciones en TI-Basic no son necesarios.

:ZStandard
:ZInteger
:Delvar X
:Delvar Y
:Repeat 0
:getKey -> C
:Pt-Off(X,Y
:X + (Ans=26) - (Ans=24 -> X
:Y + (C=25) - (C=34 -> Y
:Pt-On(X,Y
:End
Other Languages
Deutsch: TI-Basic
English: TI-BASIC
français: TI-Basic
Nederlands: TI-BASIC
svenska: TI-BASIC
中文: TI-BASIC