求pascal冒泡排序程序（全程序）
答案:2 悬赏:30 手机版
解决时间 2021-01-26 01:34
- 提问者网友：献世佛
- 2021-01-25 16:48
求pascal冒泡排序程序（全程序）
最佳答案
- 五星知识达人网友：思契十里
- 2021-01-25 17:29
var
a:array[1..10000] of longint;
i,j,m,n,t,s:longint;
flag:boolean;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
begin
flag:=true;
for j:=1 to n-i do
if a[j]>a[j+1] then
begin
s:=s+1;
t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
flag:=false;
end;
if flag then break;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.
a:array[1..10000] of longint;
i,j,m,n,t,s:longint;
flag:boolean;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
begin
flag:=true;
for j:=1 to n-i do
if a[j]>a[j+1] then
begin
s:=s+1;
t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
flag:=false;
end;
if flag then break;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.
全部回答
- 1楼网友：woshuo
- 2021-01-25 18:32
设有n个数
for i:=1 to n-1 do //进行n-1次比较
for j:=1 to n-i do //i次确定i个最大值，故只需比较前n-i个数
if a[j]>a[j+1] then //从小到大排序
begin
p:=a[j];a[j]:=a[j+1];a[j+1]:=p;
end;追问全程序！输出
for i:=1 to n-1 do //进行n-1次比较
for j:=1 to n-i do //i次确定i个最大值，故只需比较前n-i个数
if a[j]>a[j+1] then //从小到大排序
begin
p:=a[j];a[j]:=a[j+1];a[j+1]:=p;
end;追问全程序！输出
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯