是冒泡法排序吧?
我这儿一段代码,是直接从自己的程序中copy来的,没有修改,你参考一下吧。
var
v_rs_zc:array[1..9] of integer
//人数(主次图用)
v_bz_zc:array[1..9] of real
//比重
.............
{对v_rs_zc进行排序}
procedure zct_sort;
var
i,j,T,N:integer;
T1:string;
Begin
N:=9
//个数
For j:=1 to N-1 do
For i:=1 to N-j do
begin
If v_rs_zc<v_rs_zc[i+1] Then
begin
T:=v_rs_zc;
v_rs_zc:=v_rs_zc[i+1]
//人数
v_rs_zc[i+1]:=T;
T1:=v_gz;
v_gz:=v_gz[i+1]
//工种类别
v_gz[i+1]:=T1;
end;
end;
end;