procedure TForm1.BaseMaoPao;
var
Temp:Integer;
a:array[0..9] of Integer;
i,j,times:integer;
Str:string;
begin
a[0]:=9;
a[1]:=6;
a[2]:=4;
a[3]:=2;
a[4]:=5;
a[5]:=1;
a[6]:=7;
a[7]:=0;
a[8]:=8;
a[9]:=3;
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
for I := Length(a) downto 0 do //递减循环
begin
for J := 0 to i do //递增循环
begin
if a[j]>a[I] then
begin
Temp:=a[I];
a[I]:=a[J];
a[j]:=temp;
end;
end;
end;
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
mmo1.Lines.Add('最小值:'+IntToStr(Low(a)));//获得数组的最小下标值
mmo1.Lines.Add('最大值:'+IntToStr(High(a)));//获得数组的最大上标值
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
SetRank();
BaseMaoPao();
end;
procedure TForm1.SetRank;
var
Temp:Integer;
a:array of Integer;
i,j:integer;
Str:string;
begin
SetLength(a,8);
a[0]:=StrToInt(ed1.Text);
a[1]:=StrToInt(ed2.Text);
a[2]:=StrToInt(ed3.Text);
a[3]:=StrToInt(ed4.Text);
a[4]:=StrToInt(ed5.Text);
a[5]:=StrToInt(ed6.Text);
a[6]:=StrToInt(ed7.Text);
a[7]:=StrToInt(ed8.Text);
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
for I := Length(a)-1 downto 0 do
begin
for j := 0 to I do
begin
if a[J]>a[I] then
begin
Temp:=a[I];
a[I]:=a[j];
a[J]:=Temp;
end;
end;
end;
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
ed_Max.Text:=IntToStr(High(a));
ed_Min.Text:=IntToStr(Low(a));
end;
var
Temp:Integer;
a:array[0..9] of Integer;
i,j,times:integer;
Str:string;
begin
a[0]:=9;
a[1]:=6;
a[2]:=4;
a[3]:=2;
a[4]:=5;
a[5]:=1;
a[6]:=7;
a[7]:=0;
a[8]:=8;
a[9]:=3;
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
for I := Length(a) downto 0 do //递减循环
begin
for J := 0 to i do //递增循环
begin
if a[j]>a[I] then
begin
Temp:=a[I];
a[I]:=a[J];
a[j]:=temp;
end;
end;
end;
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
mmo1.Lines.Add('最小值:'+IntToStr(Low(a)));//获得数组的最小下标值
mmo1.Lines.Add('最大值:'+IntToStr(High(a)));//获得数组的最大上标值
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
SetRank();
BaseMaoPao();
end;
procedure TForm1.SetRank;
var
Temp:Integer;
a:array of Integer;
i,j:integer;
Str:string;
begin
SetLength(a,8);
a[0]:=StrToInt(ed1.Text);
a[1]:=StrToInt(ed2.Text);
a[2]:=StrToInt(ed3.Text);
a[3]:=StrToInt(ed4.Text);
a[4]:=StrToInt(ed5.Text);
a[5]:=StrToInt(ed6.Text);
a[6]:=StrToInt(ed7.Text);
a[7]:=StrToInt(ed8.Text);
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
for I := Length(a)-1 downto 0 do
begin
for j := 0 to I do
begin
if a[J]>a[I] then
begin
Temp:=a[I];
a[I]:=a[j];
a[J]:=Temp;
end;
end;
end;
Str:='';
for I := 0 to Length(a)-1 do
begin
Str:=Str+' '+IntToStr(a[I]);
end;
mmo1.Lines.Add(Str);
ed_Max.Text:=IntToStr(High(a));
ed_Min.Text:=IntToStr(Low(a));
end;