Bubble Sort com Array e Record

Usar o método de ordenação Bubble Sort com Array e Record

1º Declare um registro:

type
   TTipo = record
      nome: string[ 30 ];
      uf_origem: string[ 02 ];
      colocacao: Integer;
      pontuacao: integer;
   end;

2º Declare um procedimento, passando como parametro um array do tipo TTipo:

procedure SortArray( var Matriz: array of TTipo );

3º Codifique o procedimento:

procedure SortArray( var Matriz: array of TTipo );
var
   Posicao_1, Posicao_2: Integer;
   Temporario : TTipo; // Variável Temporária para Alternar Valores
begin
   for Posicao_1 := 0 to Length( Matriz ) - 1 do
   begin
      for Posicao_2 := 0 to ( Length( Matriz ) - 2 ) do
      begin
         if ( Matriz[ Posicao_2 ].pontuacao > Matriz[ Posicao_2 + 1 ].pontuacao ) then  // Ordem Crescente
         begin
            Temporario := Matriz[ Posicao_2 ];
            Matriz[ Posicao_2 ] := Matriz[ Posicao_2 + 1 ];
            Matriz[ Posicao_2 + 1 ] := Temporario;
         end;
      end;
   end;
end;

Esse foi um pequeno exemplo. A partir deste exemplo você pode encontrar uma utilização prática dentro de suas aplicações.

Artigos relacionados