Fala galera do Show Delphi, tudo beleza?
Hoje vocês vão ver aqui como montar um algoritmo para a ordenação de valores usando a técnica do Bubble Sort.
O Código em Pascal é compatível com Delphi e Lazarus.
Para realizar o Bubble Sort, siga os seguintes passos:
Ao final, exiba os valores ordenados.
program OrdenacaoBubbleSort; var valores: array[1..10] of integer; i, j, aux: integer; begin // leitura dos valores writeln('Digite 10 valores:'); for i := 1 to 10 do begin readln(valores[i]); end; // ordenação com bubble sort for i := 1 to 9 do begin for j := i+1 to 10 do begin if valores[j] < valores[i] then begin aux := valores[i]; valores[i] := valores[j]; valores[j] := aux; end; end; end; // exibição dos valores ordenados writeln('Valores em ordem crescente:'); for i := 1 to 10 do begin write(valores[i], ' '); end; end. |
Neste código, é declarado um vetor de 10 posições para armazenar os valores informados pelo usuário. Em seguida, há um laço de repetição que lê os valores digitados pelo usuário e armazena no vetor.
Posteriormente, é utilizado o algoritmo de ordenação Bubble Sort para ordenar os valores do vetor em ordem crescente. Para isso, há dois laços de repetição aninhados, que percorrem o vetor e comparam os valores adjacentes, trocando-os de posição caso o valor da posição posterior seja menor que o valor da posição anterior.
Por fim, é exibido na tela o vetor ordenado em ordem crescente.
Publicamos no site Giovani Da Cruz, exemploe em C / C++, Python, Javascript e outros.
Beleza pessoal?
Neste post vimos mais a respeito do algoritmo de ordenação Bubble Sort e espero que possa ajudar nos seus estudos.
Dúvidas ou sugestões? Deixe o seu comentário!
Um abraço e até o próximo post! Valeu!
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
