1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.
  1. Boas pessoal!! Tenho aki um trabalho para fazer mas n estou a perceber mt bem como se faz :confused:... Será k m podem orientar?!

    Tenho d modificar este programa:

    [​IMG]

    K tem o código:​

    Código:
    [LEFT]Private Sub Command_Gerar_Click()
    Dim Numero As Long, Contador As Integer
    Numero = Text_ValorEntrado.Text
    List_Saida.Clear
    List_Saida.AddItem Numero
    Contador = 1
    Do Until Numero = 1[/LEFT]
     
    [LEFT]If Numero Mod 2 = 0 Then
    Numero = Numero / 2
    Else
    Numero = Numero * 3 + 1
    End If[/LEFT]
     
    [LEFT]List_Saida.AddItem Numero
    Contador = Contador + 1[/LEFT]
     
    [LEFT]Loop
    Label_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:

    Espero rsp
    Cumps ;)
     
    Última edição pelo moderador: 15 de Outubro de 2008

Partilhar esta Página