全文预览

全国青少年信息学奥林匹克联赛初赛练习卷(八)new答案

上传者:随心@流浪 |  格式:doc  |  页数:13 |  大小:453KB

文档介绍
UNCTION OUTQUEUE(Q) //函数需要一个参数,Q记录类型//Р Q.FRONT := __②_(Q.FRONT+1) MOD (MAX+1)____;Р OUTQUEUE := Q.BASE[Q.FRONT]РEND; //函数结束//Р FUNCTION MAXNUMBER(C) //函数需要一个参数,C字符类型//Р Max := CHR(0);Р FOR i:=1 to T[C].LENGTH DOР CH := T[C].ELEMENT[i];Р IF __③_(CH>=’A’)AND (CH<=’Z’)_ THEN Р M := MAXNUMBER(CH)Р ELSE Р M := CHР ENDIF;Р IF MAX < M THEN Р MAX := MР ENDIF;Р ENDFOR;Р __④_ MAXNUMBER:=MAX;_Р END; //函数结束//Р FUNCTION TOTAL(C) //函数需要一个参数,C:字符类型//Р K := 0;Р FOR i:= 1 TO T[C].LENGTH DOР CH := T[C].ELELMENT[i];Р IF __⑤_(CH>=’A’)AND (CH<=’Z’)_ THEN Р M := TOTAL(CH);Р ELSEР M := ORD(CH)-ORD('0');Р ENDIFР K := K + MР ENDFOR;Р TOTAL := K;РEND; //函数结束//Р //主程序//Р MAX := 36;Р FOR TABNO := 'A' TO 'Z' DOР T[TABNO].LENGTH := 0;Р ENDFOR;Р Q.FRONT := 0; Q.REAR := 0;Р INQUEUE(Q,'L');Р WHILE (Q.FRONT <>Q .REAR ) DO

收藏

分享

举报
下载此文档