📄 19962.htm
字号:
<P align=justify><FONT lang=ZH-CN>2 美国 36 31 19</FONT></P> <P align=justify><FONT lang=ZH-CN>3 俄国 23 20 10</FONT></P> <P align=justify><FONT lang=ZH-CN>4 德国 14 15 23</FONT></P> <P align=justify><FONT lang=ZH-CN>5 法国 15 6 14</FONT></P> </DIR> <P align=justify><FONT lang=ZH-CN>本程序用来计算各国获奖牌总数（ZS），并能按用户要求（通过键盘输入），分别显示按金牌、银牌、铜牌或总数排名的名次表。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>] </B> <DIR> <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>USE JPK</FONT></P> <P align=justify><FONT lang=ZH-CN>A1 = “ ”</FONT></P> <P align=justify><FONT lang=ZH-CN>REPL <U>（1） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>@3,20 SAY“按何种奖牌排名”</FONT></P> <P align=justify><FONT lang=ZH-CN>@5,18 SAY“金牌</FONT>—<FONT lang=ZH-CN>JP 银牌</FONT>—<FONT lang=ZH-CN>YP”</FONT></P> <P align=justify><FONT lang=ZH-CN>@7,18 SAY“铜牌</FONT>—<FONT lang=ZH-CN>TP 总数</FONT>—<FONT lang=ZH-CN>ZS”</FONT></P> <P align=justify><FONT lang=ZH-CN>@9,18 SAY“请输入奖牌代号：”<U> （2） </U>A1</FONT></P> <P align=justify><FONT lang=ZH-CN>READ</FONT></P> <P align=justify><FONT lang=ZH-CN>SORT <U>(3) </U>TO MCK</FONT></P> <P align=justify><FONT lang=ZH-CN>USE MCK</FONT></P> <P align=justify><FONT lang=ZH-CN>CLEAR</FONT></P> <P align=justify><FONT lang=ZH-CN>LIST</FONT></P> <P align=justify><FONT lang=ZH-CN>USE</FONT></P> <P align=justify><FONT lang=ZH-CN>SET TALK ON</FONT></P> <P align=justify><FONT lang=ZH-CN>RETURN</FONT></P> </DIR> <P align=justify><FONT lang=ZH-CN>¬ 在打开数据库JPK后，欲显示金牌（JP）数在20块以上（含20块）的国家名字，要求只显示国名和金牌数，应使用 <U>（4） </U>命令。</FONT></P> <P align=justify><FONT lang=ZH-CN>­ 若需要显示前一个国家的金牌数总和，银牌数总和及铜牌数总和，可在打开数据库JPK后，使用 <U>（5） </U>命令。</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>阅读以下程序说明和 BASIC 程序，将应填入程序中<U> (n) </U>处的字句，写在答卷的对应栏内。</FONT></P> <P><B>[<FONT lang=ZH-CN>程序说明</FONT>]</B></P> <P align=justify><FONT lang=ZH-CN>本程序对于键盘输入的M，按不同情况输出相应结果：</FONT></P> <P align=justify><FONT lang=ZH-CN>当 M < 0 时，输出：‘M为负数’</FONT></P> <P align=justify><FONT lang=ZH-CN>当M为非整数时，输出‘M为非整数’</FONT></P> <P align=justify><FONT lang=ZH-CN>当M为偶数时，输出‘M为偶数’</FONT></P> <P align=justify><FONT lang=ZH-CN>当M为奇数时，输出表达式C<SUP>1</SUP><SUB>m</SUB>+ C<SUP>2</SUP><SUB>m</SUB>+……+C<SUP>m</SUP><SUB>m</SUB>的值。</FONT></P> <P align=justify><FONT lang=ZH-CN>其中</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>] </B> <DIR> <P align=justify><FONT lang=ZH-CN>DECLARE SUB P （X） <U>（5） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>COMMON SHARED N， G G = 1</FONT></P> <P align=justify><FONT lang=ZH-CN>INPUT “M=”， M FOR I = 1 TO N</FONT></P> <P align=justify><FONT lang=ZH-CN><U>（1） </U>G = G * I</FONT></P> <P align=justify><FONT lang=ZH-CN>CASE IF < 0 NEXT I</FONT></P> <P align=justify><FONT lang=ZH-CN>PRINT </FONT>“<FONT lang=ZH-CN> M 为负数 </FONT>”<FONT lang=ZH-CN> END SUB</FONT></P> <P align=justify><FONT lang=ZH-CN>CASE IS <> INT(M)</FONT></P> <P align=justify><FONT lang=ZH-CN>PRINT“ M为偶数”</FONT></P> <P align=justify><FONT lang=ZH-CN>CASE ELSE</FONT></P> <P align=justify><FONT lang=ZH-CN>N = M</FONT></P> <DIR> <DIR> <DIR> <P align=justify><FONT lang=ZH-CN>P N</FONT></P> <P align=justify><FONT lang=ZH-CN>T1 = G</FONT></P> <P align=justify><FONT lang=ZH-CN>W = 0</FONT></P> <P align=justify><FONT lang=ZH-CN>K = 1</FONT></P> <P align=justify><FONT lang=ZH-CN>DO UNTIL <U>（3） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>N = K</FONT></P> <P align=justify><FONT lang=ZH-CN>P N</FONT></P> <P align=justify><FONT lang=ZH-CN>T = T1 / G</FONT></P> <DIR> <P align=justify><FONT lang=ZH-CN>N = M </FONT>–<FONT lang=ZH-CN> K</FONT></P> <P align=justify><FONT lang=ZH-CN>P N</FONT></P> <P align=justify><FONT lang=ZH-CN>T = T / G</FONT></P> <P align=justify><FONT lang=ZH-CN>W = W + T</FONT></P> <P align=justify><FONT lang=ZH-CN>K = K + 2</FONT></P> </DIR> </DIR> </DIR> </DIR> </DIR> <P align=justify><FONT lang=ZH-CN><U>（4） </U></FONT></P> <P align=justify><FONT lang=ZH-CN>PRINT “W=”， W</FONT></P> <P align=justify><FONT lang=ZH-CN>END SELECT</FONT></P> <P align=justify><FONT lang=ZH-CN>END</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>本程序是寻找长整数A。A的个位数a [ 0 ]为指定的数p（取值分别为2、3、4、……、9）。若将A的个位数字移到其它各位数字之前，则其数值为原数值A的p倍。例如，p为4，则A为102564（各位数字分别存入a [ 5 ], a [ 4 ], ……,a [ 0 ]之中），有102564 5 4 = 410256。</FONT></P> <P align=justify><FONT lang=ZH-CN>寻找从a [ 0 ] = p出发，用p 乘已确定的位的数值可推出其前1位的数字，逐位进行，直到用p乘a [ n </FONT>–<FONT lang=ZH-CN> 1 ]等于a [ 0 ]，递推计算结束，A即为：</FONT></P> <P align=justify><FONT lang=ZH-CN>a [ n </FONT>–<FONT lang=ZH-CN> 1 ] a [n </FONT>–<FONT lang=ZH-CN> 2 ] …… a [ 0 ]</FONT></P> <P><B>[<FONT lang=ZH-CN>程序</FONT>] </B> <DIR> <P align=justify><FONT lang=ZH-CN>#define N 60</FONT></P> <P align=justify><FONT lang=ZH-CN>int a [ N ];</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>int p, i, n;</FONT></P> <P align=justify><FONT lang=ZH-CN>for ( p=2; p<=9; p++ )</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>n = search(p);</FONT></P> <P align=justify><FONT lang=ZH-CN>printf(</FONT>“<FONT lang=ZH-CN>p = %d: a = </FONT>“<FONT lang=ZH-CN>,p);</FONT></P> <P align=justify><FONT lang=ZH-CN>for(I = n - 1; <U>(1) </U>; i - -)</FONT></P> <P align=justify><FONT lang=ZH-CN>printf(</FONT>“<FONT lang=ZH-CN>%d</FONT>”<FONT lang=ZH-CN>, a [ i ] );</FONT></P> <P align=justify><FONT lang=ZH-CN>printf(</FONT>“<FONT lang=ZH-CN>\n</FONT>”<FONT lang=ZH-CN>);</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>int search (int p)</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>int i, t, c;</FONT></P> <P align=justify><FONT lang=ZH-CN>c = 0</FONT></P> <P align=justify><FONT lang=ZH-CN><U>(2) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>for (i = 1; ; i + + )</FONT></P> <P align=justify><FONT lang=ZH-CN>{</FONT></P> <P align=justify><FONT lang=ZH-CN>t = a[I-1]*p+c;</FONT></P> <P align=justify><FONT lang=ZH-CN>if (t==p) break;</FONT></P> <P align=justify><FONT lang=ZH-CN>a{I} = <U>(3) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>c = <U>(4) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> <P align=justify><FONT lang=ZH-CN><U>(5) </U>;</FONT></P> <P align=justify><FONT lang=ZH-CN>}</FONT></P> </DIR> <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>设有一个人员数据库RXK.DBF，其库结构为：</FONT></P> <P align=justify><FONT lang=ZH-CN>CH（C，6）；XM（C，8）；SFZH（C，15）；XL（C，8）；</FONT></P> <P align=justify><FONT lang=ZH-CN>DW（C，20）；CJGZ（D，8）；GZ（N，4）；</FONT></P> <P align=justify><FONT lang=ZH-CN>分别代表工号、姓名、身份证号、学历、单位、参加工作、工资。</FONT></P> <P align=justify><FONT lang=ZH-CN>及另一个考核成绩库CJK.DBF,其库结构为：</FONT></P> <P align=justify><FONT lang=ZH-CN>CH（C，6）；LR（N，5，1）；CZ（ N，5，1）；ZF（N，5，1）；</FONT></P> <P align=justify><FONT lang=ZH-CN>分别代表工号，理论成绩，操作成绩，总分。</FONT></P> <P align=justify><FONT lang=ZH-CN>本程序完成：</FONT></P> <OL> <LI><FONT lang=ZH-CN>总分计算；</FONT> <LI><FONT lang=ZH-CN>生成一个新数据库NEW，含字段GH，XM，XL，LR，CZ，ZF等。</FONT> <LI><FONT lang=ZH-CN>显示总分（ZF）超过160分的职工的GH，XM，LR，CZ。</FONT> </LI> </OL> <P><B>[<FONT lang=ZH-CN>程序</FONT>] </B> <DIR> <P align=justify><FONT lang=ZH-CN>SET TALK OFF</FONT></P> <P align=justify><FONT lang=ZH-CN>SELECT D</FONT></P> <P align=justify><FONT lang=ZH-CN>USE CJK</FONT></P> <P align=justify><FONT lang=ZH-CN>REPL ALL ZF WITH LR+CZ</FONT></P> <P align=justify><FONT lang=ZH-CN><U>(1) </U>TO CHKGH && CHKGH 为索引文件</FONT></P> <P align=justify><FONT lang=ZH-CN>SELECT F</FONT></P> <P align=justify><FONT lang=ZH-CN>USE RXK</FONT></P> <P align=justify><FONT lang=ZH-CN>SET <U>(2) </U></FONT></P> <P align=justify><FONT lang=ZH-CN>COPY TO NEW <U>(3) </U></FONT></P> <P align=justify><U><FONT lang=ZH-CN>(4) </FONT></U></P> <P align=justify><FONT lang=ZH-CN>LIST FIELDS <U>(5) </U></FONT></P> <P align=justify><FONT lang=ZH-CN>USE</FONT></P> <P align=justify><FONT lang=ZH-CN>SET TALK ON</FONT></P> <P align=justify><FONT lang=ZH-CN>RETURN</FONT></P> </DIR> </TD> </TR> </TBODY> </TABLE> <BR> </DIV> <!-- #EndEditable --> <p> </p> <p align="right"><font color="#000000">【<a href="http://emailpage.activepower.net/model/send.asp?emailpage_id=10887" target="_blank">把本页推荐给朋友</a>】【<a href="javascript:window.close()">关闭窗口</a>】</font><br> </p> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC"> <tr> <td width="499" height="8"></td> </tr> </table> <div align="center"><br> 版权所有©llamaa</div> </td> <td width="10" rowspan="3" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="10" height="250"></td> </tr> <tr> <td height="1"><img height="1" width="10" src="../../../spacer.gif"></td> </tr> </table> </td> </tr> <tr> <td height="13"></td> </tr> <tr> <td height="35"></td> <td></td> </tr></table></body><!-- #EndTemplate --></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -