delphi 冒泡排序
来源:互联网 发布:网络爆笑儿童喜剧 编辑:程序博客网 时间:2024/04/29 01:20
aa:array[1..6]of integer=(3,10,6,8,98,22);
procedure maopao();
var
i,j,k,temp:integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do
begin
if aa[j]>aa[j+1] then
begin
temp:=aa[j];
aa[j]:=aa[j+1];
aa[j+1]:=temp;
end;
end;
end;
end;
procedure maopao();
var
i,j,k,temp:integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do
begin
if aa[j]>aa[j+1] then
begin
temp:=aa[j];
aa[j]:=aa[j+1];
aa[j+1]:=temp;
end;
end;
end;
end;
- delphi 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- 冒泡排序
- glscene:delphi 开源的十分好用的opengl控件
- 自己整理的一些DataGrid资料
- 提高网站及服务器效率的优化方案 (二)
- AppFuse运行test-canoo的中文问题
- 多线程编程
- delphi 冒泡排序
- 解决K700真机左右软键无响应Bug
- Oracle 数据库10g 与IBM DB2 UDB 8.1 技术对比
- JS可不可以监视页面是否被修改
- 结婚流程
- 用Eclipse开发J2ME手机游戏入门讲座
- 开张第一篇
- 寻求对java测试开发有兴趣的朋友
- 常用函数