Ir para conteúdo
  • Cadastre-se

Phillipe Silva

Membros
  • Total de ítens

    2
  • Registro em

  • Última visita

Tudo que Phillipe Silva postou

  1. Olá, A finalidade e ordena uma lista de números embaralhados em uma tsstringrid. Na verdade e um trabalho universitário da cadeira de estrutura de dados que estou fazendo de Sistemas de Informações. Mas também já resolvi ele hoje de manha, agora está faltando apenas o Merger e o Quick sort. A solução que obtive é que faltou a condição if e uma variável boolean e só precisava de apenas dois loopings. procedure TForm1.btnInsertionClick(Sender: TObject); var i, j: integer ; var aux: integer; var found : boolean; begin for i := 1 to 5000 do gridInsert.cells[1,i] := lista.lines[i-1]; for i := 2 to 5000 do begin aux := strtoint(gridInsert.cells[1,i]); j := i-1; found := false; while (j >= 1) and (not found) do if (aux < strtoint(gridInsert.cells[1,j])) then begin gridInsert.cells[1,j+1] := gridInsert.cells[1,j]; j := j-1; end else found := true; gridInsert.cells[1,j+1] := inttostr(aux); end End;
  2. Alguem poderia me ajudar com esse codigo de ordenação?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...