数据�l�构�W�三章设计题�?qi��ng)参考答案[10]_跨考网

 (t��ng) (t��ng) (t��ng) (t��ng) (t��ng)  (t��ng)1�Q�线性表中元素存攑֜�向量A�Q?/span>1,�?/span>,n�Q�中�Q�元素是整型数。试写出递归���法求出A中的最大和最���元素。�?a target="_blank">北京邮电(sh��)大学 1994 �?/span> �Q?/span>10分）(j��)�?/span>

　　【参考答案�?/span>

　　本题?sh��)��上题类��|��只是�q�里是同时求n个数中的最大值和最���值的递归���法�?/span>

　　int MinMaxValue(int A[],int n,int *max,int *min)

　　//一�l�数�l?/span>A中存放有n个整型数�Q�本���法递归的求出其中的最���数�?/span>

　　{if (n>0)

　　{if(*max<A[n]) *max=A[n];

　　if(*min>A[n]) *min=A[n];

　　MinMaxValue(A,n-1,max,min);

　　}//���法�l�束

　　[���法讨论]调用本算法的格式�?/span>MinMaxValue(arr,n,&max,&min);其中�Q?/span>arr是具�?/span>n个整数的一�l�数�l�，max=-32768是最大数的初�?/span>,min=32767是最���数的初倹{�?/span>

　　2. 写出和下列递归�q�程�{��h(hu��n)的非递归�q�程�?/span>

　　PROCEDURE test(VAR sum:integer);

　　VAR a:integer,

　　BEGIN

　　read(a);

　　IF a=0 THEN sum:=1

　　ELSE BEGIN test(sum); sum:=sum*a�Q?/span>END;

　　write(sum)�Q?/span>

　　END; �?a target="_blank">清华大学 1996 二�?/span>

　　【参考答案�?/span>

　　[题目分析]�q�是以读入数据的��序为相反顺序进行篏乘问题，可将��d��数据攑օ�栈中�Q�到输入�l�束�Q�将栈中数据退�?gu��)���行篏乘。篏乘的初��gؓ(f��)1�?/span>

　　PROC test;

　　CONST maxsize=32;

　　VAR s:ARRAY[1..maxsize] OF integer, top,sum,a:integer;

　　[top:=0; sum:=1;//

　　read(a);

　　WHILE a<>0 DO

　　[top:=top+1; s[top]:=a; read(a); ]

　　write(sum:5);

　　WHILE top>0 DO

　　[sum:=sum*s[top]; top:=top-1; write(sum:5);]

　　ENDP;