1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

DUVIDAS: introduzir codigo na TI-83+

Discussão em 'Programação' iniciada por nelsondac, 22 de Outubro de 2007. (Respostas: 6; Visualizações: 688)

  1. nelsondac

    nelsondac Power Member

    boas. tenho o seguinte código

    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: 22 de Outubro de 2007
  2. balute

    balute Power Member

    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.
     
  3. nelsondac

    nelsondac Power Member

    pois, mas eu introduzi o código e ele não funca :/
     
  4. balute

    balute Power Member

    Dá algum erro? :wvsore: se sim, em que linha?
     
  5. Aparicio

    Aparicio /dev/mod
    Staff Member

    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
     
  6. nelsondac

    nelsondac Power Member

    não dá erro, simplesmente não calcula direito...
    funciona bem até ao numero 10, depois não dá...
    Onse se arranja o emulador??
     
    Última edição: 22 de Outubro de 2007
  7. Aparicio

    Aparicio /dev/mod
    Staff Member

    Testei alguns números e os resultados parecem estar correctos.

    Emulador: http://www.ticalc.org/archives/files/fileinfo/84/8442.html
     

Partilhar esta Página