noip2003普及组初赛试题答案

一．选择一个正确答案代码(A／B／C／D／E)，1．5301．下列计算机设备中，既是输入设备，又是输出设备的是()。A)键盘B)触摸屏C)扫描仪D)投影仪E)数字化仪2A)800*600B)1024*768C)640*480D)1280*1024D)处理器CPU执行的每条指令的长度都不同4．下列说法中，错误的是()。地址总线决定了处理器CPU所能的最大内存空间的大小处理器CPU内部有寄存器组，用来数据CPUCPU内存的速度比下列哪个设备要慢()B)C)D)E)光盘6．下列电子邮件地址，正确的是()。C)2D)7A)画笔(Paintbrush)B)记事簿(Notepad)WinRARE)MidiSoft8WindowsXPB)DOSC)LinuxD)OS／2E)Arch／Info9．下列哪个不是个人计算机的硬件组成部分()。主板B)操作系统C)电源D)硬盘E)10．(AlanTuring)是()A)人B)英国人C)德国人D)匈牙利人E)法国人11．第一个给计算机写程序的人是()。AlanMathisonAdaJohnvonJohnEdsgerWybe200311111010011 l运算式(2008)10－(3723)8(-1715)10B)(5)10C)(-5)16D)(111)2E)

CPUCPUA=true，B=false，C=true，D=true，A∧B∨C∧DtrueB)falseC)0D)1h2h+lB)hC)2h-1D)2hE)2h-列的元素是()。 A)5B)41C)77D)13E)18 文件的创建日期和修改日期可以在资源管理器中看到19．活动硬盘的容量比固定硬盘的容量()。B)C)D)E)大致相等20．IP8B)16C)32D)64510能够在两年内通过节省油钱把B高出A的价钱弥补回来，则他们就会B，否则就不会B。那么B的最高价格应为万。G1634433G832programPrograml；a：=100；if((x>y)or((y<>20)and(okl=0))and(ok2<>0))thenelseif((okl<>0)and(ok2=、0))then programProgram2；j：=l；fori：=2to7if(a[j]<a[i])thenj：=i；j：=j-fori：=1tojdowrite(a[i])；programProgram3；read(a，b，c，d)；a：=amod23：b：=bmod28；c：=cmod33；sum：=a*5544+b*14421+c*1288-d; sum：=summod21252;if(sum=0)then 输入：28310223programprogram4；a：array[0．．5]ofinteger；

cover：array[0．．22000]ofboolean；readif((a[5]=0)and(a[3]=0)and(a[1]=0))thena[5]：=a[4]；a[4]：=a[2]；a[3]：=a[0]；a[2]：=0a[0]：=0；fori：=0to5if(a[i]>10)thena[i]：=10+(a[i]mod2)；fori：=0to5dosum：=sum+a[i]*(6-i)；if((summod2)<>0)then wrin(`Can``tbedivided.`)；sum：=sumdiv2；max：=0；cover[0]：=True；fori：=1tosum*2docover[i]：=False；fori：=0to5dowhile(j<a[i])dofork：=maxdownto0beginif(cover[k])thencover[k+6-i]：=True；end；max：=max+6-i：j：=j+1；if(cover[sum])thenwrin(`Canbeelsewrin(`can``tbe输入：4792056 输入：100071012055 输入：20005l10输出 输出 输出四、完善程序(第l2328ax＾2+bx+c=0，要求给出它的实数解．输入：输出：如果无实数解，则输出"No33l2-

programProgram41；read(a，b，c)；m：=b*b-4*a*c；if(①)thenwrite(②write(`,`write((-1*b-sqrt(m))／(2*a)：0：③elseif(④)thenwrite(⑤)elsewrite(`Nosolution`)；都是正面朝上为止。例如，m1m23m39可；m为4时，翻11次即可；m为5时，翻24次即可；…；m为30时，翻899次即可；…输入：仅有的一个数字是这摞硬币的枚数m，0<m<1000。输出：

programPrograml；varm：integer；functionsolve(m：integer)：integer；vati，t，d：integer；if(m=1)thenso1ve：=elset：=2;i：=1;if(t=1)thensolve：=elseif(③t：=④untilreadif((m＞0)and