一、１６分
1、PROGRAM g0101 ( output );
var a,b :integer ;
FUNCTION fc( x : integer ) : integer ;
begin a:=b+x ; x=b-x ; fc:=a*x ; end ;
FUNCTION fp ( VAR y :integer ) : integer ;
begin y:=b+y ;fp=y-a ; end ;
begin
a=2; b=3;
writeln('fc=' , fc(a) , ' fp= ' ,fp(b) ) ;
writeln( 'a=' ,a , 'b=' b )
end;
2、PROGRAM g0102 (output );
var a,b,c:integer ;
begin
new(a); a^:=3; new(b); b^5:=5 ;
a^:=a^+b^ ; c:=a;
c^:=a^*b^; b^:=a^-c^ ;
writeln( 'a=',a^,'b=b',b^,'c=',c^ );
end;
3、PROGRAM g0103 (output) ;
const a=3 ; b=4 ;c=7 ;
var
x:=array[1..a] of integer ;
y:=array[1..b] of integer ;
z:=array[1..c] of integer ;
i,j,k,h:integer ;
PROCEDURE ssar ;
var i,j,k:integer ; w:array[1..a]of integer ;
begin
for i:=1 to a do w[i]:=x[a+1-i];
i:=1 ;j:=1;k:=1;
while (i<=a) and (j<=b) do
begin
if w[i] > y[i] then begin h:=w[i] ; i=i+1; end
else begin h:=y[i] ; j:=j+1 ;end;
z[k]:=h ; k:=k+1 ;
end ;
while i<=a do begin z[k]:=w[i] ;k:=k+1; i:=i+1 end;
while j<=b do begin z[k]:=y[i] ;k:=k+1; j:=j+1 end;
end;
begin
for i:=1 to a do x[i]:=i*2 ;
for j:=1 to b do y[i]:=c-j ;
ssar ;
for i:=1 to c do write(z[i],''); writeln;
end ;

4 PROGRAM g0104 (output);
var a,b,c:integer;
FUNCTION fg(x:integer ;var y,z:integer):integer ;
begin z:=x*2; x:=z+1 ; y:=x+z ; fg :=y-1 ; end
begin
a:=1 ;b:=2;c:=1;
writeln('fg=',fg(fg(a,b,c),b,c)) ;
writeln('a=',a,'b=',b,'c=',c) ;
end;

二、１２分已知双连表中节点类型如下
Type
dpoint = ^list ;
list =RECORD
data:integer;
left ,right : dpointer ;
end ;
如下过程将在双连表第i个节点（i>=0）之后插入一个元素，为x的结点，请在答案栏给出题目中______处应该添入的语句或表达式，使之完成上述功能。

PROCEDURE insert ( var head :dpointer ;i,x:integer);
var s,p:dpointer ;
j:integer;
begin
new(s) ;s^data:=x;
if (i=0) then { 如果i=0，则将s结点插入到表头后返回}
begin s^.right=head ;____1_____ head:=s ; end
else
begin
p:=head; ____2____ {在双连表中查找第i 个节点，由p所指向}
while ((p<>nil) and (j<i) do
begin j:=j+1 ; _____3______ end ;
if(p<>nil) then
if (p^.right=nil) then
begin p^.right:=s ; s^.right:=nil ; ____4___ end;
else
begin s^.right:=p^.right ; ___5____
p^.right:=s; ____6_____ end
else
writeln('can not find node ');
end;
end;

三、１２分广义表是n(n>=0)个数据元素，a1,a2,……an的有限序列，
其中ai（1<=i<=n）或者是单个数据元素（原子），或仍然是一个广义表，广义表的结点具有不同的结构，即原子结点和子表结点，为了将两者统一，link域指向下一个结点，当其tag为１时表示是子结点，其sublist为指向子表的指针。因此，广义表可采用如下结构存储：
type
glist=^gnode ;
gonde=RECORD
link:glist;
case tag:0..1 of
0data:char);
1sublist:glist);
end;<=N）或者是单个数据元素（原子），或仍然是一个广义表，广义表的结点具有不同的结构，即原子结点和子表结点，为了将两者统一，LINK域指向下一个结点，当其TAG为１时表示是子结点，其SUBLIST为指向子表的指针。因此，广义表可采用如下结构存储：
１、画出广义表（（a,b),c）的存储结构；
２、写出计算一个广义表的原子结构个数的递归算法表示式；
３、编写实现上述算法的过程或函数程序。

四、１０分写一个算法，利用［０。。１］上的随即函数计算圆周率n的近似值，首先说明你的算法，而后编写相应的过程或函数程序。

五、选择踢（８分）
１、下列排序算法中，在每一趟都能选出一个元素放到其最终位置上，并且其时间性能受数据特性的影响的是________.
a直接插入排序
b快速排序
c直接选择排序
d堆排序
２、下列排序算法中，占用辅助空间最多是_______
a归并排序
b快速排序
c希尔排序
d堆排序

六、填空２０分
1、一棵左子树为空的二叉数在先序线索化后，其中的空链域的个数为______
2、若以｛４、５、６、７、８｝做为叶子节点的权值构造哈夫曼树，则其带权路径长度是________
3、在顺序存储的二叉树中，编号为i和j的两个结点处在同一层的条件是_______
剩下的省略…………
填空还有２题，都是基本题，七是作图题１２分，给你一些中序、先序、后序的字母，让你画出，完整的二叉树。（给你的三个序列都是不完整的）
八是解答题１０分，一道是给你一个图，要你找到，顶点１到其余各点的最短路径
还有一个二叉树的题目。