unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  arr:Array[1..5]of Integer;//定义全局数组变量

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  m,n,k,k_n,j:Integer;
begin
  for m:=1 to 4 do          //一共进行4轮比较
    begin
      k:=arr[m];            //假定最小值为k
      k_n:=m;               //最小值下标为k_n
      for n:=m+1 to 5 do  {第m轮比较时从第m个数到第5个数中
                           寻找出最小的与第m个数交换位置}
        if k>arr[n] then
          begin
            k:=arr[n];  //把较小的值赋值给k
            k_n:=n;     //较小值下标赋值给k_n
          end;
      if k_n<>m then  //一轮比较完，将最小的数与第m个数交换排列好第m个数
        begin
          j:=arr[k_n];
          arr[k_n]:=arr[m];
          arr[m]:=j;
        end;
    end;
  for m:=1 to 5 do
    Edit2.Text:=Edit2.Text+IntToStr(arr[m])+','; //每两个数之间以逗号分隔
  Edit2.Text:=Copy(Edit2.Text,1,Length(Edit2.Text)-1);//去掉最后一个逗号
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  m:Integer;
begin
  Edit1.Text:='';       //清除编辑框数据
  Edit2.Text:='';
  for m:=1 to 5 do
    arr[m]:=StrToInt(InputBox('输入5个整数','输入arr('+
        IntToStr(m)+')','0'));//输入数组元素arr[m]
  for m:=1 to 5 do
    Edit1.Text:=Edit1.Text+IntToStr(arr[m])+',';
  Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1);
end;

end.