代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
Ran_num:Array[1..10] of Integer;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
max,max_i:Integer;
begin
Randomize;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit1.ReadOnly:=True; //只能读,不能写
Edit2.ReadOnly:=True;
Edit3.ReadOnly:=True;
Edit4.ReadOnly:=True;
for i:= 1 to 10 do
begin
Ran_num[i]:=Random(90);
Edit1.Text:=Edit1.Text+inttostr(Ran_num[i])+','//如何输出数组
end;
Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1); //去掉最后一个符号
//数据进行筛选最大值及其下标
max:=Ran_num[1];
max_i:=1;
for i:=2 to 10 do
begin
if (max < Ran_num[i]) then
begin
max:=Ran_num[i];
max_i:=i;
end;
end;
Edit2.Text:=inttostr(max);
Edit3.Text:=inttostr(max_i);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,temp,j:Integer;
begin
temp:=0;
for i:=1 to 10 do
for j:=i+1 to 10 do//冒泡排序
if Ran_num[i]<Ran_num[j] then
begin //复合语句用到begin 和end
temp:=Ran_num[i];
Ran_num[i]:=Ran_num[j];
Ran_num[j]:=temp;
end;
for i:= 1 to 10 do
begin
Edit4.Text:=Edit4.Text+inttostr(Ran_num[i])+','
end;
Edit4.Text:=Copy(Edit4.Text,1,Length(Edit4.Text)-1);
end;
end.
运行结果如下: