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;

１、画出广义表（（a,b),c）的存储结构；
２、写出计算一个广义表的原子结构个数的递归算法表示式；
３、编写实现上述算法的过程或函数程序。

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

五、选择踢　（８分）
１、下列排序算法中，在每一趟都能选出一个元素放到其最终位置上，并且其时间性能受数据特性的影响的是________.

a 直接插入排序　　b　快速排序　　c　直接选择排序　　　d　堆排序

２、下列排序算法中，占用辅助空间最多是_______

a　归并排序　　　b　快速排序　　c　希尔排序　　d　堆排序

六、填空２０分

１、一棵左子树为空的二叉数在先序线索化后，其中的空链域的个数为______

2、若以｛４、５、６、７、８｝做为叶子节点的权值构造哈夫曼树，则其带权路径长度是________
3、在顺序存储的二叉树中，编号为i和j的两个结点处在同一层的条件是_______

剩下的省略…………
填空还有２题，都是基本题，七是作图题１２分，给你一些中序、先序、后序的字母，让你画出，完整的二叉树。（给你的三个序列都是不完整的）

八是解答题１０分，一道是给你一个图，要你找到，顶点１到其余各点的最短路径
还有一个二叉树的题目。