twosort

癲左啦.......

var
  Form1: TForm1;
  data:array[1..6,1..4]of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
s:string;
begin
randomize;
for x:=1 to 6 do
  for y:=1 to 4 do
  data[x,y]:=random(100);

for y:=1 to 4 do
  begin
    s:='';
    for x:= 1 to 6 do
    s:=s+format('%3d',[data[x,y]]);
    memo1.Lines.Add(s);
  end;


end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,y,z,i,j,t:integer;
s:string;
temp:array[1..24] of integer;
begin
z:=1;
for y:=1 to 4 do
  for x:=1 to 6 do
    begin
     temp[z]:=data[x,y];
     z:=z+1;
    end;

//t:=0;    
for i:=1 to 24 do
  for j:=1 to 24-i do
  if temp[j]>temp[j+1] then
  begin
  t:=temp[j];
  temp[j]:=temp[j+1];
  temp[j+1]:=t;
  end;

z:=1;
for y:=1 to 4 do
  for x:= 1 to 6 do
    begin
    data[x,y]:=temp[z];
    z:=z+1;
    end;

memo1.Lines.Clear;
for y:=1 to 4 do
  begin
    s:='';
    for x:= 1 to 6 do
    s:=s+format('%3d',[data[x,y]]);
    memo1.Lines.Add(s);
  end;


end;

end.

檔案下載:http://www.badongo.com/file/17771628