📄 1985.htm
字号:
<SCRIPT LANGUAGE="JavaScript" SRC="../../../-fs0/sys/pop-up.js"></SCRIPT><html><!-- #BeginTemplate "/Templates/moban1.dwt" --><!-- DW6 --><head><STYLE type=text/css>TD { FONT-SIZE: 9pt}INPUT { FONT-SIZE: 9pt}A { TEXT-DECORATION: none}A:hover { COLOR: #d90000; TEXT-DECORATION: underline}</STYLE><META http-equiv=Content-Type content="text/html; charset=gb2312"><META content="MSHTML 6.00.2462.0" name=GENERATOR><style type="text/css"><!--a:link{text-decoration:none}a:hover{text-decoration:none}a:visited{text-decoration:none}--></style><!-- #BeginEditable "doctitle" --> <title>计算机等级考试学习网【studywang.yeah.net】</title><!-- #EndEditable --><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script language="JavaScript"><!--<!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);// -->//--></script></head><body bgcolor="#6a4f9a" alink="#cc0033" marginwidth="10" marginheight="10" link="#000000" vlink="#000000">
<!-- Spidersoft WebZIP Banner Ad Insert -->
<!-- For removal instructions see: http://www.spidersoft.com/webzip/help/noads.asp -->
<SCRIPT FOR=window EVENT=onload LANGUAGE="JScript">
initAd();
</SCRIPT>
<script language="JScript">
<!--
function initAd() {
document.all.AdLayer.style.posTop = -200;
document.all.AdLayer.style.visibility = 'visible'
MoveLayer('AdLayer');
}
function MoveLayer(layerName) {
var x = 10;
var y = 10;
var diff = (document.body.scrollTop + y - document.all.AdLayer.style.posTop)*.40;
var y = document.body.scrollTop + y - diff;
eval("document.all." + layerName + ".style.posTop = y");
eval("document.all." + layerName + ".style.posLeft = x");
setTimeout("MoveLayer('AdLayer');", 60);
}
if (navigator.onLine){
document.write("<div bgcolor=#000000 style='height=70px;'></div>");
document.write("<div id=AdLayer style='position:absolute; width:100%; height:80px; z-index:20; visibility:hidden;'>");
document.write("<IFRAME SRC='http://www.spidersoft.com/ads/bwz468_60.asp' width=100% height=60 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no></IFRAME>");
document.write("</div>");
}
//-->
</script>
<!-- /Spidersoft WebZIP Banner Ad Insert -->
<TD align=middle> </TD><a href="http://abc.yesite.com/cgi-bin/abc.cgi?owner=llamaa" onClick="undefined;if(this.blur)this.blur()"> </a> <table width="750" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="396"> <tr> <td valign="top" colspan="3" height="61"> <table width="100%" border="0" cellpadding="0" cellspacing="0" height="59"> <tr> <td width="750" height="60"> <div align="center"> <a href="http://china.chance2mail.com/cgi-bin/regstep1.cgi?myid=GX00712519" target="_blank"><img src="../../../pic/caidou.gif" width="468" height="60" border="0"></a> <iframe width=150 frameborder=0 border=0 scrolling=no height=55 src="http://www.dangdang.com/league/link/showlink.asp?type=link&id=1&userid=P-1168271"></iframe></div> </td> </tr> <tr> <td height="2"><img height="1" width="750" src="../../../spacer.gif"></td> </tr> </table> </td> </tr> <tr> <td valign="top" height="13" colspan="3"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../../index.htm">首页</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../../turboc/index.htm">Turbo C</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../../djks/index.htm">计算机等级考试</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="../../index.htm">软件水平考试</a></font></td> <td width="100" bgcolor="#dadfef"><font color="#000000"><a href="http://www.qbbs.net/index.asp?code=llamaa">学习网论坛</a></font></td> <td width="100" bgcolor="#dadfef"> <div align="left"><font color="#FF0000"><a class=date title=Study TC onClick="window.external.addFavorite('http://studywang.yeah.net','学习网')"href="../../../ind/liaotianshi.htm"> <font color="#000000">聊天室</font> </a></font></div> </td> </tr> </table> </td> </tr> <tr> <td valign="top" height="63" colspan="3"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="750" height="63" valign="top"><!-- #BeginEditable "b" --> <p> </p> <p><font size="2" color="#FF0000"><a href="../../../index.htm" target="_blank"><font color="#000000">现在位置：首页</font></a><font color="#000000"> 》<a href="../../index.htm">软件水平（资格）考试</a> 》<a href="../index.html">历年试题</a></font></font></p> <!-- #EndEditable --></td> </tr> </table> </td> </tr> <tr> <td width="10" height="218" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="10" height="217"></td> </tr> <tr> <td height="1"><img height="1" width="10" src="../../../spacer.gif"></td> </tr> </table> </td> <td width="730" rowspan="2" valign="top"> <p> </p> <!-- #BeginEditable "a" --> 1985年计算机水平考试试题(下午) <p></p> <p>试题 1 ( 15分 )</p> <p>阅读下列程序流程图 ,从供选择的答案中找出应该填入 ( )处的字句</p> <p>,并写在答卷的对应栏内 .</p> <p><br> 供选择的答案:</p> <p>(a) 2, 0, -3, 7 (b) 0, -3, 2, 7 (c) -3, 0, 7, 2 (d) 7, 2, 0, -3</p> <p>(e) 2, 0, -3, -3 (f) -3, 0, 2, 7 (g) 2, 2, 0, -3 (h) 2, 0, 7, -3</p> <p><br> 设 N=4 ,数组 A 的初值为 2,0,-3,7 (即 A[1]=2,A[2]=0,A[3]=-3,A[4]=7 ).</p> <p><1> 程序执行完后, A 的值为 ( ).</p> <p><2> 若原流程图中,仅把I)框改为 I->J,则程序执行完后,A的值为( ).</p> <p><3> 若原流程图中,仅把III)框改为J:N-1,则程序执行完后,A的值为( ).</p> <p><4> 若原流程图中,仅把II)框改为 A[I]->A[J]</p> <p>A[J]->T </p> <p>T->A[I]</p> <p>则程序执行完后, A 的值为 ( ).</p> <p><br> 试题 2 (15)</p> <p>阅读下列求 S= X 的流程图, 从供选择的答案中找出应填入 a-g 处的字句.</p> <p>供选择的答案</p> <p>1,2: a. 读入X b. 读入S c. 读 入j d. 读入N e. 读入X</p> <p>3,5: a. i:2 b. i:3 c. i:4 d. i:N e. j:2 f. j:3 g. j:4 h. i:j i. j:N</p> <p>4: a.S*X ->S b. M*X ->S c. S+M ->S d. S+M ->S e. S+X ->S f. M+X ->S</p> <p>6,7: a. <= b. < c. = d. >= e. > f. <></p> <p><br> 阅读下列 pascal 程序, 把应该填入_______处的字句写在答卷的对应栏内.</p> <p>试题3 ( 15分 )</p> <p>[程序的说明] 本程序以如下格式打印杨辉三角形 (又称pascal三角形 )的前10行.</p> <p>1</p> <p>1 1</p> <p>1 2 1</p> <p>1 3 3 1</p> <p>1 4 6 4 1</p> <p>1 5 10 10 5 1 </p> <p>1 6 15 20 15 6 1</p> <p>[程序]</p> <p>program pascaltriangle (output);</p> <p>const lastrow = 10;</p> <p>var row,col:2..lastrow;</p> <p>fe:1..lastrow;</p> <p>pascal: array [1..lastrow] of integer;</p> <p>begin pascal[1] := 1;</p> <p>writeln (pascal[1]);</p> <p>for row := 2 to lastrow do</p> <p>begin pascal[row] := 1;</p> <p>for col := _________ do</p> <p>pascal[col] := pascal[_______] + pascal[_______];</p> <p>for fe := 1 to _______ do</p> <p>write (pascal[fe]);</p> <p>__________</p> <p>end</p> <p>end.</p> <p><br> 试题 4 (20分)</p> <p>[程序的说明] 本程序用来打印读入的正文, 并统计和打印该正文中所包含的行,</p> <p>句和字的数目以及娒扛鲎帜赋鱿值钠刀*. 规定句号(.)作为句子的结束, 不作它</p> <p>用 ; 字仅由字母组成且每个字不跨行.</p> <p>[程序]</p> <p>program textprocess (input,output);</p> <p>var ch: char; g: boolean; i: integer;</p> <p>letter: array [`A'..`Z'] of integer;</p> <p>begin g:=false;</p> <p>for ch:=`A' to `Z' do letter [ch]:=0;</p> <p>wordnum:=0; sentencenum:=0;</p> <p>linenum:=0;</p> <p>read (ch);</p> <p>while not eof do</p> <p>if not eoln then</p> <p>if ________ then</p> <p>begin while (ch >= _______ ) and (ch <=_______ )do</p> <p>begin write (ch);</p> <p>letter [ch] := letter[ch] + 1;</p> <p>____________ ;</p> <p>g := true</p> <p>end;</p> <p>if g then</p> <p>begin ___________;</p> <p>wordnum := wordnum + 1</p> <p>end</p> <p>else begin write (ch); read (ch)</p> <p>end</p> <p>end</p> <p>___________ begin _________________________ ;</p> <p>write (ch); read (ch)</p> <p>end</p> <p>else begin _________________________ ;</p> <p>writeln; read (ch)</p> <p>end;</p> <p>writeln; writeln;</p> <p>writeln (`linenum = ' , linenum);</p> <p>writeln (`sentencenum = ' , sentencenum);</p> <p>writeln (`wordnum = ' , wordnum);</p> <p>for ch:=______ to ______ do</p> <p>writeln (ch:3,`:',letter[ch] :6);</p> <p>writeln</p> <p>end.</p> <p>试题 5 ( 25分 )*</p> <p>[程序的说明] 读入一串整数, 按递增次序枸成一个二叉树.例如: 对以下八个数:</p> <p>97, -426, 278, 9, -627, 301, 156, 98 构成如右图所示的二叉树.</p> <p>[程序]</p> <p>program binarytree (input,output);</p> <p>type trees = ^boxes;</p> <p>boxes = record value:integer;</p> <p>left,right:trees</p> <p>end;</p> <p>var valofnode: integer;</p> <p>root: trees</p> <p>procedure add (int: integer; var t: trees);</p> <p>begin if t = nil then</p> <p>begin ________________ ;</p> <p>with t^ do</p> <p>begin value := ____________ ;</p> <p>left := ____________ ;</p> <p>right := ____________</p> <p>end</p> <p>end</p> <p>else with t^ do </p> <p>if ___________ then</p> <p>add(int,left)</p> <p>else ____________</p> <p>end; {add}</p> <p>begin {main program}</p> <p>root := nil;</p> <p>repeat read (valofnode);</p> <p>________________</p> <p>until eof</p> <p>end.<br> <br> </p> <!-- #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 + -