江苏省高校等考（CCT）二级（FORTRAN90程序设计）模拟试卷1 - 众享搜题网

登录　| 注册　| 充值

首页 > 计算机 > 全国高校计算机二级 > 江苏省高校等考（CCT）二级（FORTRAN90程序设计）模拟试卷1

以下有关FORTRAN90基本概念的叙述中，正确的是________。关键字只能用大写字母，其他符号名(变量名、数组名、过程名等)只能用小写字母符号名必须以英文字母开头，后可接字母、数字、下划横线，不超过31个字符，字母大小写不限键盘上的可见字符均可作为字符型常数使用，但汉字不能作为字符型常数使用编译系统接受英文字母开头后接希腊字母作符号名

下列中，所指的FORTRAN90表达式都是正确的。 ①IAx+By+CzI ②bb+4ac ③.NOT..TRUE..AND..FALSE. ④‘A’<=ch<=‘Z’ ⑤X>100==.TRUE. ⑥SQRT(A2+B2) ⑦πR2 ⑧‘HAPPY’+‘NEW’+‘YEAR.’ ①②⑤ ②③④⑧ ②③⑤ ②⑤⑥⑦

类型声明语句为:INTEGER(2)::I 数据输出语句为:PRINT，I 变量 I中数据输出域宽是____________字符｡ 4 6 9 11

若程序内已定义了一个结构型数据: TYPERECORD CHARACTER(len=30)::name， addressINTEGER::Phone_number ENDTYPERECORD 则以下类型为RECORD的数组说明语句中正确的是____________｡ RECORD，DIMENSION(100)::list TYPE，RECORD，DIMENSION(100)::list TYPE(RECORD)，DIMENSION(100)::list RECORD(TYPE)，DIMENSION(100)::list

以下有关指针变量的说法中，错误的是________。指针变量是说明语句中含有POINTER属性的变量指针变量可以称为其所指向的目标变量的别名指针变量指向(或称指针赋值)的目标变量必须具有TARGET属性将非指针变量赋值给指针变量之前，该指针变量必须先前指向过某具TARGET属性的变量

以下程序执行后，输出的第一行是 (1) ，第二行是 (2) ，第三行是 (3) 。 PROGRAMspin_squareIMPLICITNONE INTEGER::i，j，k CHARACTER(len=5)::country(1:3，1:3)=’’，name(1:9)name=(/’China’，’Egypt’，’India’，’Japan’，’Korea’，& &’Libya’，’Nepal’，’Swiss’，’Syria’/) i=3; j=2 country(i，j)=name(1)DOk=2，9 i=i+1;j=j+1 IF(i>3.AND.J>3)THENi=i-2; j=j-1 ELSEIF(i>3.AND.j<=3)THEN i=1 ELSEIF(i<=3.AND.j>3)THENj=1 ELSEIF(i<=3.AND.j<=3)THENIF(country(i，j)/=’’)THEN i=i-2;j=j-1ENDIF ENDIF country(i，j)=name(k)ENDDO WRITE(，’(3A6)’)((country(i，j)，j=1，3)，i=1，3)ENDPROGRAM spin_square

以下程序执行后，输出的第一行是 (4) ，第二行是 (5) 。 PROGRAMmainIMPLICITNONEINTEGER::n REAL::x，p x=3.0; n=2 WRITE(，’(“VALUE=“，F6.2)’)p(x，n)x=2.0; n=3 WRITE(，’(“VALUE=“，F6.2)’)p(x，n)ENDPROGRAM main ! RECURSIVEFUNCTIONp(x，n)RESULT(g)IMPLICITNONE INTEGER::n REAL::x，g IF(n==0)THENg=1.0 ELSEIF(n==1)THENg=x ELSE g=((2n-1)xp(x，n-1)-(n-1)p(x，n-2))/nENDIF ENDFUNCTIONp

以下程序执行后，输出的第一行是 (6) ，第二行是 (7) ，第三行是 (8) 。 PROGRAMmainIMPLICITNONE INTEGER::a(3，2)，b(2，3)，c(3，3)，i，j，k，tmp a=RESHAPE((/1，2，3，4，5，6/)，(/3，2/))b=RESHAPE((/6，5，4，3，2，1/)，(/2，3/))DOi=1，3 DOj=1，3c(i，j)=0DOk=1，2 c(i，j)=c(i，j)+a(i，k)b(k，j)ENDDO ENDDOENDDO DOi=1，3 DOj=i+1，3 tmp=c(i，j); c(i，j)=c(j，i); c(j，i)=tmpENDDO ENDDO WRITE(，’(3I3)’)((c(i，j)，j=1，3)，i=1，3) ENDPROGRAMmain

以下程序执行后，输出的第一行是 (9) ，第三行是 (10) 。 PROGRAMpointerIMPLICITNONE INTEGER，POINTER::arrow(:) INTEGER，ALLOCATABLE，TARGET::goal(:，:) INTEGER::i，j ALLOCATE(goal(1:3，1:4)) goal(1:3:1，1:4:1)=RESHAPE((/1，2，3，4，5，6，7，8，9，10，11，12/)，(/3，4/)) WRITE(，’(6I3)’)((goal(i，j)，j=1，4)，i=1，3) arrow=>goal(2，1:4); WRITE(，’(4I3)’)arrowarrow=>goal(1:3，2); WRITE(，’(4I3)’)arrow DEALLOCATE(goal) ENDPROGRAMpointer

编写程序【程序功能】在给定范围内查找k，使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同，去掉低3位后的整数是回文数｡例如，当k=461时，用公式生成的整数是212999，该数满足条件｡【编程要求】 (1)编写函数子程序found(n1，n2，array)以实现以下功能:k依次取n1~n2范围内的每个整数，分别用每个k及公式k2+k+17生成整数y，若y满足给定条件，则将k值及y值保存到array数组中，函数返回array数组及数组中k的个数｡ (2)编写主程序，实现以下功能:声明二维数组array(10，2)和变量n1､n2，输入两个整数并保存到n1､n2中，用n1､n2及array数组作为实参调用found函数，按所给格式输出array数组中的数据到屏幕及文件myf2out中｡【测试数据及运行结果】输入:n1=1，n2=10000输出:k number 461 212999 586 343999 3839 14741777 【要求】 (1)源程序必须存放在文件MYF2F90中｡ (2)数据文件的打开､使用､关闭均要求采用FORTRAN语言文件管理语句实现｡ (3)程序运行结果存于文件MYF2OUT中｡ (4)本题完成后必须将MYF2F90､MYF2OUT复制到考试盘(盘符为T:)的根目录下供阅卷用｡

相关试卷

江苏省高校等考（CCT）二级（VF）模拟试卷1
江苏省高校等考（CCT）二级（C语言）模拟试卷1
江苏省高校等考（CCT）二级（C++）模拟试卷1
江苏省高校等考（CCT）二级（VB）模拟试卷1
江苏省高校等考（CCT）二级（Office 高级应用）模拟试卷1
江苏省高校等考（CCT）二级（FORTRAN90程序设计）模拟试卷1
高校等考（二级）模拟试卷3
高校等考（二级）模拟试卷2
高校等考（二级）模拟试卷1