Delphi里使用数组和冒泡排序
原文地址：http://www.blogkid.net/archives/71.html
Code:
program Project2;{＄APPTYPE CONSOLE}
uses
SysUtils;
function minor (i : Integer) : Integer ; //为了给数组赋值
var
a :Integer;
begin
result := -1;
for a := 0 to i do
begin
result :=result*( -1) ;
end;
end;
type
myarray = Array [0..99] of integer;
var
array_1:myarray;
i,j,temp : Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i:=0 to 99 do //赋值
begin
array_1[i]:= i*minor(i);
end;
writeln(‘排序前：’);
for i:=0 to 99 do //输出
begin
write(array_1[i],#32);
if ((i+1)mod 10) = 0 then
writeln;
end;
writeln;
for j:=0 to 98 do //排序
begin
for i:=0 to 98-j do
begin
if array_1[i] < array_1[i+1] then
begin
temp := array_1[i];
array_1[i] := array_1[i+1];
array_1[i+1] := temp;
end;
end;
end;
writeln(‘排序后：’);
for i:=0 to 99 do //再输出
begin
write(array_1[i],#32);
if ((i+1)mod 10) = 0 then
writeln;
end;
writeln(‘回车退出……’);
readln;
end.
0 Responses to “Delphi里使用数组和冒泡排序”