西店中學(xué)計算機信息學(xué)競賽測試試卷、答題卷和答案(四)(編輯修改稿)
2025-07-04 22:10 本頁面
【文章內(nèi)容簡介】 39。..39。Z39。] OF INTEGER。BEGIN
FOR ch:=39。A39。TO 39。Z39。 DO count[ch]:=0。 READ(ch)。 WHILE NOT EOLN DO BEGIN IF (ch=39。A39。) AND (ch=39。Z39。) THEN count[ch]:=count[ch]+1。 READ(ch) END。 s:=0。 FOR ch:=39。B39。 TO 39。Y39。 DO s:=s+count[ch]。 WRITELN(s)END.運行程序，輸入一行正文39。WE ARE PROUD OF OUR COUNTRY！39。則程序的輸出是：2PROGRAM myt23(input,output)。 VAR a,b,c : integer。PROCEDURE p(VAR x:integer。 y:integer)。 VAR temp:integer。 BEGIN temp:=x DIV y+c。 x:=temp。 WRITELN(x:4,y:4,temp:4) END。 BEGIN a:=9。b:=2。c:=3。 p(a,b)。 WRITELN(a:4,b:4,c:4) END.程序運行的結(jié)果是：2PROGRAM myt26(INPUT,OUTPUT)。VAR a:ARRAY[1..6] OF INTEGER。i,j,k:INTEGER。BEGIN FOR i:=1 TO 6 DO READ(a[i])。 READLN。 FOR i:=1 TO 6 DO BEGIN IF i=1 THEN k:=1 ELSE k:=8i。 FOR j:=1 TO 6 DO BEGIN Writeln(a[k]:2)。 IF k=6 THEN k:=1 ELSE INC(k)。 END。 WRITELN。 END。END.程序運行時，從鍵盤輸入六個數(shù)：8 1 4 2 5 6（每兩個數(shù)之間有一個空格）則程序運行的結(jié)果是：四、完善程序：（每空3分，共36分）2【問題描述】會繞圈的四位數(shù)：任意選擇一個四位數(shù)，把它的每一位上的數(shù)字都平方，再相加得到另一個數(shù)；將這個數(shù)的每一位上的數(shù)字再平方，再將平方和相加；……；依次類推，那么這些所產(chǎn)生的一系列數(shù)字中將會有一個子序列會產(chǎn)生循環(huán)現(xiàn)象，下面的程序就是對這一現(xiàn)象進行驗證。PROGRAM myt27。CONST num=100。VAR I,j,x,a,b,c,d,z:INTEGER。m:ARRAY
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1