Como fazer uma tabela organizada com bubble sorte ou outro algoritmo de ordenação?

Question

Esse &eacute; o c&oacute;digo do minha tabela mas preciso ordena ela mas n&atilde;o tenho ideia de como, se puder ajudar e com o  bubble sorte melhor ainda

Algoritmo semnome
//
//
// Descri&ccedil;&atilde;o   : Aqui voc&ecirc; descreve o que o programa faz! (fun&ccedil;&atilde;o)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 08/02/2019
Var
MATRIZ:vetor[0..5,0..8] de caracter
CONTADOR1: inteiro
CONTADOR2: inteiro
TROCA:inteiro

Inicio
CONTADOR1

Answer

PS: Em Python, n&atilde;o precisa de vari&aacute;vel auxiliar.
Como n&atilde;o entendi, exatamente, o que vc quer na pr&aacute;tica, te mostro esses dois v&iacute;deos
[MEDIA=youtube]J6hTSBc4Phs[/MEDIA]
[MEDIA=youtube]otqltM-ou0o[/MEDIA]

Answer

Voc&ecirc; vai armazenar dados como nome, cpf, endere&ccedil;os em apenas 8 caracteres?

Answer

Eu tenho que ordena de acordo com o numero dos pacientes que ser&atilde;o digitados na tela de execu&ccedil;&atilde;o pelo usu&aacute;rio, ex: paciente 5, paciente 4, paciente 3, paciente 2, paciente 1  e depois na tabela deve parecer tudo de forma crescente tipo isso: paciente 1, paciente 2, paciente 3, paciente 4, paciente 5

Answer

Aqui est&aacute; a l&oacute;gica do Bubble sort. Tem que ser adaptada para usar vetores: https://pt.wikipedia.org/wiki/Bubble_sort

Answer

Boa tarde pessoal...
Tamb&eacute;m fiquei curioso e fiz um teste do m&eacute;todo Bubble Sort, e fiz uma pequena adapta&ccedil;&atilde;o (Usei uma segunda vari&aacute;vel - Aux_II), usando Visual Basic.
Aqui vai o c&oacute;digo com uma ligeira pequena modifica&ccedil;&atilde;o.

Public Class Sorte
    Dim RandArray() As Integer

Private Sub BtnSorte_Click(sender As Object, e As EventArgs) Handles BtnSorte.Click

If TxtBxTamanho.TextLength = 0 Or Val(TxtBxTamanho.Text) < 0 Then
            TxtBxTamanho.Clear()
            TxtBxTamanho.Focus()
            MsgBox(Entre com um valor positivo., MsgBoxStyle.Information)
        Else
            TxtBxOriginal.Clear()
            TxtBxSorteado.Clear()

Dim Tamanho As Integer = TxtBxTamanho.Text
            Dim TesteSeOrdenado As Boolean
            Dim Aux, Aux_II As Integer
            ReDim RandArray(0 To CInt(Tamanho))

' Atribui os valores na ordem inversa (pior caso), ou seja, ordem decrescente
            For Olha As Integer = 0 To Tamanho
                RandArray(Olha) = Tamanho - Olha
                TxtBxOriginal.Text += RandArray(Olha) & vbNewLine
            Next

Aux_II = Tamanho

For Olha As Integer = 0 To Tamanho
                TesteSeOrdenado = True

' A vari&aacute;vel Aux_II &eacute; decrementada em menos 1, para o pr&oacute;ximo for (For Compara), pois, quando termina o mesmo,
                ' o maior valor j&aacute; est&aacute; na &uacute;ltima posi&ccedil;&atilde;o,
                ' (n&atilde;o sendo necess&aacute;rio fazer a compara&ccedil;&atilde;o at&eacute; a &uacute;ltima posi&ccedil;&atilde;o do vetor novamente).

Aux_II -= 1

For Compara As Integer = 0 To Aux_II
                    If RandArray(Compara) > RandArray(Compara + 1) Then
                        Aux = RandArray(Compara + 1)
                        RandArray(Compara + 1) = RandArray(Compara)
                        RandArray(Compara) = Aux
                        TesteSeOrdenado = False
                    End If
                Next
                If (TesteSeOrdenado) Then
                    Exit For
                End If
            Next

' Imprime o vetor na ordem crescente.

For Olha = 0 To Tamanho
                TxtBxSorteado.Text += RandArray(Olha) & vbNewLine
            Next
        End If
    End Sub
End Class

Fiz o teste para o pior caso, ou seja, o maior n&uacute;mero est&aacute; na primeira posi&ccedil;&atilde;o e o menor n&uacute;mero est&aacute; na &uacute;ltima posi&ccedil;&atilde;o.
Fico imaginando o c&oacute;digo com maior efici&ecirc;ncia, deve ser muito mais elaborado.

Ferramentas

Mover Tópico