Escreva um algoritmo que leia 10 valores numéricos e exiba-os em ordem crescente. Utilize a técnica de ordenação Bubble Sort para ordenar os valores.

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:

• Compare os elementos adjacentes da lista.
• Se eles estiverem em ordem errada (o primeiro é maior que o segundo), troque-os de posição.
• Repita o processo até que nenhuma troca seja necessária, indicando que a lista está ordenada.

Ao final, exiba os valores ordenados.

Vamos ao Código em Pascal

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.

Explicação do Algoritmo Bubble Sort em Pascal / Delphi / Lazarus