一道Free pascal题（题目在问题补充里）
一道Free pascal题（题目在问题补充里）
输入十个正整数，把这十个数按由大到小的顺序排列。请用两种方法，分别为：选择排序和冒泡排序。命名方式：21.pas和22.pas。
输入十个正整数，把这十个数按由大到小的顺序排列。请用两种方法，分别为：选择排序和冒泡排序。命名方式：21.pas和22.pas。
赞 阿紫626 春芽
共回答了10个问题采纳率：100% 举报
选择排序主件：Begin
for I := 1 To N - 1 Do //做N - 1趟选择排序
begin
K := I;
For J := I + 1 To N Do //在当前无序区R[I..N]中选最小的元素R[K]
Begin
If R[J] < R[K] Then K := J
end;
If K I Then //交换R[I]和R[K]
begin
Temp := R[I];
R[I] := R[K];
R[K] := Temp;
end;
end；
End;
冒泡排序主件：
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]
for I := 1 To N - 1 Do //做N - 1趟选择排序
begin
K := I;
For J := I + 1 To N Do //在当前无序区R[I..N]中选最小的元素R[K]
Begin
If R[J] < R[K] Then K := J
end;
If K I Then //交换R[I]和R[K]
begin
Temp := R[I];
R[I] := R[K];
R[K] := Temp;
end;
end；
End;
冒泡排序主件：
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]
1年前
9
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前2个回答
-
1年前1个回答
-
1年前1个回答
-
1年前4个回答
-
1年前1个回答
-
1年前2个回答
-
1年前5个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗