T

Using the QuickSort sorting algorithm, I modified only to accept the matrix instead of the array:First define the type:TMatrixType = array of array of Double;
Algorithm receives 4 parameters, matrix, minimum line index, maximum line index and column you want to order:procedure QuickSortDoubleMatrix(var Matrix: TMatrixType; iLo, iHi: Integer; Column: Integer);
var
Lo, Hi: Integer;
T, Pivot: Double;
begin
Lo := iLo;
Hi := iHi;
Pivot := Matrix[(Lo + Hi) div 2][Column];
repeat
while Matrix[Lo][Column] < Pivot do Inc(Lo) ;
while Matrix[Hi][Column] > Pivot do Dec(Hi) ;
if Lo <= Hi then
begin
T := Matrix[Lo][Column];
Matrix[Lo][Column] := Matrix[Hi][Column];
Matrix[Hi][Column] := T;
Inc(Lo);
Dec(Hi);
end;
until Lo > Hi;
if Hi > iLo then
QuickSortDoubleMatrix(Matrix, iLo, Hi, Column);
if Lo < iHi then
QuickSortDoubleMatrix(Matrix, Lo, iHi, Column);
end;
Create a console application:var
Matriz: TMatrixType;
Linhas, Colunas, I,J: Integer;
begin
SetLength(Matriz,6,2);
Matriz[0,0]:= 1;
Matriz[1,0]:= 2;
Matriz[2,0]:= 3;
Matriz[0,1]:= 3;
Matriz[1,1]:= 2;
Matriz[2,1]:= 1;
Matriz[3,0]:= 4;
Matriz[4,0]:= 5;
Matriz[5,0]:= 6;
Matriz[3,1]:= 6;
Matriz[4,1]:= 5;
Matriz[5,1]:= 4;
Linhas:= 5;
Colunas:= 1;
for J:= 0 to Colunas do
for I:= 0 to Linhas do
Writeln(format('Matriz[%d, %d] = %.2f', [I+1,J+1, Matriz[I,J]]));
QuickSortDoubleMatrix(Matriz, 0, Linhas, Colunas);
Writeln('');
Writeln('');
for J:= 0 to Colunas do
for I:= 0 to Linhas do
Writeln(format('Matriz[%d, %d] = %.2f', [I+1,J+1, Matriz[I,J]]));
Readln;
end.
Output:Matriz[1, 1] = 1,00
Matriz[2, 1] = 2,00
Matriz[3, 1] = 3,00
Matriz[4, 1] = 4,00
Matriz[5, 1] = 5,00
Matriz[6, 1] = 6,00
Matriz[1, 2] = 3,00
Matriz[2, 2] = 2,00
Matriz[3, 2] = 1,00
Matriz[4, 2] = 6,00
Matriz[5, 2] = 5,00
Matriz[6, 2] = 4,00
Matriz[1, 1] = 1,00
Matriz[2, 1] = 2,00
Matriz[3, 1] = 3,00
Matriz[4, 1] = 4,00
Matriz[5, 1] = 5,00
Matriz[6, 1] = 6,00
Matriz[1, 2] = 1,00
Matriz[2, 2] = 2,00
Matriz[3, 2] = 3,00
Matriz[4, 2] = 4,00
Matriz[5, 2] = 5,00
Matriz[6, 2] = 6,00