|
马上注册,结交更多好友,享用更多功能^_^
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- implementation
- var
- num : array[1..100] of Integer;
- i : Integer = 0;
- {$R *.dfm}
- procedure TForm1.btn1Click(Sender: TObject);
- begin
- lbl1.Caption:= lbl1.Caption + edt1.Text + ' ';
- num[i]:= StrToInt(edt1.text);
- i:= i + 1;
- edt1.Text:= '';
- end;
- procedure TForm1.btn2Click(Sender: TObject);
- var
- j,k,l,n : Integer;
- begin
- for l:= 0 to i-1 do
- begin
- k:= i - l;
- for j:= 0 to k do
- begin
- if (num[j] < num[j+1]) then
- begin
- n:= num[j];
- num[j]:= num[j+1];
- num[j+1]:= n;
- end;
- end;
- end;
- lbl1.Caption:= '';
- for l:=i-1 downto 0 do
- lbl1.Caption:= lbl1.Caption + IntToStr(num[l]) + ' ';
- end;
复制代码 for l:=i-1 downto 0 do这一行,我原先的猜想是l:=i,但是排序的时候会在前面多出一个0,这点很不解。
|
|