Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

bgmc

Ordenar numeros

Mensagens Recomendadas

bgmc    0
bgmc

Boas a todos.

Ainda ando nos primeiros passos de programação em visual basic.

O problema é o seguinte:

Digitar seis numeros, e ordená-los.

Gostaria de saber se existe algum metodo facil para ordenar.

obrigado a todos

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Por exemplo (usando colecções)

        Dim numList As New List(Of Integer)
        numList.Add(1)
        numList.Add(24)
        numList.Add(12)
        numList.Add(33)
        numList.Add(8)

        numList.Sort()

        For Each num As Integer In numList
            Debug.WriteLine(num)
        Next

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Ou se preferires um array:

        Dim numList(5) As Integer
        numList(0) = 12
        numList(1) = 1
        numList(2) = 24
        numList(3) = 3
        numList(4) = 8
        numList(5) = 2

        Array.Sort(numList)

        For Each num As Integer In numList
            Debug.WriteLine(num)
        Next

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ribeiro55    44
ribeiro55

Ou talvez até algo mais "manual", como costumam pedir nos exercicíos:

       Dim Numeros() = {6, 3, 1, 26, 13, 24, 8, 54, 12, 32, 65, 22, 7}

        Dim TempNum As Integer
        For i As Integer = Numeros.Length - 1 To 0 Step -1
            If i >= 1 Then
                If Numeros(i) < Numeros(i - 1) Then
                    TempNum = Numeros(i)
                    Numeros(i) = Numeros(i - 1)
                    Numeros(i - 1) = TempNum
                    i = Numeros.Length
                End If
            End If
        Next

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ribeiro55    44
ribeiro55

OFFTOPIC

Mas isto até tem nome?

;):);) eu fui Googlar "bubble sort" :wallbash: Nunca tinha ouvido falar :-[

@bgmc

Diz qualquer coisa! Já tens para aqui material :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade