DUVIDAS: introduzir codigo na TI-83+

nelsondac

nelsondac

Power Member
boas. tenho o seguinte código

[FONT=&quot]:ClrDraw[/FONT][FONT=&quot]:Text(0,0,"DECIMAL:"[/FONT][FONT=&quot]:Input "DECIMAL:",A[/FONT][FONT=&quot]:Text(12,0,"HEXIDECIMAL:"[/FONT][FONT=&quot]:Text(24,0,"BINARY:"[/FONT][FONT=&quot]:Text(42,0,"OCTAL:"[/FONT][FONT=&quot]:90→X[/FONT][FONT=&quot]:90→Y[/FONT][FONT=&quot]:36→Z[/FONT][FONT=&quot]:90→W[/FONT][FONT=&quot]:90→V[/FONT][FONT=&quot]:A→J[/FONT][FONT=&quot]:A→K[/FONT][FONT=&quot]:A→I[/FONT][FONT=&quot]:Lbl 0[/FONT][FONT=&quot]:I/10→N[/FONT][FONT=&quot]:fPart(N)*10→O[/FONT][FONT=&quot]:iPart(N)→I[/FONT][FONT=&quot]:Text(6,V,O[/FONT][FONT=&quot]:V-4→V[/FONT][FONT=&quot]:If I=0[/FONT][FONT=&quot]:Then[/FONT][FONT=&quot]:¦ Lbl 1[/FONT][FONT=&quot]:¦ A/16→B[/FONT][FONT=&quot]:¦ fPart(B)*16→C[/FONT][FONT=&quot]:¦ iPart(B)→A[/FONT][FONT=&quot]:¦ If C<10[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,C[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ If C=10[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,"A"[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ If C=11[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,"B"[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ If C=12[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,"C"[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ If C=13[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,"D"[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ If C=14[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,"E"[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ If C=15[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Text(18,X,"F"[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ X-4→X[/FONT][FONT=&quot]:¦ If A=0[/FONT][FONT=&quot]:¦ Then[/FONT][FONT=&quot]:¦ ¦ Lbl 2[/FONT][FONT=&quot]:¦ ¦ J/2→E[/FONT][FONT=&quot]:¦ ¦ fPart(E)*2→F[/FONT][FONT=&quot]:¦ ¦ iPart(E)→J[/FONT][FONT=&quot]:¦ ¦ Text(Z,Y,F[/FONT][FONT=&quot]:¦ ¦ Y-4→Y[/FONT][FONT=&quot]:¦ ¦ If Y≤0[/FONT][FONT=&quot]:¦ ¦ Then[/FONT][FONT=&quot]:¦ ¦ ¦ 90→Y[/FONT][FONT=&quot]:¦ ¦ ¦ Z-6→Z[/FONT][FONT=&quot]:¦ ¦ End[/FONT][FONT=&quot]:¦ ¦ If J=0[/FONT][FONT=&quot]:¦ ¦ Then[/FONT][FONT=&quot]:¦ ¦ ¦ Lbl 3[/FONT][FONT=&quot]:¦ ¦ ¦ K/8→G[/FONT][FONT=&quot]:¦ ¦ ¦ fPart(G)*8→H[/FONT][FONT=&quot]:¦ ¦ ¦ iPart(G)→K[/FONT][FONT=&quot]:¦ ¦ ¦ Text(48,W,H[/FONT][FONT=&quot]:¦ ¦ ¦ W-4→W[/FONT][FONT=&quot]:¦ ¦ ¦ If K=0[/FONT][FONT=&quot]:¦ ¦ ¦ Then[/FONT][FONT=&quot]:¦ ¦ ¦ ¦ Stop[/FONT][FONT=&quot]:¦ ¦ ¦ End[/FONT][FONT=&quot]:¦ ¦ ¦ Goto 3[/FONT][FONT=&quot]:¦ ¦ End[/FONT][FONT=&quot]:¦ ¦ Goto 2[/FONT][FONT=&quot]:¦ End[/FONT][FONT=&quot]:¦ Goto 1[/FONT][FONT=&quot]:End[/FONT][FONT=&quot]:Goto 0

[/FONT]
Clicar para expandir...
tem umas cores esquisitas e tal... a dúvida é:
como instroduzir o "|" (suponho que seja isto, é aquele simbolo que tem entre os "then" e os "ends", depois de ":" em todas as linhas no inicio) ????

tenho aqui o codigo, não consegui mete-lo direito aqui....
 
Última edição:
Essas barras "¦" não são para introduzir. Estão lá (no binario.doc) só para fazer indentações, para o código ficar mais perceptível.

Da mesma maneira, os espaços que aparecem depois dessas barras também não são para colocar.
 
Copiei o código para um emulador da calculadora e funciona.

Código: 
ClrDraw
Text(0,0,"DECIMAL:"
Input "DECIMAL:",A
Text(12,0,"HEXIDECIMAL:"
Text(24,0,"BINARY:"
Text(42,0,"OCTAL:"
90->X
90->Y
36->Z
90->W
90->V
A->J
A->K
A->I
Lbl 0
I/10->N
fPart(N)*10->O
iPart(N)->I
Text(6,V,O
V-4->V
If I=0
Then
Lbl 1
A/16->B
fPart(B)*16->C
iPart(B)->A
If C<10
Then
Text(18,X,C
End
If C=10
Then
Text(18,X,"A"
End
If C=11
Then
Text(18,X,"B"
End
If C=12
Then
Text(18,X,"C"
End
If C=13
Then
Text(18,X,"D"
End
If C=14
Then
Text(18,X,"E"
End
If C=15
Then
Text(18,X,"F"
End
X-4->X
If A=0
Then
Lbl 2
J/2->E
fPart(E)*2->F
iPart(E)->J
Text(Z,Y,F
Y-4->Y
If Y=0
Then
90?Y
Z-6->Z
End
If J=0
Then
Lbl 3
K/8->G
fPart(G)*8->H
iPart(G)->K
Text(48,W,H
W-4->W
If K=0
Then
Stop
End
Goto 3
End
Goto 2
End
Goto 1
End
Goto 0
 
Inicie sessão ou registe-se para poder participar.
Back
Topo