大神,求教
pascal吧
全部回复
仅看楼主
level 9
吧拔啊啊 楼主

1、 输入10个整数,把这10个数按从小到大的顺序排列。 (★★)
(冒泡法排序和选择法排序两种方法)
冒泡法排序:
program e1;
const n=10;
var
a:array[1..10] of integer;
i,j,t:integer;
begin
writeln('input ',n,' integer number:');
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; end;
for i:=1 to n do write(a[i]:5);
end.
能详细解释一下这个程序么?感谢
2015年06月05日 06点06分 1
level 8
实际上只要弄清楚几个FOR循环的作用就行了,
第一个:用来读数
第二个和第三个:用来排序(先对i和j进行多重循环(j=1到<i的任意一个数),如果在啊a[j]数比a[j+1]大,就进行交换,进行排序)
第四个:用于输出排列好的数
2015年06月05日 11点06分 2
level 9
吧拔啊啊 楼主
不好意思啊!第二个和第三个还是不太明白
2015年06月05日 16点06分 3
level 7
取一个数,带进去,做啊做啊做,然后就恍然大悟了
2015年06月06日 00点06分 4
level 9
free pascal自带快排。
2015年06月07日 10点06分 5
level 9
没必要全部看懂,把快排背下来就行了
2015年06月07日 10点06分 6
1