松果儿全套无圣光下载:直接插入排序
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 05:17:37
const n=8;
type art=array[1..n] of integer;
var
a:art;
x,i,num:integer;
procedure insert(x:integer ; var a:art ; var num:integer);
var
i,pos:integer;
search:boolean;
begin
pos:=1;
search:=true;
while search and (pos<=num) do
if x<a[pos]
then ()
else ();
for i:=() do a[i+1]:=a[i];
() ;
end;
begin
num:=0;
for i:=1 to n do
begin
read(x);
() ;
end;
for i:=1 to n do write(a[i]:4);
end.
type art=array[1..n] of integer;
var
a:art;
x,i,num:integer;
procedure insert(x:integer ; var a:art ; var num:integer);
var
i,pos:integer;
search:boolean;
begin
pos:=1;
search:=true;
while search and (pos<=num) do
if x<a[pos]
then ()
else ();
for i:=() do a[i+1]:=a[i];
() ;
end;
begin
num:=0;
for i:=1 to n do
begin
read(x);
() ;
end;
for i:=1 to n do write(a[i]:4);
end.
ni xiang shuo shm