if (i<j ali++]=alj] while (i<j&&t>=a[i])i++ if (ij alj-]=alil I while (i<j) if (i<k) low=(2) else high=(3) Iwhile(4 return(a[]) 【上海大学1999一、1(8分)】 37.完善下列程序,每小题在 PASCAL语言(a)和C语言(b)中任选一题。下面是一个将 广义表逆置的过程。例如原来广义表为((a,b),c,(d,e),经逆置后为:(e,d),c,(b,a)) a)算法的 PASCAL语言过程描述(编者略):(b)算法的C语言过程描述: typedef struct glistnode struct glistnode *next union char data struct struct glistnode *hp, *tp: ptr I*glist, gnode; glist reverse(p) glist p iglist g, h, t, s if(p==NULL) Q=NULL lif(1)( g=(glist)malloc(sizeof (gnode)): q->tag=0 else le q>val data=p->val data: H f(3) It=reverse(p->val ptr. tp):s=t while(s->val ptr. tp! =NULL) s=s->val ptr. tp; s->val ptr. tp=(glist)malloc(sizeof(gnode)) s=s->val ptr. tp; s->tag=l; s->val ptr. tp=NULL val ptr. hp=h;(4 else iq=(glist)malloc(sizeof(gnode)); g->tag=l q->val ptr. tp=NULL;(5) I return(a) 【上海大学2002六、3(10分)】 38.完善下列程序,每小题在 PASCAL语言(a)和C语言(b)中任选一题。下面的程序将 数列1,2,3,…,n*,依次按蛇型方式存放在二维数组A[1.n,1..n]中。即(示意圖编者略) (a)算法的 PASCAL语言程序描述(编者略):(b)算法的C语言程序描述」if (i<j) a[i++]=a[j]; while (i<j && t>=a[i]) i++ if (i<j) a[j--]=a[i]; } while (i<j); a[i]=t; if (1) ; if (i<k) low= (2) ; else high= (3) ; }while(4) _; return(a[k]); } 【上海大学 1999 一、1（8 分）】 37. 完善下列程序，每小题在 PASCAL 语言（a）和 C 语言（b）中任选一题。下面是一个将 广义表逆置的过程。例如原来广义表为（（a,b）,c,（d,e）），经逆置后为：（（e,d）,c,（b,a））。 （a）算法的 PASCAL 语言过程描述（编者略）：（b）算法的 C 语言过程描述： typedef struct glistnode {int tag; struct glistnode *next; union{char data; struct{struct glistnode *hp,*tp;}ptr; }val; }*glist,gnode; glist reverse(p) glist p; {glist q,h,t,s; if(p==NULL) q=NULL; else {if(1) { q=(glist)malloc(sizeof(gnode)); q->tag=0; q->val.data=p->val.data; } else {(2) if (3) {t=reverse(p->val.ptr.tp); s=t; while(s->val.ptr.tp!=NULL) s=s->val.ptr.tp; s->val.ptr.tp=(glist)malloc(sizeof(gnode)); s=s->val.ptr.tp;s->tag=1;s->val.ptr.tp=NULL; s->val.ptr.hp=h; (4) __ } else {q=(glist)malloc(sizeof(gnode));q->tag=1; q->val.ptr.tp=NULL; (5) ; } } } return(q); } 【上海大学 2002 六、3 （10 分）】 38. 完善下列程序，每小题在 PASCAL 语言（a）和 C 语言（b）中任选一题。下面的程序将 数列 1,2,3,…,n*n,依次按蛇型方式存放在二维数组 A[1..n,1..n]中。即 (示意圖编者略)。 （a）算法的 PASCAL 语言程序描述（编者略）：（b）算法的 C 语言程序描述：