求初级Pascal插入排序
答案:1 悬赏:80 手机版
解决时间 2021-06-02 19:09
- 提问者网友：两耳就是菩提
- 2021-06-02 03:55
求初级Pascal插入排序
最佳答案
- 五星知识达人网友：忘川信使
- 2021-06-02 05:12
const
N=10;
var
a:array[1..N]of integer;
i,j,k:integer;
begin
(*每次外层循环结束a[1..i]包含了排好序的子数组*)
for i:=1 to N do
begin
read(k);
j:=i-1;
(*下面这个循环比较并把比k小的数往后挪,直到遇到合适的位置*)
while (j>0) and (a[j]<k) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=k;(*循环完后j+1就是挪动后留下的插入位置*)
end;
readln;
for i:=1 to N do
write(a[i],' ');
readln;
end.
N=10;
var
a:array[1..N]of integer;
i,j,k:integer;
begin
(*每次外层循环结束a[1..i]包含了排好序的子数组*)
for i:=1 to N do
begin
read(k);
j:=i-1;
(*下面这个循环比较并把比k小的数往后挪,直到遇到合适的位置*)
while (j>0) and (a[j]<k) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=k;(*循环完后j+1就是挪动后留下的插入位置*)
end;
readln;
for i:=1 to N do
write(a[i],' ');
readln;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯