📄 19962.htm
字号:
<P align=justify><FONT lang=ZH-CN>FOR N = 4 TO 100 STEP 2</FONT></P> <P align=justify><FONT lang=ZH-CN>FOR X = 2 TO N </FONT>–<FONT lang=ZH-CN> 1</FONT></P> <P align=justify><FONT lang=ZH-CN>P = X</FONT></P> <P align=justify><FONT lang=ZH-CN>PRIME P</FONT></P> <P align=justify><FONT lang=ZH-CN>IF T = 1 THEN</FONT></P> <P align=justify><FONT lang=ZH-CN><U>(1) </U></FONT></P> <P align=justify><FONT lang=ZH-CN>PRIME P</FONT></P> <P align=justify><FONT lang=ZH-CN>IF T = 1 THEN</FONT></P> <P align=justify><FONT lang=ZH-CN>PRINT N; </FONT>“<FONT lang=ZH-CN>=</FONT>”<FONT lang=ZH-CN>; <U>(2) </U></FONT></P> <P align=justify><FONT lang=ZH-CN><U>(3) </U></FONT></P> <P align=justify><FONT lang=ZH-CN>END IF</FONT></P> <P align=justify><FONT lang=ZH-CN>END IF</FONT></P> <P align=justify><FONT lang=ZH-CN>NEXT X</FONT></P> <P align=justify><FONT lang=ZH-CN>NEXT N</FONT></P> <P align=justify><FONT lang=ZH-CN>END</FONT></P> <P align=justify><FONT lang=ZH-CN>SUB PRIME (Y)</FONT></P> <P align=justify><FONT lang=ZH-CN>FOR I = 2 TO SQR(Y)</FONT></P> <P align=justify><FONT lang=ZH-CN>T = 0</FONT></P> <P align=justify><FONT lang=ZH-CN>IF Y / I = <U>(4) </U>THEN EXIT FOR</FONT></P> <P align=justify><FONT lang=ZH-CN>NEXT I</FONT></P> <P align=justify><FONT lang=ZH-CN>IF <U>(5) </U>THEN T = 1</FONT></P> <P align=justify><FONT lang=ZH-CN>END SUB</FONT></P> <P><B><FONT lang=ZH-CN>试题</FONT> <FONT lang=ZH-CN>五</FONT></B></P> <P align=justify><FONT lang=ZH-CN>阅读以下程序说明和 C 程序，将应填入<U> (n) </U>处的字句，写在答卷的对应栏内。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序说明</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>本程序三位正整数中寻找符合下列条件的整数：它既是完全平方数，又有两位数学相同，例如</FONT>144<FONT lang=ZH-CN>、</FONT>676<FONT lang=ZH-CN>等，程序找出所有满足上述条件的三位数并输出。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>main ( )</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>int n, k, a, b, c;</FONT></P> <P align=justify><FONT lang=ZH-CN>for ( k = 1; ; k + + )</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN><U>(1) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>if ( n < 100) <U>(2) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>if ( n > 999) <U>(3) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>a = n / 100;</FONT></P> <P align=justify><FONT lang=ZH-CN>b = <U>(4) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>c = n % 10;</FONT></P> <P align=justify><FONT lang=ZH-CN>if (flag(a, b, c))</FONT></P> <P align=justify><FONT lang=ZH-CN>printf(</FONT>“<FONT lang=ZH-CN>N = %d = %d*%d\n</FONT>”<FONT lang=ZH-CN>, n, k, k);</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P align=justify><FONT lang=ZH-CN>flag(<U> (5) </U>)</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>return ! (( x </FONT>–<FONT lang=ZH-CN> y ) * ( x </FONT>–<FONT lang=ZH-CN> z ) * ( y </FONT>–<FONT lang=ZH-CN> z ));</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P><B><FONT lang=ZH-CN>试题</FONT> <FONT lang=ZH-CN>六</FONT></B></P> <P align=justify><FONT lang=ZH-CN>阅读以下程序说明和 FoxBASE 程序，将应填入<U> (n) </U>处的字句，写在答卷的对应栏内。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序说明</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>某工厂有</FONT>8<FONT lang=ZH-CN>个车间，分别设有数据库</FONT> CJ1<FONT lang=ZH-CN>，</FONT> CJ2<FONT lang=ZH-CN>，</FONT> … CJ8<FONT lang=ZH-CN>，它们具有相同的库结构：</FONT>GH<FONT lang=ZH-CN>（</FONT>C<FONT lang=ZH-CN>，</FONT>5<FONT lang=ZH-CN>）；</FONT>XM<FONT lang=ZH-CN>（</FONT>C<FONT lang=ZH-CN>，</FONT>8<FONT lang=ZH-CN>）；</FONT>GZ<FONT lang=ZH-CN>（</FONT>N<FONT lang=ZH-CN>，</FONT>5<FONT lang=ZH-CN>）；</FONT>…<FONT lang=ZH-CN>（分别表示工号、姓名、工资…）。本程序计算（</FONT>1<FONT lang=ZH-CN>）全厂工资在</FONT>500<FONT lang=ZH-CN>元和</FONT>550<FONT lang=ZH-CN>元之间的职工总人数</FONT>S<FONT lang=ZH-CN>。</FONT></P> <P align=justify><FONT lang=ZH-CN>（</FONT>2<FONT lang=ZH-CN>）全厂所有车间中工资大于本车间平均工资的职工数总和</FONT>W<FONT lang=ZH-CN>。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>SET TALK OFF</FONT></P> <P align=justify><FONT lang=ZH-CN>CLEAR</FONT></P> <P align=justify><FONT lang=ZH-CN>I = 1</FONT></P> <P align=justify><U><FONT lang=ZH-CN>（1） </FONT></U></P> <P align=justify><FONT lang=ZH-CN>DO WHILE I <= 8</FONT></P> <P align=justify><FONT lang=ZH-CN>DB = </FONT>“<FONT lang=ZH-CN>CJ</FONT>”<FONT lang=ZH-CN>+<U> （2） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>USE <U>（3） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>COUNT FOR GZ >= 500 .AND. GZ <= 550 TO P</FONT></P> <P align=justify><FONT lang=ZH-CN><U>（4） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>CONUT FOR GZ >AVGZ TO Q</FONT></P> <P align=justify><FONT lang=ZH-CN>S = S+P</FONT></P> <P align=justify><FONT lang=ZH-CN>W = W+Q</FONT></P> <P align=justify><FONT lang=ZH-CN><U>（5） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>USE</FONT></P> <P align=justify><FONT lang=ZH-CN>ENDDO</FONT></P> <P align=justify><FONT lang=ZH-CN>?</FONT>“<FONT lang=ZH-CN>全厂工资在500元和550元之间的职工人数为：</FONT>”<FONT lang=ZH-CN>，S</FONT></P> <P align=justify><FONT lang=ZH-CN>?</FONT>“<FONT lang=ZH-CN>全厂大于车间平均工资的职工人数总和为：</FONT>”<FONT lang=ZH-CN>，W</FONT></P> <P align=justify><FONT lang=ZH-CN>SET TALK ON</FONT></P> <P align=justify><FONT lang=ZH-CN>RETURN</FONT></P> <P><B><FONT lang=ZH-CN>试题</FONT> <FONT lang=ZH-CN>七</FONT></B></P> <P align=justify><FONT lang=ZH-CN>阅读以下程序说明和 BASIC 程序，将应填入程序中<U> (n) </U>处的字句，写在答卷的对应栏内。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序说明</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>对于十进制数成立如下一组等式：</FONT></P> <P align=justify><FONT lang=ZH-CN>9 5 1 + 2 = 11</FONT></P> <P align=justify><FONT lang=ZH-CN>9 5 12 + 3 = 111</FONT></P> <P align=justify><FONT lang=ZH-CN>9 5 123 + 4 = 1111</FONT></P> <P align=justify><FONT lang=ZH-CN>……</FONT></P> <P align=justify><FONT lang=ZH-CN>9 5 12345678 + 9 = 111111111</FONT></P> <P align=justify><FONT lang=ZH-CN>本程序用来验证对于任何R进制（3 <U><</U> R <U><</U> 10）数，都成立类似于上列的一组等式。程序输入R（R进制的基）和任一正整数M（1 <U><</U> M <U><</U> R-2），对于形如1 2 3 4 … （ M </FONT>–<FONT lang=ZH-CN> 1）M的R 进制数（记为P），验证成立如下等式：</FONT></P> <P align=justify><FONT lang=ZH-CN>R1 5 P + M1 = Q1</FONT></P> <P align=justify><FONT lang=ZH-CN>其中R1为R-1的值，M1为M + 1的值，Q1为由M1个1并列构成的R进制数（111…1）。</FONT></P> <P align=justify><FONT lang=ZH-CN>为简单起见，输出结果均以十进制数表示。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>DEFLNG P-Q DO WHILE <U>（3） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>INPUT “R=”， R K = K + 1</FONT></P> <P align=justify><FONT lang=ZH-CN>IF R < 3 OR R > 10 THEN Q = <U>（4） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>PRINT </FONT>“<FONT lang=ZH-CN>R-错误！</FONT>”<FONT lang=ZH-CN> IF Q < R THEN</FONT></P> <P align=justify><FONT lang=ZH-CN>END IF Q = 1 AND <U>（5） </U>THEN</FONT></P> <P align=justify><FONT lang=ZH-CN>END IF PRINT R1, P, M1, Q1</FONT></P> <P align=justify><FONT lang=ZH-CN>INPUT </FONT>“<FONT lang=ZH-CN>M=</FONT>”<FONT lang=ZH-CN>, M PRINT </FONT>“<FONT lang=ZH-CN>正确！”</FONT></P> <P align=justify><FONT lang=ZH-CN>IF M < 1 OR M > R </FONT>–<FONT lang=ZH-CN>2 THEN ELSE</FONT></P> <P align=justify><FONT lang=ZH-CN>PRINT </FONT>“<FONT lang=ZH-CN>M-错误！” PRINT “错误！”</FONT></P> <P align=justify><FONT lang=ZH-CN>END END IF</FONT></P> <P align=justify><FONT lang=ZH-CN>END IF END</FONT></P> <P align=justify><FONT lang=ZH-CN>R1 = R </FONT>–<FONT lang=ZH-CN> 1 ELSE</FONT></P> <P align=justify><FONT lang=ZH-CN>M1 = M + 1 C = Q MOD R</FONT></P> <P align=justify><FONT lang=ZH-CN>P = 0 END IF</FONT></P> <P align=justify><FONT lang=ZH-CN>FOR L = 1 TO M LOOP</FONT></P> <P align=justify><FONT lang=ZH-CN>P = <U>（1） </U>PRINT “错误！”</FONT></P> <P align=justify><FONT lang=ZH-CN>NEXT L END</FONT></P> <P align=justify><FONT lang=ZH-CN>Q = R1 * P + M1</FONT></P> <P align=justify><FONT lang=ZH-CN>Q1 = <U>（2） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>K = 0</FONT></P> <P align=justify><FONT lang=ZH-CN>C = Q MOD R</FONT></P> <P><B><FONT lang=ZH-CN>试题</FONT> <FONT lang=ZH-CN>八</FONT></B></P> <P align=justify><FONT lang=ZH-CN>阅读以下程序说明和 C 程序，将应填入程序中<U> (n) </U>处的字句，写在答卷的对应栏内。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序说明</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>本程序所列函数 replace ( char <SUP>*</SUP>s1, char <SUP>*</SUP>s2, char <SUP>*</SUP>str1, char <SUP>*</SUP>str2 )实现将已知字符串 s1 中所有与字符串 str1 相同的字符列时，就把该字符拷贝到字符数组 s2；当从某字符开始能构成一个与字符串 str1 相同的字符列时，就将字符串 str2 的各字符拷贝到字符数组s2，并继续访问字符串 s1 中那个字符列之后的字符，直至字符串 s1 被访问完，字符复制即告结束。</FONT></P> <P align=justify><FONT lang=ZH-CN>如程序中所列数据，程序运行输出为：</FONT></P> <P align=justify><FONT lang=ZH-CN>ABCXYZdefg abABCXYZd abab</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>replace (char *s1, char *s2, char *str1, char *str2)</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <DIR> <P align=justify><FONT lang=ZH-CN>char *t0, *t1, *t2</FONT></P> </DIR> <P align=justify><FONT lang=ZH-CN>while (<U> (1) </U>)</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>for (t0=s1, t1=str1;*t1 != </FONT>’<FONT lang=ZH-CN>\0</FONT>’<FONT lang=ZH-CN> && <U>(2) </U>; t0++, t1++);</FONT></P> <P align=justify><FONT lang=ZH-CN>if (*t1 != </FONT>’<FONT lang=ZH-CN>\0</FONT>’<FONT lang=ZH-CN>) *s2++ = <U>(3) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>else</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>for(t1=str2;*t1 != </FONT>’<FONT lang=ZH-CN>\0</FONT>’<FONT lang=ZH-CN> ;) *S2++ = <U>(4) </U>;</FONT></P> <DIR> <DIR> <DIR> <DIR> <P align=justify><FONT lang=ZH-CN><U>(5) </U>;</FONT></P> </DIR> </DIR> <P align=justify><FONT lang=ZH-CN>}</FONT></P> </DIR> </DIR> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P align=justify><FONT lang=ZH-CN>*S2 = </FONT>’<FONT lang=ZH-CN>\0</FONT>’<FONT lang=ZH-CN>;</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P align=justify><FONT lang=ZH-CN>main( )</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>char s1[ ] = </FONT>“<FONT lang=ZH-CN>abcdefg ababcd abab .</FONT>”<FONT lang=ZH-CN>;</FONT></P> <P align=justify><FONT lang=ZH-CN>char s2[80];</FONT></P> <P align=justify><FONT lang=ZH-CN>replace(s1, s2, </FONT>“<FONT lang=ZH-CN>abc</FONT>”<FONT lang=ZH-CN>, </FONT>“<FONT lang=ZH-CN>ABCXYZ</FONT>”<FONT lang=ZH-CN>);</FONT></P> <P align=justify><FONT lang=ZH-CN>printf(</FONT>“<FONT lang=ZH-CN>%s\n</FONT>”<FONT lang=ZH-CN>, s2);</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P><B><FONT lang=ZH-CN>试题</FONT> <FONT lang=ZH-CN>九</FONT></B></P> <P align=justify><FONT lang=ZH-CN>阅读以下程序说明和 FoxBASE 程序，将应填入<U> (n) </U>处的字句，写在答卷的对应栏内。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序说明</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>现在奥运会奖牌数据库（JPK.DBF）库结构如下：</FONT></P> <P align=justify><FONT lang=ZH-CN>GJ （C，10） 表示国家名称</FONT></P> <P align=justify><FONT lang=ZH-CN>JP （N，2） 金牌数</FONT></P> <P align=justify><FONT lang=ZH-CN>YP （N，2） 银牌数</FONT></P> <P align=justify><FONT lang=ZH-CN>TP （N，2） 铜牌数</FONT></P> <P align=justify><FONT lang=ZH-CN>ZS （N，3） 总数</FONT></P> <P align=justify><FONT lang=ZH-CN>及某一时刻数据库的前五条记录如下：</FONT></P> <P align=justify><FONT lang=ZH-CN>Record # GJ JP YP TP ZS</FONT></P> <DIR> <P align=justify><FONT lang=ZH-CN>1 中国 16 21 12</FONT></P>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -