鏁版嵁緇撴瀯絎笁绔犺璁￠鍙?qiáng)鍙傝€冪瓟妗圼10]_璺ㄨ€冪綉

聽聽聽聽聽 聽1錛庣嚎鎬ц〃涓厓绱犲瓨鏀懼湪鍚戦噺A錛?/span>1,鈥?/span>,n錛変腑錛屽厓绱犳槸鏁村瀷鏁般€傝瘯鍐欏嚭閫掑綊綆楁硶姹傚嚭A涓殑鏈€澶у拰鏈€灝忓厓绱犮€傘€?a target="_blank">鍖椾含閭數(shù)澶у 1994 鍏?/span> 錛?/span>10鍒嗭級(jí)銆?/span>

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

銆€銆€鏈涓庝笂棰樼被浼鹼紝鍙槸榪欓噷鏄悓鏃舵眰n涓暟涓殑鏈€澶у€煎拰鏈€灝忓€肩殑閫掑綊綆楁硶銆?/span>

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

銆€銆€//涓€緇存暟緇?/span>A涓瓨鏀炬湁n涓暣鍨嬫暟錛屾湰綆楁硶閫掑綊鐨勬眰鍑哄叾涓殑鏈€灝忔暟銆?/span>

銆€銆€{if (n>0)

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

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

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

銆€銆€}//綆楁硶緇撴潫

銆€銆€[綆楁硶璁ㄨ]璋冪敤鏈畻娉曠殑鏍煎紡鏄?/span>MinMaxValue(arr,n,&max,&min);鍏朵腑錛?/span>arr鏄叿鏈?/span>n涓暣鏁扮殑涓€緇存暟緇勶紝max=-32768鏄渶澶ф暟鐨勫垵鍊?/span>,min=32767鏄渶灝忔暟鐨勫垵鍊箋€?/span>

銆€銆€

銆€銆€2. 鍐欏嚭鍜屼笅鍒楅€掑綊榪囩▼絳変環(huán)鐨勯潪閫掑綊榪囩▼銆?/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錛?/span>END;

銆€銆€write(sum)錛?/span>

銆€銆€END; 銆?a target="_blank">娓呭崕澶у 1996 浜屻€?/span>

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

銆€銆€[棰樼洰鍒嗘瀽]榪欐槸浠ヨ鍏ユ暟鎹殑欏哄簭涓虹浉鍙嶉『搴忚繘琛岀瘡涔橀棶棰橈紝鍙皢璇誨叆鏁版嵁鏀懼叆鏍堜腑錛屽埌杈撳叆緇撴潫錛屽皢鏍堜腑鏁版嵁閫€鍑?guó)櫩涜绡忎箻銆傜瘡涔樼殑鍒濆€間負(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;