Algoritimo dos 5 maiores no vetor

Question

esto precisando implementar em um de meus sistemas uma fun��o na qual mando um vetor de aproximadamente 150 valores..e preciso retornar os 5 maiores valores dele..minha primeira ideia seria:aux: array...

Acacio · Answer

Tens que ordenar o vetor primeiramente, Existe o m�todo da bolha que faz isso, depois � s� pegar os cinco maiores.

M�todo da bolha mais ou menos
for i := 1 to high(vetor) do
for j := i to high(vetor) do
if vetor[i] < vetor[j] then
begin
varAux := vetor[i];
vetor[i] := vetor[j];
vetor[j] := varAux
end;

mais ou menos isso;

Rjun · Answer

Procure na internet sobre o algoritmo quicksort....

Motta · Answer

Veja este site , talvez ajude//www.nist.gov/dads/...

Nightshade · Answer

procedure Destaques(S: TListBox; L: TListView);
var
X,Y,Z: Integer;
ListaV, ListaN: TStringList;
Maior,MAux,Atual: Double;
MCorret: String;
begin
// try
L.Items.Clear;
ListaV := TStringList.Create;
ListaN := TStringList.Create;
Maior := 0;
MAux := 1000000000000;

//Verifica os 5 maiores
for Y := 0 to 4 do
begin
//Ordena Internamente
Maior := 0;
for Z := 0 to S.Items.Count -1 do
begin
Atual := (StrToFloat(S.Items.Strings[Z]));
if ((Atual <= MAux) and (Atual >= Maior)) then
begin
Maior := StrToFloat(S.Items.Strings[Z]);
MCorret := IntToStr(Z + 1);
end;
end;
MAux := Maior;
with L.Items.Add do
begin
Caption := IntToStr(Y + 1);
SubItems.Add(MCorret);
SubItems.Add(FloatToStr(Maior));
end;
end;
// except
//
// end;
end;

to tentando com esta fun��o..
o stringbox eh temporario, eh so pra teste q to usando ele, mais tarde sera um stringlist.. mas n importa :p
o problema que est� ocorrendo � que ele retorna 5X o mesmo valor, que realmente eh o maior da lista..

Marco Salles · Answer

amigo , pode parecer deselegante , mas eu faria teste simples com If Aninhados...Afinal o que se quer saber s�o os cincos maiores valores do vetor...

var
i:integer;
num:Double;
aux: array[1..5] of double ;
vetor: array [1..150] of double ;
begin
//claro que aqui devo carregar o aux=[0,0,0,0,0]
for i := 1 to high(vetor) do
 begin
   num:=vetor[i];

  if vetor[i] > aux[1] then
    begin
      aux[5]:=aux[4];
      aux[4]:=aux[3];
      aux[3]:=aux[2];
      aux[2]:=aux[1];
      aux[1]:=num;
     end
   else
     if vetor[i] > aux[2] then
       begin
        aux[5]:=aux[4];
        aux[4]:=aux[3];
        aux[3]:=aux[2];
        aux[2]:=num;
       end
     else
      if vetor[i] > aux[3] then
        begin
          aux[5]:=aux[4];
          aux[4]:=aux[3];
          aux[3]:=num;
        end
      else
        if vetor[i] > aux[4] then
          begin
           aux[5]:=aux[4];
           aux[4] :=num
         end
        else
         if vetor[i] > aux [5] then
            aux[5]:=num;
    end;
end;

Sinceramente n�o vejo muito o que se ganha em ordenar 150 posi�oes , enquanto que por outro lado so se precisa � de reogarnizar as vezes cinco , quatro , tres , duas , uma ou nenhuma posi��o do vetor Aux

Marco Salles · Answer

Deixe eu so apresentar outra forma , de apresentar estes If Aninhados , antes que algume o fa�a

Uma forma mais elegante seria

var
i,j,p:integer;
num:Double;
aux: array[1..5] of double ;
begin
for i := 1 to high(vetor) do
 begin
   num:=vetor[i];
   for j := 1 to 5  do
     begin
       if vetor[i] > aux [j] then
         begin
           for p:=5 downto j do
               aux[p]:=aux[p-1];
           aux[j]:=num;
           Break;
         end;
     end;
  end;

Nightshade · Answer

quando eu postei que a identa��o se perdeu, eu nao to acostumado com essa codifica��o do forum.....

Marco Salles · Answer

Desculpe-me mas fiquei sem entender ????

[b:fb92ebda95]cita��o de nightshade[/b:fb92ebda95]

quando eu postei que a identa��o se perdeu, eu nao to acostumado com essa codifica��o do forum..

F�rum Algoritimo dos 5 maiores no vetor #341240