一.选择题:( (1)一(40) )题每题1分,共60分) >

下列各题A),B),C),D)四个选项中,只有一个选项是正确的,请将正确选项涂写在
答题卡相应位置上,答在试卷上不得分. >

(1)微型计算机的性能主要取决于
A)内存 B)中央处理器 C)硬盘 D)显示卡>

(2)有一个数值152,它与十六进制数6A相等,那么该数值是
A)二进制数 B)八进制数 C)十进制数 D)四进制数>

(3)使用超大规模集成电路制造的计算机应该归属于
A)第一代 B)第二代 C)第三代 D)第四代>

(4)已知英文字母a的ASCII代码值是十六进制数61H,那么字母d的ASCII代码值是
A)34H B)54H C)24H D)64H>

(5)一片存储容量是1.44MB的软磁盘,可以存储大约140万个
A)ASCII字符 B)中文字符 C)磁盘文件 D)子目录>

(6)在MS-DOS环境中同时按下[Ctrl]和[Break]两个键,其作用是
A)终止当前操作 B)暂停当前操作 C)关机 D)热启动>

(7)将二进制数10000001转换为十制数应该是
A)127 B)129 C)126 D)128>

(8)磁盘处于写保护状态,那么磁盘中的数据
A)不能读出,不能删改,也不能写入新数据
B)可以读出,不能删改,也不能写入新数据
C)可以读出,可以删改,但不能写入新数据
D)可以读出,不能删改,但可以写入新数据>

(9)微型机启动后,DOS提示符是C:\>,现提示符变为C:\USER>,则说明刚执行过命令
A)PROMPT B)PROMPT C)PROMPT $P$G D)CD USER>

(10)MS-DOS文件系统目录的组织形式属于
A)关系型结构 B)网络型结构 C)树型结构 D)直线型结构>

(11)应用软件系统TH的总容量大约1MB,其主要程序文件存放在
A)XCOPY C:\TH A:\ B)XCOPY C:\TH A:\ /S
C)XCOPY C:\TH A:\ /M D)XCOPY C:\TH A:\ /P>

(12)执行COPY A.TXT+B.TXT这个DOS命令后得到的磁盘文件是
A)A.TXT B)B.TXT C)AB.TXT D)A+B.TXT>

(13)在WINDOWS中,将一个应用程序窗口最小化之后,该应用程序
A)仍在后台运行 B)暂时停止运行
C)完全停止运行 D)出错>

(14)CD-ROM属于
A)感觉媒体 B)表示媒体
C)表现媒体 D)存储媒体>

(15)在因特网(Internet)中,电子公告板的缩写是
A)FTP B)WWW C)BBS D)E-mail >

(16)按照翻译类型分类,FORTRAN77程序设计语言属于
A)汇编型 B)解释型
C)编译型 D)解释型兼编译型>

(17)一个完整的FORTRAN77源程序的组成不应该
A)只有一个主程序没有子程序
B)有一个主程序和若干子程序
C)有一个主程序和一个子程序
D)只有子程序而没有主程序>

(18)下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是
A)编辑时一行都必须从第7列开始
B)主程序第一行必须是PROGRAM语句
C)每个FORMATO语句必须具有标号
D)每个子程序中必须有一个RETURN语句>

(19)在FORTRAN77源程序中不能用作续行标志的字符是
A)0 B)X C)+ D)$>

(20)下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是
A)IMPLICIT语句可以放在REAL语句行之后
B)DATA语句可以在放在紧靠END语句行之前
C)注释行不可以放在END语句行之后
D)FORMAT语句可以放在PROGRAM语句行之前>

(21)下列FORTRAN77源程序的变量名之中,不符合规则的是
A)W B)W3 C)W─3 D)W3W>

(22)若FORTRAN77中一个INTEGER型数据占用2个字节,那么该类型的数据值范围是
A)-2147484648 2147483647 B)-32768 32767
C)0 4294967295 D)0 65535
(23)阅读下列程序
X=0.618
WRITE(*,'(E12.4)')X
END
程序运行后显示结果是
A).6180 B)6.180E-01 C).0618E+01 D).6180E+00>

(24)梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN77表达式中错误的是
A)1/2*(AB)*H B)(A+B)*H/2 C)(A+B)/2*H D)0.5*(A+B)*H>

(25)要选拔身高T>1.7米且体重W<62.5公斤的人,fortran的逻辑表达式是
a)t.ce.1.7.and.w.le.62.5 b)t.le.1.7.or.w.ge.62.5 c)t.gt.1.7.and.w.lt.62.5 d)t.gt.1.7.or.w.lt.62.5 >

(26)在fortran77的变量类型说明语句中没有
a)real语句 b)char语句 c)integer语句 d)logical语句 >

(27)一次成功的fortran77源程序编译操作,不能
a)同时编译一个主程序和一个子程序 b)同时编译几个子程序 c)同时编译一个主程序和几个子程序 d)同时编译几个主程序 >

(28)阅读下列程序 f=1.0 do 20,j=3,7,2 do 20,k=J-1,J 20 f=F*K write(*,'(13,f8.1)')j,f end 程序运行结果是
a)3 6.0 b)5 120.0 c)9 5040.0 d)9362880.0
(29)阅读下列程序 character*10 w do 10 k=1,10 read(*,'(a 10)'w if (w(1:2).eq.'ab'.or.w(1:2).eq.'ab')write(*,*)'',w10 continue end 程序的功能是
a)首字符是a或b的字符串被输出显示 b)第一、二个字符是aa或ab的字符串被输出显示 c)首字符是a或b的字符串将被输出显示 d)第一、二个字符是aa或bb的字符串将被输出显示>

(30)阅读下列程序 logical l read(*,*)a,b l=A.GT.B if(l)then x=B+2*A else x=B end if write(*,*)x end 使用键盘为上述程序输入两个初值4和3,其输出的x值是
a)4.0 b)3.0 c)11.0 d)10.0 >

(31)阅读下列程序 read(*,*)k write(*,100)k 100 format(15) end 程序运行时输入初始值12345,那么显示结果是
a)12345 b)2345 c)**** d)***** >

(32)阅读下列程序 integer f f(x,y)=X+Y a=-2.5 b=2.1 b=B+F(A,B) write(*,'(f3.1)')b end 程序运行的结果是
a).1 b).7 c)2.1 d)1.7 >

(33)阅读下列程序 a=3.5 call suba(a,a,a) write(*,'(f4.1)')a end subroutine suba(x,y,z) y=Y-2.0 z=Z+X end 程序运行的结果是 a)7.0 b)5.0 c)3.0 d)1.5 >

(34)阅读下列程序 character a*4,b*5,c*4 webstripperattrwas webstripperlinkwas=http://www.chinaschool.net/reeducate/com_grade/test/two/Z+X a,b,c/','middle','small'/ write(*,20)a,b,c 20 format(1x,a2,a3,a4) end 程序运行结果是
a)bigmiddle b)*********c)bigmidsma d)bimidsmal >

(35)阅读下列程序 n=0 do 10 k=1,3 n=N+1 m=K*N 10 continue write(*,'(1x,2i3)')m,k end 程序运行结果是
a)9 4 b)9 3 c)12 4 d) 12 3(#^) >

(36)阅读下列程序 fun(c,d)=a*c+b/d webstripperattrwas webstripperlinkwas=http://www.chinaschool.net/reeducate/com_grade/test/two/a*c+b/d a,b/1.0-1.0/ write(*,'(f4.1)')fun(a,b)-fun(b,a) end 程序运行结果是
a)0.0 b)4.0 c)2.o d)3.o >

(37)阅读下列程序 logical l1,l2,l3,l4,l5 webstripperattrwas webstripperlinkwas=http://www.chinaschool.net/reeducate/com_grade/test/two/a*c+b/d l1,l2,l3/3*.true./ l4=.NOT.L1.AND..NOT.L2.AND.L3 l5=.NOT.L1.OR..NOT.L2.OR.L3 write(*,*)l4,l5 end 程序运行结果是
a)t t b)t f c)f f d)f t >

(38)阅读下列程序 read(*.500)r.w write(*.500)r.w 500 format(1x,f5.2,f5.3) end 程序运行时输入初始值01234567899,结果显示的是 a)*****67.899 b)12.3456.789 c)********** d)123.4567.899 >

(39)阅读下列程序 y=-123WRITE(*,200)Y 200 format('y=',F5.1)' end 程序运行结果是
a)y=***** b)=***** c)y=-123.0 d)=-123.0 >

(40)阅读下列程序 k(x,y)=X/Y+X a=-2.0 b=4.0 b=1.0+K(A,B) write(*,'(f4.1)')b end 程序运行结果是
a)-1.0 b)1.0 c)2.0 d)3.0 >

(41)阅读下列程序 dimension m(3,3) data m/1,2,3,4,5,6,7,8,9/ write(*,100)(m(3,j),j=1,3) 100 format(1x,3i2) end 程序运行结果是
a)2 5 8 b)3 6 9 c)4 5 6 d)7 8 9 (42)阅读下列程序 integer a(100),g read(*,*)n,(a(i),i=1,N) do 10 i=1,N-1 g=I do 20 j=I+1,N if(a(j).lt.a(g))then g=J endif 20 continue k=A(I) a(i)=A(G) a(g)=K 10 continue write(*,'(1x,10i2)')(a(i),i=1,N) end 程序运行时输入的初始值是3,6,9,7,则运行结果是 a)6 7 8 b)8 7 6 c)6 8 9 d)9 8 6 (43)阅读下列程序 i=1 m=1 10 if(i.le.3)then fact=1 do 100k=1,2*I+1 fact=FACT*K 100 continue m=M+FACT i=I+1 goto 10 write(*,'(i15)')m end 程序运行结果是 a)5040 b)5160 c)5166 d)5167 (44)阅读下列程序 dimension s(3) webstripperattrwas webstripperlinkwas=http://www.chinaschool.net/reeducate/com_grade/test/two/I+1 s/1.0,2.0,3.0/ write(*,*)la(3,s) end function la(n,x) dimension x(n) la=0 l=2 do 20 i=1,N la=LA+X(I)/L 20 continue end 程序运行结果是 a)1.0000000 b)2.0000000 c)1 d)2 (45)阅读下列程序 dimension n(2) do 10 i=1,2 n(i)=0 10 continue k=2 do 20 i=1,K do 30 j=1,K n(j)=N(I)+1 30 continue 20 continue write(*,100),n(2) 100 format(i3,i3) end 程序运行结果是 a)2 3 b)3 3 c)2 2 d)3 2 (46)阅读下列程序 write(*,*)'input a,b,h(cm)' read(*,100)a,b,h s=(A+B)*H/2 s=INT(S*10+0.5)/10 write(*,200)s 100 format(3f4.2) 200 format(1x,'s=',F6.2)' end 程序运行时输入初始值246035701240,输出结果是 a)s=373.86 b)s=373.90 c)s=****** d)s=3738600.00 (47)阅读下列程序 integer a(3,3) data a/9,8,7,6,5,4,3,2,1/ write(*,10)((a(m,n),n=1,M=1,3) 10 format(i2/,2i2/,3i2) end 程序运行结果是 a)9 6 3 b)9 8 7 c)9 d)9 5 2 5 4 8 5 6 5 1 1 7 4 1 3 2 1 (48)点p在直角坐标系中的横坐标u=-3.5,纵坐标V=1.8,使用下列FORTRAN77程序计算射 线op与x轴正向的夹角度数.o是坐标原点. pk=45/ATAN(1.O) u=-3.5 v=1.8 write(*,*) *pk,'(deg)' end 在输出语句write(*,*)与*pk,'(deg.)'之间的空白处应该添加的是 a)atan2(u/v) b)atan2(u,v) c)atan2(v/u) d)atan2(v,u) (49)阅读下列程序 n=0 do 10 k=50,0,-2 do 10 l=-100,100,1 10 n=N+1 write(*,*)n end 程序运行结果是 a)5000 b)5026 c)5200 d)5226 (50)阅读下列程序 character*4 a,b,c*5 webstripperattrwas webstripperlinkwas=http://www.chinaschool.net/reeducate/com_grade/test/two/N+1 a,b,c/'your','boys','girls'/ write(*,'(1x,a4,a5,a6,a1)')a,b,c,'!' end 程序运行结果是 a)yourboysgirls! b)your凵boys凵girls! c)your凵boysgirls! d)yourboys凵girls! 二.填空题:(每空2分,共40分) 请将每空的答案写在答题卡__1__至__20__序号的横线上.答在试卷上不得分. (1)dos中的自动批处理文件的全名是__1__. (2)在dos启动盘中,除connand.com外,还有两个必备的系统文件,它们是msdos,sys (或ibmdos.com)与__2__. (3)在dos下,要将当前目录中ab.txt文件设置为只读属性,应该使用的完整命令行是 __3__. (4)在dos下,要查看当前目录中所有批处理文件的总字节数,应该使用的完整命令行 是__4__. (5)计算机病毒除有破坏性,潜伏性激发性外,还有一个最明显的特性是__5__. (6)阅读下列程序.其功能是求出方程2x3-3x2+4x-11=0在区间(1,5)中的一个实数根, 运行结果是显示根值和对分次数.使用的是二分算法. 请在其中______处填入适当的内容. fun(x)=2.0*X**3-3.0*X**2+4.0*X-11.0 data xl,xr,n/1.o,5.0,0/ 10 continue __6__ x=(XL+XR)/2.0 __7__ if(abs(fx).lt.1e-6 .or.n.ge.1000)then write(*,'(1x,a2,f12.7,a5,14)')'x=',X,' n=',N' else if(fun(__8__)*fx.ge.0.0)then xr=X else xl=X endif goto 10 endif end (7)阅读下列程序.其功能是计算y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5当X=3.1时的 值.主程序调用了函数子程序. 请在其中____处填入适当的内容. program pvalue __9__ data a/1.0,1.1,1.2,1.3,1.4,1.5/,n,x/6,3.1/ __10__ write(*,'(1x,a5,6f5.1)')'a(k)=',A' write(*,'(1x,a2,f5.1,a6,f8.2)')'x=',X,' ; y=',Y' end function poly(b,m,v) dimension b(m) poly=B(1) fv=1.0 do 10k=2,M fv=FV*V 10 __11__=POLY+B(K)*FV end (8)函数子程序dtoh能够将一个十进制正整数dec转换为一个表示十六进制数的字符 字符串,其长度不超过8.例如127转换为'7f'. 算法是:将dec除16取余,将所得的商再除16取余,如此反复,直到商和零为止,最后按 照逆序输出所得的各个余数. 请在其中____处填入适当的内容. character*8 function dtoh(dec) integer dec,r,pos pos=9 dtoh='' 111 continue __12__ if(pos.ge.1)then r=MOD(DEC,16) if(r.lt.1o)then __13__=CHAR(ICHAR('0')+R ) else dtoh(pos:pos)=CHAR(ICHAR('A')+R-10) else dtoh='**********' goto999 endif dec=DEC/16 if(__14__)goto 111 999 continue end program dechex character*8 dtoh wrete(*,*) dtoh(127) end (9)有一个十进制的四位数abcd与一个十进制的三位数cdc的差等于十进制的三位数abc. 下列程序按"abcd=9876"的样式打印出ABCD这个数. 请在其中____外填入适当的内容. integer a,b,c,d do 10 a=1,9 do 10 b=0,9 do 10 c=1,9 __15__ l=1000*A+100*B+10*C+D m=100*C+10*D+C n=100*B+C if(__16__)write(*,'(__17__)')'xabcd=',A,B,C,D' 10 continue end (10)阅读下列程序.其功能是使用筛法选出n以内的所有素数并显示. 算法:在n以内的自然数列中先筛除2的倍数;在2之后筛乘下的第一个数是3,于是再筛 除3的倍数;在3之后筛剩下的第一个数是5,于是再筛除5的倍数;如此重复下去,直到遇见 筛剩下的第一个数是最接近n的平方根的那个数为止. 请在其中____处填入适当的内容. program prines parameter (n=100) integer a(n),p(n) do 10 k=1,N 10 a(k)=K do 20 k=3,N 20 if(__18__.eq.0)a(k)=0 isr=SQRT(REAL(N)) do 30m=3,ISR,2 do 30k=M+2,N 30 if(a(k).ne.0.and.mod(a(k),m).eq.0)a(k)=0 m=1 do 40k=2.N if(a(k).ne.0)then __19__ m=M+1 endif 40 continue write(*,'(1x,1018)')(p(k),__20__) end 1999年4月 全国计算机等级考试二级笔试试卷 基础知识和fortran语言程序设计 答案及评分标准 一.选择题((1)～(40)题每题1分,(41)～(50)题每题2分,共60分) (1)b (2)b (3)d (4)d (5)a (6)a (7)b (8)b (9)d (10)c (11)b (12)a (13)a (14)d (15)c (16)c (17)d (18)c (19)a (20)b (21)c (22)b (23)d (24)a (25)c (26)b (27)d (28)c (29)b (30)c (31)b (32)a (33)c (34)d (35)a (36)b (37)d (38)c (39)b (40)b (41)b (42)c (43)d (44)d (45)b (46)b (47)c (48)d (49)d (50)b 二.填空题(每空2分,共40分)(所有字母都允许大,小写或大小写混合) (1)__1__autoexec.bat (2)__2__io.sys或ibmbio.com (3)__3__attrib ab.txt +r ab.txt (4)__4__dir *.bat或dir *.bat/p或dir *.bat/w或dir *.bat/p/w 或dir *.bat/w/p (5)__5__传染性或传播性 (6)__6__n=N+1或N=1+N __7__fx=FUN(X) __8__xr (7)__9__dimension a(6)或repl a(6) __10__y=POLY(A,N,X) __11__poly (8)__12__pos=POS-1 __13__dtoh(pos:pos) __14__dec.ne.0或dec.gt.0 (9)__15__do 10 d=0,9或DO 10,d=0,9 __16__l-m.eq.n或(l-m).eq.n __17__a6.411 (10)__18__mod(a(k),2) __19__p(m)=A(K) __20__k=1,M-1 >