一道Free pascal题(题目在问题补充里)
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/16 16:00:51
一道Free pascal题(题目在问题补充里)
输入十个正整数,把这十个数按由大到小的顺序排列。请用两种方法,分别为:选择排序和冒泡排序。命名方式:21.pas和22.pas。
输入十个正整数,把这十个数按由大到小的顺序排列。请用两种方法,分别为:选择排序和冒泡排序。命名方式:21.pas和22.pas。
![一道Free pascal题(题目在问题补充里)](/uploads/image/z/16808191-7-1.jpg?t=%E4%B8%80%E9%81%93Free+pascal%E9%A2%98%EF%BC%88%E9%A2%98%E7%9B%AE%E5%9C%A8%E9%97%AE%E9%A2%98%E8%A1%A5%E5%85%85%E9%87%8C%EF%BC%89)
选择排序主件: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]