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;
澄子 2009-10-12 23:12
...恭喜你終於和我們一起發瘋了= =(暴毆)
...這個...我還真的寫不出來啊...(當然= =)
【§→莎宏←§】 2009-10-12 22:38
╭軒轅佳晴.2009-10-12 22:53