数组排序函数
来源:互联网 发布:现在开淘宝网店怎么样 编辑:程序博客网 时间:2024/05/19 20:57
//数组排序
procedure TForm1.ArraySort(var A: array of integer);
var
I, J, T: Integer;
begin
for I := High(A) downto Low(A) do
for J := Low(A) to High(A) - 1 do
if A[J] < A[J + 1] then
begin
T := A[J];
A[J] := A[J + 1];
A[J + 1] := T;
end;
end;
procedure TForm1.ArraySort(var A: array of integer);
var
I, J, T: Integer;
begin
for I := High(A) downto Low(A) do
for J := Low(A) to High(A) - 1 do
if A[J] < A[J + 1] then
begin
T := A[J];
A[J] := A[J + 1];
A[J + 1] := T;
end;
end;
- PHP 数组函数-数组排序
- 二维数组排序函数
- asp 数组排序函数
- php数组排序函数
- PHP 数组排序函数
- 数组排序函数
- PHP数组排序函数
- PHP数组--排序函数
- 定义函数数组排序
- PHP数组排序函数
- JavaScript的数组排序函数
- JavaScript数组随机排序函数
- PHP二维数组排序函数
- php二维数组排序函数
- PHP二维数组排序函数
- PHP二维数组排序函数
- PHP二维数组排序函数
- PHP二维数组排序函数
- ODBC, OLEDB, ADO, ADO.Net的演化简史
- 计算机信息表示之“位向量” - [计算机基础]
- Uiautomator Api浅析
- 树形查询简介
- 正则表达式删除代码的注释
- 数组排序函数
- nbu服务启动不了,解决方案
- 解决Robotium测试用例crash问题
- linux 查看系统版本信息
- javascript学习(1)
- iOS_二级制转十进制
- mysql查询优化
- maven依赖包在线仓库
- Ubuntu下安装MySQL