主题：求插入排序程序
wangminrui0804
[专家分：30] 发布于 2010-01-11 20:29:00
将一列数用插入排序的方法从小到大排序！（我要程序）
回复列表 （共3个回复）
沙发
w75317 [专家分：530] 发布于 2010-03-12 16:11:00
我是程浩然笨蛋！！！
板凳
小田甜 [专家分：3910] 发布于 2010-03-13 18:11:00
1楼的，注意文明用语
程序如下：
var
a:array [1..100] of integer;
i,j,n,t,e:byte;
begin
readln(t); {total number}
read(a[1]);
for e:=2 to t do begin
read(n);
for i:=1 to e do if a[i]>n then break;
for j:=e-1 downto i do a[j+1]:=a[j];
a[i]:=n;
end;
for i:=1 to t do write(a[i]:8);
writeln;
end.
3 楼
chip [专家分：80] 发布于 2010-08-06 12:54:00
虽说简单，但不可藐视别人哦！
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求插入排序程序