Question

完善程序：pascal语言

数组a中有n个按升序排列的元素，现要插入一个元素，且插入后a中的元素仍是升序。定义过程p对给定的值y，首先找插入位置，然后插入。
程序：
program chashu(input,output);
const n=50;
type
atype=array[1..n] of niteger;
var
a:atype;
i,count:integer;
procedure p(var x:atype;y:integer;var m:integer);
var i,k:integer;
begin
if m>=n then writeln('out range')
else begin
_________①________
while_________②_______do
k:=k+1;
_________③_________
x[i+1]:=x[i];
_________④_________
m:=m+1
end;
end;
begin
readln(count);
for i:=1 to count do
a[i]:=3*i;
for i:=1 to count do
write(a[i]:4);
write('y=');readln(y);
__________⑤__________
for i:=1 to count do
write(a[i]:4);
writeln
end.
注意：在原程序中，有y的读入，但未定义，以下两程序补充都有溢出。

Answer 1

1 : k:=1;
2 : (x[k]<=y)
3 : for i:=m downto k do
4 : x[k]:=y;
5 : p(a,y,count);

你运行看看 我就不编译了.应该没什么问题

Answer 2

自己做的
1、
k:=1;
2、
(x[k]>y)or(y>x[k+1])
3、
for i:=m downto k+1 do
4、
x[k+1]:=y;
5、
p(a,y,count);

Answer 3

插入排序啊，网上很多地方都有标程的

Answer 4

做程序应自己多多联系
多多看书
这才有效