1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.
Estado do Tópico:
Fechado a novas mensagens.
  1. Boas pessoal!!

    Tenho aki um trabalho para fazer mas n estou a perceber mt bem como se faz :confused: ... Será k m podem ajudar?!


    Tenho d modificar este programa:


    [​IMG]


    K tem o código:​


    Código:
    Código:
    [LEFT]Private Sub Command_Gerar_Click()
    Dim Numero As Long, Contador As Integer
    Numero = Text_ValorEntrado.Text
    List_Saida.ClearList_Saida.AddItem NumeroContador = 1
    
    Do Until Numero = 1
    
    If Numero Mod 2 = 0 ThenNumero = Numero / 2
    Else
    Numero = Numero * 3 + 1
    End If
    
    
    List_Saida.AddItem NumeroContador = Contador + 1
    
    
    LoopLabel_NumeroElementos.Caption = Contador
    End Sub[/LEFT]
    
     
    De modo a k este apresente o total de elementos da série de Collatz para diversos números de partida. Os números de partida são os inteiros compreendidos entre os dois números especificados ( de:... e até:... ).​


    [​IMG]

    Não estou bem a ver as alterações k tenho de fazer!!! :confused:

    S tiverem tempo e poderem dar uma ajuda era mt fixe!
    Tenho d entregar isto até 2ª feira! :smilliex:
    Toda a ajuda é bem vinda...

    Cumps ;)
     
    Última edição pelo moderador: 16 de Outubro de 2008
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

Estado do Tópico:
Fechado a novas mensagens.

Partilhar esta Página