Paso 6: Millas y kilómetros
Tal vez no le gustaba el programa de millas y kilómetros desde el nivel de principiantes. Esto podría ser porque tienes que cerrar el programa y reiniciarlo para ingresar un valor. Qué pasaría si te dijera, no tienes que. En este paso se mostrará una manera de hacer que el programa mejor y ser más práctico.Este es el programa:
: 0 -> A:0-> M:0-> N
: 3 Lbl
: ClrHome
: If A = 0:Then
: Output(1,1,"MILES:
: Output(1,7,M
: Output(2,1,"KM:
: Output(2,7,N
: 1 Goto
: Otro
: Output(2,1,"MILES:
: Output(2,7,M
: Output(1,1,"KM:
: Output(1,7,N
: 1 Lbl
: getKey -> K
: If = 25 K y A = 0 o K = 34 y A = 0
: Entonces
: ClrHome
: Output(2,1,"MILES:
: Output(2,7,M
: Output(1,1,"KM:
: Output(1,7,N
: 1 -> A
: 1 Goto
: Otro
: If = 25 K y A = 1 o K = 34 y A = 1
: Entonces
: ClrHome
:: Output(1,1,"MILES:
: Output(1,7,M
: Output(2,1,"KM:
: Output(2,7,N
: 0 -> A
: 1 Goto
: Otro
: If K = 105
: 2 Goto
: If K = 22
: Entonces
: ClrHome
: Otro
: 1 Goto
: 2 Lbl
: If A = 0:Then
: Output(2,1,"KM:
: Entrada "millas:", M
: M * 1.609344-> N
: Output(2,1,"KM:
: Output(2,7,N
: 3 Goto
: Otro
: Output(2,1,"MILES:
: Entrada "KM:", N
: N/1.609344
: Output(2,1,"MILES:
: Output(2,7,M
: 3 Goto
¿Qué hace?
Este programa primero mostrará esto:
MILLAS: 0
KM: 0
Si pulsas arriba o abajo cambiará de posición. Al pulsar Enter, pedirá un valor del que está en la parte superior. Escriba un valor y pulse Intro. Se calcular el otro valor y mostrarlo. Cuando ahora Presione arriba o abajo, millas y kilómetros cambiará posición otra vez, así que son los valores, hasta que pulse Enter otra vez. Entonces cambian los valores a 0 y el programa le pedirá un otro valor del que está en la parte superior. Cuando usted pulse MODE, el programa se detendrá.
Cuando haces un programa que utiliza variables, recomiendo para cambiar todas las variables que usas en 0 al comienzo del programa. La 'y' y 'o' comando puede ser encontrado presionando 2nd, math (prueba) y pulsa izquierda.
