Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 22-09-2006
Robert01 Robert01 is offline
Miembro
 
Registrado: feb 2006
Ubicación: Córdoba, Argentina
Posts: 895
Poder: 21
Robert01 Va por buen camino
Hay varios algoritmos para ordenar matrices:
Burbuja, inserción, mezcla, ordenación rápida (qsort), etc
Este es el procedimiento qsort para ordenar un arreglo bidimensional (un vector de n elementos)
Para una matríz vas a tener que hacer algunas modificaciones según que columna quieras usar
para ordenar o si querés ordenar por filas.
Para algo más detallado te convendría ver el sitio numerical recipes o alguno parecido


Código Delphi [-]
procedure qsort(var a: arr;prim,ult,sen1:integer);
procedure quicksort(var a: arr; ilo, ihi: integer);
var
lo, hi, mid, t: integer;
begin
lo := ilo;
hi := ihi;
mid := a[(lo + hi) div 2];
repeat
while a[lo] < mid do
inc(lo);
while a[hi] > mid do
dec(hi);
if lo <= hi then begin
t := a[lo];
a[lo] := a[hi];
a[hi] := t;
inc(lo);
dec(hi);
end;
until lo > hi;
if (hi > ilo) then
quicksort(a, ilo, hi);
if (lo < ihi) then
quicksort(a, lo, ihi);
end;
begin
quicksort(a, prim, ult);
end;





saludos
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
funciones y matrices anto1178 Varios 1 28-08-2006 17:29:31
Matrices sergio_015 OOP 3 09-03-2005 19:53:07
Matrices mmtaffarel OOP 2 15-10-2004 03:19:27
Matrices dinámicas jplj Varios 2 30-08-2004 08:57:38
Matrices - problemas..... arieleb Varios 1 21-09-2003 12:30:35


La franja horaria es GMT +2. Ahora son las 11:02:56.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi