中国海洋大学Fortran程序考试典型题
fortran程序案例题汇编(14道)
1．Fibonacci数列定义如下：F1=1F2=1Fn=Fn-1+Fn-2(n>2)求Fibonacci数列的前30项。
integer f(30),if(1)=1f(2)=2do i=3,30f(i)=f(i-1)+f(i-2)enddoprint*,fend2．输入10个学生的总分，求每个学生的名次integer s(10),a(10),i,jdo i=1,10read*,s(i)enddodo i=1,10a(i)=1do j=1,10if(s(i)<s(j))a(i)=a(i)+1enddoenddodo i=1,10print*,s(i),a(i)enddoend3．给定一组数，按照从小到大的顺序输出。
integer a(10)integer pdo i=1,10read *,a(i)enddodo j=1,9p=jdo i=j+1,10if (a(i)<a(p))p=ienddoif (p/=j) thent=a(p);a(p)=a(j);a(j)=tendifenddoprint *,(a(i),i=1,10)end4．输入若干名学生的学号和三门课程（语数英）的成绩，要求从键盘输入一个学生的学号，能打印出该学生的三门功课成绩和总分。
character*6,dimension(:),allocatable::xueinteger,dimension(:,:),allocatable::ginteger,dimension(:),allocatable::zonginteger i,j,ncharacter*6,xhprint *,"请输入学生的个数"read *,nallocate(xue(n))allocate(g(n,3))allocate(zong(n))do i=1,nread *,xue(i),(g(i,j),j=1,3)enddodo i=1,nzong(i)=0do j=1,3zong(i)=zong(i)+g(i,j)enddoenddoprint *,"请输入你要打印的学生的学号"read *,xhdo i=1,nif(xue(i)==xh)thenprint *,(g(i,j),j=1,3),zong(i)exitendifenddoend5．编写一个函数子程序计算所输入两个整数m、n的最大公约数。
大学FORTRAN考试试题1
1．下列叙述中，正确的是(D )A．语句标号的大小影响程度执行的顺序B．程序完全按语句出现的先后顺序执行C．不同程序单位不能有相同的语句标号D．同一程序单位不能有相同的语句标号2．下列标识符中，不能作为合法的FORTRAN90标识符的是( C)A．A3_B3 B．VOID C．_123 D．IF3．下列哪一个为正确的常量( D )A．123,000 B. 3.5E+2.5 C. TRUE D. “HELLO”4．若A=2，B=2，I=3，则表达式A**B**I的值为( C )A. 64B.12C.256 D16.5．圆的直径存放在整型变量D之中，下列计算圆面积的表达式中正确的是( D )A. 3.14159*（D/2）*（D/2）B. 3.14159*(D*D/4)C. 3.14159*(D/2)**2D. 3.14159*D*D/46．下列运算符中，运算优先级最高的是(B )A. 关系运算B. 算术运算C. 逻辑非运算D. 逻辑与运算7．下列FORTRAN的表达式中值为0.5的是( C)A．MOD(4.8，0.5) B．100/20/10 C．50.0/4/25 D．MOD（15，10）/108．下列是完整的FORTRAN程序，编译时出错的语句是( C )A．PROGRAM PRINT B．PARAMETER (PI=3.1415926)C．PI=PI+1 D．WRITE(*，*)SIN(PI+0.5)END9．变量的类型定义中，优先级由高到低的顺序为( A )A．类型说明语句、IMPLICIT 说明语句、隐含约定B．隐含约定、IMPLICIT 说明语句、类型说明语句C．IMPLICIT 说明语句、类型说明语句、隐含约定D．隐含约定、类型说明语句、IMPLICIT 说明语句10．“两整数M与N不能同时小于零”的FORTRAN表达式( D )A．M＞＝0．AND．Ｎ＞＝０B．(M．GE．0．AND．N．LT．0)．OR．(M．LT．0．AND．N．GE．0）C．(M．LE．0．AND．N．LE．0)．OR．(M．LE．0．AND．N．GE．0）D．M．GE．0．OR．N．GE．011．下列逻辑表达式描述的是(不会) X．GT．3．AND．X．LT．10．AND．MOD(X，3)．NE．0．OR．X．EQ．2．OR．X．EQ．3 A．10以内的素数B．10以内的合数C．10以内的奇数D．10以内的偶数12．下面正确的逻辑IF语句是(C )A．IF(X．EQ．Y)THEN GOTO 10 B．IF M．LT．N PRINT*，M C．IF(ABS(X)．LT．1E-6) A=1 D．IF(A．AND．(A．LE．0．0) A=313．下列语句中正确的是( C )A．DATA A，B，C/3*(-10.0）/ B．READ(*,*)（N,A(K),K=1,N）C．WRITE(*,*)(10,A(K),K=1,10) D．READ(*,*)N,N+114. 如果J是整型变量，则循环语句：DO J=5.5，-1.5，-2.5 所执行的循环次数是(C)A．4 B．3 C．2 D．115．如有语言：INTEGER B (-1:-2,3:7),则数组B 中所含的元素个数为( 无答案) A．0 B.10 C.12 D.2116. 关于FORTRAN90 的CASE结构，SELECT CASE（表达式）中的表达式的数据类型不允许为( A)A. 实型B. 字符型C. 实型D. 逻辑性17．下面符号在FORTRAN90 中表示续行符的是( B)A．! B. & C. # D. %18. 下列程序段中，错误的语句是( D)A．PARAMETER(N=10)B. INTEGER:: M=20C.M=M+ND.PRINT(*, *)M, N19.A. FUNCTIONB. SUBROUTINEC. BLOCK DA TAD. SUB20.下列语句中，错误的语句是( D)。
fortran程序案例题汇编(14道)-推荐下载
t=.false. exit endif enddo prime=t end
1
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电通，力1根保过据护管生高线产中0不工资仅艺料可高试以中卷解资配决料置吊试技顶卷术层要是配求指置，机不对组规电在范气进高设行中备继资进电料行保试空护卷载高问与中题带资2负料2，荷试而下卷且高总可中体保资配障料置2试时32卷，3各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并25工且52作尽22下可护都能1关可地于以缩管正小路常故高工障中作高资；中料对资试于料卷继试连电卷接保破管护坏口进范处行围理整，高核或中对者资定对料值某试，些卷审异弯核常扁与高度校中固对资定图料盒纸试位，卷置编工.写况保复进护杂行层设自防备动腐与处跨装理接置，地高尤线中其弯资要曲料避半试免径卷错标调误高试高等方中，案资要，料求编试技5写、卷术重电保交要气护底设设装。备备置管4高调、动线中试电作敷资高气，设料中课并技3试资件且、术卷料中拒管试试调绝路包验卷试动敷含方技作设线案术，技槽以来术、及避管系免架统不等启必多动要项方高方案中式；资，对料为整试解套卷决启突高动然中过停语程机文中。电高因气中此课资，件料电中试力管卷高壁电中薄气资、设料接备试口进卷不行保严调护等试装问工置题作调，并试合且技理进术利行，用过要管关求线运电敷行力设高保技中护术资装。料置线试做缆卷到敷技准设术确原指灵则导活：。。在对对分于于线调差盒试动处过保，程护当中装不高置同中高电资中压料资回试料路卷试交技卷叉术调时问试，题技应，术采作是用为指金调发属试电隔人机板员一进，变行需压隔要器开在组处事在理前发；掌生同握内一图部线纸故槽资障内料时，、，强设需电备要回制进路造行须厂外同家部时出电切具源断高高习中中题资资电料料源试试，卷卷线试切缆验除敷报从设告而完与采毕相用，关高要技中进术资行资料检料试查，卷和并主检且要测了保处解护理现装。场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
Fortran练习经典题目
Fortran练习经典题目a, 输入一个年、月、日并计算它是本年度的第几天。
b.输入任意一年份，给出该年出生人的属相，如1945年出生的人的属相为“鸡”。
c.显示输出2000~2099年的任何一年的某一月的月历，所要显示的年月有键盘输入。
如2002年5月的月历形式如下；5月2002年日一二三四五六1 2 3 4 5 6 78 9 10 11 12 13 1415 16 17 18 19 20 2122 23 24 25 26 27 2829 30 31d.显示输出2000~2099年的任何一年的年历，并写入一文本文件中。
e.以上功能都应从菜单中选择执行。
提示：a中若y为年份，d是该年的某月某日从1月1日开始经过的天数，则s=（y-1）*1.2425+d。
若s除以7后所得的余数取整后为0，则为周日，为1则周一。
program firstquestionimplicit noneinteger::q,i,ldayinteger::year,month,day,days,mday,dscharacter(len=2),dimension(1:37)::tem! 这个程序可以同时在屏幕和文本中输出计算结果。
为了计算不同的问题，引入变量q，当q＝1时，计算某年月日是此年的第几天;! 当q＝2时，计算某年的属相;当q＝3时，计算月历;当q＝4时，计算年历;当q＝0时，退出此程序。
此外，此程序还设置了对输入! 年、月、日的判断，判断其是否合法。
print *,'when q=1,this program can resolve the question thatwhich day some day is in some year! this is the question one.' print *,'when q=2,this program can obtain the shengxiao of some year! this is the question two.'print *,'when q=3,this program can obtain the calendar of some month of some year(2000-2099)! this is the question three.' print *,'when q=4,this program can obtain the Almanac of some year(2000-2099)! this is the question four.'print *,'If you want to exit from this program,please input q=0.'doprint *,'input the number of q:'read *,qif(q==0) exitif (q==1) then2000 print *,'input the year, the month and the day:'read *,year,month,dayif (month>12.or.month<0) print *,'you input wrong month.' if (month>12.or.month<0) goto 2000call leapday(year,month,day,lday)if (lday==0) print *,'you input wrong day.'if (lday==0) goto 2000call numday(year,month,day,days)print '(a14,i3,a18)','The day is the',days,' day of this year.'open(25,file='days.dat',status='unknown')write(25,'(a14,i3,a18)') 'The day is the',days,' day of this year.' close(25)else if (q==2) thenprint *,'input the year:'read *,yearcall shengxiao(year)else if (q==3) then2001 print *,'input the year(2000-2099) and the month:'read *,year,monthif (year>2099.or.year<2000) print *,'you input wrong year,please input the year between 2000 and 2099.'if (year>2099.or.year<2000) goto 2001if (month>12.or.month<0) print *,'you input wrong month.' if (month>12.or.month<0) goto 2001open(27,file='yueli.dat',status='unknown')call nyli(year,month,mday,ds,tem)write(27, "(26x,i2,'月',3x,i4,'年')")month,yearwrite(27, '(18x,7a4)')'日','一','二','三','四','五','六'write(27, '(18x,7a4)')(tem(i),i=1,mday+ds)write(27,*)close(27)else if (q==4) then2002 print *,'input the year(2000-2099):'read *,yearif (year>2099.or.year<2000) print *,'you input wrong year,pleade input the year between 2000 and 2099.' if (year>2099.or.year<2000) goto 2002open(28,file='nianli.dat',status='unknown')do month=1,12call nyli(year,month,mday,ds,tem)write(28, "(26x,i2,'月',3x,i4,'年')")month,yearwrite(28, '(18x,7a4)')'日','一','二','三','四','五','六'write(28, '(18x,7a4)')(tem(i),i=1,mday+ds)write(28,*)end doclose(28)elseprint *,'you input the wrong number of q.' end ifend doend program firstquestionsubroutine shengxiao(year)implicit noneinteger::year,m,nm=year-1945if (m>=12.or.m<=-12) thenn=mod(m,12)elsen=mend ifopen(26,file='shengxiao.dat',status='unknown') if (n==0) thenprint *,'The shengxiao of this year is:鸡'write(26,*)'The shengxiao of this year is:鸡' else if(n==1.or.n==-11) thenprint *,'The shengxiao of this year is:狗'write(26,*)'The shengxiao of this year is:狗' else if(n==2.or.n==-10) thenprint *,'The shengxiao of this year is:猪'write(26,*)'The shengxiao of this year is:猪' else if(n==3.or.n==-9) thenprint *,'The shengxiao of this year is:鼠'write(26,*)'The shengxiao of this year is:鼠' else if(n==4.or.n==-8) thenprint *,'The shengxiao of this year is:牛'write(26,*)'The shengxiao of this year is:牛'else if(n==5.or.n==-7) thenprint *,'The shengxiao of this year is:虎'write(26,*)'The shengxiao of this year is:虎' else if(n==6.or.n==-6) thenprint *,'The shengxiao of this year is:兔'write(26,*)'The shengxiao of this year is:兔' else if(n==7.or.n==-5) thenprint *,'The shengxiao of this year is:尨'write(26,*)'The shengxiao of this year is:尨' else if(n==8.or.n==-4) thenprint *,'The shengxiao of this year is:蛇'write(26,*)'The shengxiao of this year is:蛇' else if(n==9.or.n==-3) thenprint *,'The shengxiao of this year is:马'write(26,*)'The shengxiao of this year is:马' else if(n==10.or.n==-2) thenprint *,'The shengxiao of this year is:羊'write(26,*)'The shengxiao of this year is:羊' else if(n==11.or.n==-1) thenprint *,'The shengxiao of this year is:猴'write(26,*)'The shengxiao of this year is:猴' end ifclose(26)end subroutine shengxiaosubroutine nyli(year,month,mday,ds,tem) implicit noneinteger::year,month,days,mday integer::i,m,ds,dts,qreal::scharacter(len=2),dimension(1:37)::temcall numday(year,month,1,days)call monday(year,month,mday)s=(year-1)*1.2425+daysds=int(s-int(s/7)*7)do i=1,37tem(ds+1)='1';tem(ds+11)='11';tem(ds+12)='12';tem(ds+2)='2';tem(ds+13)='13';tem(ds+14)='14';tem(ds+3)='3';tem(ds+15)='15';tem(ds+16)='16';tem(ds+4)='4';tem(ds+17)='17';tem(ds+18)='18';tem(ds+5)='5';tem(ds+19)='19';tem(ds+20)='20';tem(ds+6)='6';tem(ds+21)='21';tem(ds+22)='22';tem(ds+7)='7';tem(ds+23)='23';tem(ds+24)='24';tem(ds+8)='8';tem(ds+25)='25';tem(ds+26)='26';tem(ds+9)='9';tem(ds+27)='27';tem(ds+28)='28';tem(ds+10)='10';tem(ds+29)='29';tem(ds+30)='30';tem(ds+ 31)='31'; print "(26x,i2,'月',3x,i4,'年')",month,yearprint '(18x,7a4)','日','一','二','三','四','五','六'print '(18x,7a4)',(tem(i),i=1,mday+ds)print *end subroutine nylisubroutine numday(year,month,day,days)implicit noneinteger::year,month,day,days,nlogical::leapcall leapyear(year,leap)n=int(month/2)if (month<=8) thenif (mod(month,2)/=0) thendays=30*n+31*n+dayelsedays=30*(n-1)+31*n+dayend ifelseif (mod(month,2)/=0) thendays=30*(n-1)+31*(n+1)+dayelsedays=30*(n-1)+31*n+dayif(month>2) thenif (leap) thendays=days-1elsedays=days-2end ifend ifend subroutine numdaysubroutine monday(year,month,mday) implicit none integer::year,month,mday logical::leapcall leapyear(year,leap)select case (month)case (4,6,9,11)mday=30case (1,3,5,7,8,10,12)mday=31case (2)for_feb:select case (leap)case (.true.)mday=29case (.false.)mday=28end select for_febcase defaultend selectend subroutine monday subroutine leapyear(year,leap)implicit noneinteger::yearlogical::leapif (mod(year,4)/=0) thenleap=.false.else if (mod(year,100)/=0) thenleap=.true.else if (mod(year,400)/=0) thenleap=.true.elseleap=.false.end ifend subroutine leapyearsubroutine leapday(year,month,day,lday) implicit none integer::year,month,day,lday logical::leapcall leapyear(year,leap)select case (month)case (4,6,9,11)if (day>30.or.day<1) thenlday=0elselday=1end ifcase (1,3,5,7,8,10,12)if (day>31.or.day<1) thenlday=0elselday=1end ifcase (2)for_feb:select case (leap)case (.true.)if (day>29.or.day<1) thenlday=0elselday=1end ifcase (.false.)if (day>28.or.day<1) thenlday=0elselday=1end ifend select for_febcase defaultend selectend subroutine leapday素数是只能被1与其本身整除的数，下面给出一种寻找素数的方法：a生存一个数组，将其所有的元素初始化为1b 从数组下标为2的元素开始，每次寻找数值为1 的数组元素。
大学Fortran期末复习资料-Fortran程序设计_05
20XX年复习资料大学复习资料专业：班级：科目老师：日期：一、选择题（每题2分，共30分）1. 下列数据中，不符合FORTRAN 90常量表示法的是__________。
A. -23.4B. 2.758D+3C. (3, 4)D. TRUE2. 数学表达式()()27log t b a e t -•+•在FORTRAN 中的正确的表达式为__________。
A. E**T*LOG*(A+B)*(-7*SQR(T))B. EXP(T)*LOG20XXXX(A+B)*(-7*T**2)C. EXP(T)*LN(A+B)*(-7*SQR(T))D. E**T*LOG(A*B)*(-7*T**2)3. 下列名称中，符合FORTRAN90/95命名规则的是__________。
A. a3_bB. “Pi ”C. 2XYD. .false.4. 下列循环语句执行后，输出k 的值分别是__________。
DO K=2，20XXXX ，4IF(MOD(K,20XXXX)= =0) WRITE(*,*) K+1WRITE(*,*) KEND DOWRITE(*,*) KA. 2 6 20XXXX 20XXXX 20XXXXB. 2 6 20XXXX 20XXXX 20XXXXC. 2 6 20XXXX 20XXXX 20XXXXD. 2 6 20XXXX 20XXXX 20XXXX 20XXXX5. 阅读下列程序PROGRAM AREAD(*,20XXXX0)X,Y20XXXX0 FORMAT(1X,2F3.1)S=MOD(Y,X)WRITE(*,200)S20XX0 FORMAT(F3.1)END在执行上述程序后，由键盘输入20XXXX3446889，最后输出的S 值为__________。
A. 0.0B. 8.1C. 21.0D. 1.06. 判别英语成绩E 和FORTRAN 成绩F 都必须大于60分的正确的表达式是__________。
2018-2019学年第一学期《FORTRAN》期末试卷(A)
2018-2019学年第一学期《FORTRAN》期末试卷（A）（考试对象：农水、港航、地质、海洋、力学专业2018级）学院专业班级学号姓名成绩一、选择题(用铅笔把选中的方格涂黑32×1=32分)12345 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 2829 30 31 32二、填空题（每空占一行，每行写一个答案25×2=50分）1.2.3.4.5.6.7.8.9.10.11.12. 13.14.15.16.17.18.19.20.21.22.23.24.25.三、程序设计（2×9=18分）1、求裴波纳契数列的前10项，要求每行输出5项。
该数列的前几项为：0，1，1，2，3，5，8，13，……2、编写一个判断素数的函数子程序, 主程序调用函数求3-100之间满足下面条件的各组素数：每组三个素数，第二个比第一个大2，第三个比第二个大4。
例如5、7、11就是满足条件的一组。
一、选择题（32×1=32分）1、以下有关FORTRAN90基本概念的叙述中，正确的是。
A、关键字只能用大写字母，其他符号名（变量名、数组名、过程名等）只能用小写字母。
B、符号名须以英文字母开头，可后接英文字母、数字、下划线，不超过31个字符。
C、键盘上的可见字符均可作字符型常数使用，但汉字不能作字符型常数使用。
D、编译系统接受英文字母开头后接希腊字母作符号名。
2、在下列写法中，________不是FORTRAN常量。
A、 .TRUE.B、1E-2C、 (0.0,2.4)D、1,000,0003、表达式15／4／2.0的值是。
A、整数2B、实数1．5C、实数2．25D、实数1. 34、以下DO循环结构中，不属于FORTRAN90程序设计语言标准的是。
A、DO ……ENDDOB、DO WHILE(relation_expression)……ENDDOC、DO index=1,2,3……ENDDOD、DO UNTIL(relation_expression)……ENDDO5、以下说法中错误的是。
大学FORTRAN考试试题样题（1）
大学FORTRAN考试试题样题（1）《高级语言程序设计(FORTRAN)》考试样题一、选择题(每小题2分,共40分)1. 下列标识符中不能作为FORTRAN的合法变量名的是_____D_____。
A) A_1 B) A1 C) A1A D) A+12. 在FORTRAN的变量类型说明语句中没有 BA) REAL语句B)CHAR语句C)INTEGER语句 D)LOGICAL语句3．FORTRAN90 源程序的扩展名是 C 。
A. TXTB. FC. F90D. FOR4.下列关于符号常量的说法正确的是___C____。
A.符号常量的定义应该放在所有语句之前B.符号常量不可以是字符型常量C.在一个程序单位中定义一个符号常量后，不能再改变它的值D.符号常量定义语句与赋值语句一样，是可执行语句5、在下列写法中，__D______不是FORTRAN常量。
A. .TRUE.B.1E-2C. (0.0,2.4)D.1,000,0006．表达式15／4／2.0的值是 B 。
A．整数2 B．实数1．5 C．实数2．25 D．实数1. 37. 下列不是FORTRAN赋值语句的是 _____D______。
A) X=.TRUE. B) X=X*X C) X=X**2**2 D) X=X++8. 梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN表达式中错误的是____A____。
A)1/2*(AB)*H B)(A+B)*H/2 C)(A+B)/2*H D)0.5*(A+B)*H9. 要选拔身高T>1.7米且体重W<62.5公斤的人,FORTRAN的逻辑表达式是__C_____。
A)T.ce.1.7.AND.w.le.62.5 B)T.le.1.7.OR.w.ge.62.5C)T.gt.1.7. AND.w.lt.62.5D)T.gt.1.7.OR.w.lt.62.510．FORTRAN 90规定，变量类型声明的优先顺序是 C 。
FORTRAN90考试笔试题
FORTRAN90语言部分一、 语言基础单项选择(每题2分，共20分)(一)下面的函数计算中，错误的是 1 。
A) SQRT(9) B) REAL(9) C) ABS(9) D) MOD(9,2)(二)运行下面的程序时(P,W,X,Y 都是实型变量)， READ(*,10) P,W,X,Y WRITE(*,20)X,Y10 FORMAT(1X,F3.1,3(1X,F4.2)) 20 FORMAT(1X,F4.1,3(1X,F5.2)) END如果从键盘输入数据：12345678901234567890，则输出结果为 2 。
A) 1.23 56.78 B) 12.3 67.89 C) 12.3 45.67 D) 34.5 67.89(三)数学式a acb x 24sin 22-+的FORTRAN 表达式为 3 。
A) SIN(X**2)+SQRT(B*B-4*A*C)/2/A B) SIN(X)**2+ SQRT(B*B-4*A*C)/2/AC) (SIN(X**2)+SQRT(B*B-4*A*C))/(2*A) D) (SIN(X)**2+SQRT(B*B-4*A*C))/(2*A)(四)表示条件“A 加B 大于C 并且C 大于等于D ”的FORTRAN90逻辑表达式是 4 。
A) A+B>C >=D B) (A+B)>C >=DC) A+B>C.AND. C>=DD) (A+B)>C.OR. C>=D(五)通过下面的赋值，字符变量LINE 的值是 5 。
表示空格。
CHARACTER(LEN=4)::LINE LINE=’10’A) 10 B) 1000 C) ‘10’ D) ’10 ’(六)下面对二维数组的说明语句中，正确的语句是 6 。
A) 显式形状数组的说明：REAL,DIMENSION(10,:) ::AB) 动态数组的说明方式：REAL,DIMENSION(:,:), ALLOCATE ::A C) 假定形状数组的说明：REAL,DIMENSION(10,:) ::A D) 指针数组的说明：POINTER,DIMENSION(1:3,2:4) ::A (七)下面的模块中，错误的语句是 7 。
Fortran90试题
Fortran90试题Fortran 复习题⽬类型：1、选择题2、填空题3、简答题4、编程题样题⼀、选择题1．下列名称中，符合FORTRAN 90命名规则的是。
A. a-b-cB. $123C. length_1D. date.year 2．关于FORTRAN 90程序单元，以下四种说法中正确的是。
A.⼀个FORTRAN 90程序由多个程序单元组成，其中有⼀个且只能有⼀个主程序单元B. ⼀个FORTRAN 90程序由多个程序单元组成，其中有⼀个且只能有⼀个模块单元C. ⼀个FORTRAN 90程序允许有多个程序单元，但每类程序单元只能有⼀个D. ⼀个FORTRAN 90程序允许有多个程序单元，但主程序单元和模块单元只能有⼀个3．关于FORTRAN 90的CASE结构，以下说法中正确的是。
A. CASE结构内必须取DEFAULT作为情况选择器的最终值B. CASE结构的情况表达式不能是字符类型C. CASE结构的情况表达式和情况选择器的取值类型必须相同D. CASE结构的不同情况选择器取值可以重复4．已知数组说明REAL A(20:22,0:9,-3:-1)，数组A的数组元素个数是。
A．164 B．360 C．450 D．90 5．⼦程序的形式参数（虚拟变元或哑元）可以是。
A．变量名、数组名、过程名B．变量名、数组名、过程名和符号常量名C．变量名、数组名、数组⽚段、过程名D．任意符号名6. 语句OPEN（3，FILE=’ABC’，ACCESS=’DIRECT’，RECL=40）打开的是⽂件。
A．有格式顺序存取B．⽆格式顺序存取C．有格式直接存取D．⽆格式直接存取7、下列关于"SUBROUTINE MAP(X，Y)"语句⾏的叙述中，不正确的是( )A) 这是⼦程序的第⼀个语句 B) 字符串"MAP"是⼦程序名C) 变量X是⼦程序的形参D)⼦程序执⾏后，MAP将返回整型数据8、 FORTRAN表达式"2/4+0.5"的值是( )A) 0.5 B) 1 C) 1.0 D) 09、阅读下列FORTRAN程序：PI=3.14159265WRITE(*,'(F7.4) ')PIEND程序运⾏后输出结果是( )A) 3.142 B) 3.1415 C) 0.31416 D) 3.141610、圆的直径存放在整型变量K之中，下列计算圆⾯积的表达式中正确的是( )A) 3.1415926*K*K/4 B) 3.1415926*(K*K/4)C) 3.1415926*(K/2)**2 D) 3.1415926*(K/2)*(K/2)⼆、填空题1、下列FORTRAN函数⼦程序的功能是⽤以下公式计算⼀组数据Z1,Z2,…,Zn的标准差σ：σ2=(Z12 +Z22+…+Zn2)/n-[(Z1+Z2+…+Zn)/n]2请在程序中的下划线处填⼊合适的内容。
大学FORTRAN语言试题
大学FORTRAN语言试题一、选择题（15×1分=15分）1．Fortran程序设计语言允许使用的专用字符集是。
A．（），．；［］＋－＊／＝：空格B．（），．αβ＋－＊／＝：空格C．（），．＋－＊／＄＇＝：空格D．｛｝，．；？＋－＊／＝：空格２．按隐含规则确定变量的数据类型，Fortran表达式（A112/BC1+15.123456789.0_8）-（1000.0_4/3.0+ABI*ABJ）的值的数据类型为。
A．复型B．整型C．实型（种别为8）D．实型（种别为4）3．执行循环语句DO I=0.5，4.5，1.5，正常退出循环后，循环执行的次数和循环变量I的值分别为。
A．4和4.5 B．5和5 C．4和6 D．5和64．语句A（M（I））=MOD（I，7）是。
A．函数定义语句B．赋值语句C．非法语句D．说明语句5．下列不合法的是：_____A．A<B<C<D B．.NOT.(X<0) C．A>B.EQV.C>D D．A.AND.B.AND.C6．若数组说明符ARRAY（-5：5，-10：0）的元素个数为。
A．144 B．121 C．110 D．1007．设循环初值、终值和增量分别为M1，M2和M3，循环次数的计算公式是。
A．INT（（M2-M1）/M3）B．INT（（M2-M1）/M3）+1C．MAX(INT(M2-M1+M3)/M3,0) D．MIN(INT(M2-M1+M3)/M3,0)8．下列字符表达式中正确的是。
A．’ABCD’+’MN’’D’B．’ABCD’//’MN’’D’C．CHAR（65）+’N’//’CH’D．’123 45’-’5’9．语句integer,dimension(1:-1)::a,下列说法中正确的是：_____A．a数组的元素个数为0 B．a数组的元素个数为3C．a数组的元素个数为1 D．该说明语句是错误的10．子程序的虚元可以是：A．变量名、数组名、过程名B．变量名、数组名、过程名和符号常量名C．变量名、数组名、数组片段、过程名D．任意符号名11．c为复型量，下列正确的是：A．c=(1/2,1/5) B．c=sqrt((0.1,4.5)) C．c=1.0+4i D．c=(x,y)12．数学式的FORTRAN表达式是（）A．2/3*SIN（3.14/4）B．2SIN（3.14/4）/3C．2.0*SIN( /4.0)/3.0 D．2*SIN（3.14/4）/313．执行下列赋值语句后，变量X的值为（）X=4+36**(7/14)A．10.0 B．5.0 C．10 D．514．下列不合法的是：A．A<B<C<D B．.NOT.(X<0) C．A>B.EQV.C>D D．A.AND.B.AND.C15．执行下列程序时由键盘输入13579.2468，输出结果为：READ’(2(F4.1,2X))’,A，BPRINT’(2(F4.1,2X))’,A，BA．135.7 246.8 B．13.5 24.6 C．**** **** D．*** ****二、填空题（15×1分=15分）1．FORTRAN90自由格式的程序续行标记为______字符，一般写在_____位置；自由格式的程序注释标记为____字符。
FORTRAN笔试
一、判断题（共20分，每题1分，√表示对，×表示错）1．FORTRAN源程序的一条语句无法在一行内写下时，在行末用续行标志“！”，表示下一行是当前行的继续。
2．语句X=X+1的含义是将内存中名为X+1的存储单元的值赋给变量X。
3．如果程序单元中有说明语句PARAMETER（A=2.1），则不允许在该程序单元中改变A的值。
4．主程序和子程序可以储存到不同的文件中。
5．即使编译和连接都正确无误，FORTRAN程序运行时仍可能出错。
6．在数据块子程序中，可以调用另一个数据块子程序。
7．设有如下输入语句READ '(1X, F5.2)' , X若由键盘输入：12.3456789，则变量Y的值为12.34。
8．如果有以下程序段CHARACTER::A=’FORTRAN’则A内存储的实际值是’F’。
9．M=2000，为了在屏幕上输出□□***2000*** （其中□表示空格）。
则应使用的语句为：WRITE(*,100)M100 FORMAT(2X,’***’,I4,’***’)10．模块可用USE引用，也可用CALL调用。
11．语句函数定义语句在程序内的位置是：在程序块开头语句之后，END语句之前。
12．若有以下程序段：INTEGER,POINTER ::P1, P2INTEGER,TARGET::I=20, J=30P1=>I; P2=>J; P1=>P2; P2=>P1运行程序，I、J的值都为20。
13．COMMON语句的功能是给不同程序模块中的若干变量分配同一存储单元。
14．设C是复型变量，A、B是实型变量。
把A 的值赋给C的实部，把B的值赋给C的虚部的赋值语句是C=CMPLX(A,B)。
15．顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的。
16．A2B的FORTRAN表达式为A**2*B。
17．程序中说明了变量a具有POINTER属性，若a=>b，则b应具有PARAMETER属性。
FORTRAN习题答案
FORTRAN习题答案习题二一、问答题1. 给出下面变量名称,哪些是合法变量？哪些是非法变量？说明原因。
Count 、num_2、x&y 、4x+5y 、china-suzhou 、$us 、AbCdE 、Mr.bai 、t5、_another 、school_class_25、#125、2002Y 、π、β、A01/02、alpha 、date(1) 1. 判定下面整数,指出哪些是合法整数,哪些是非法整数？说明原因。
-0、+ 215、$125、3,245,895、5.3245、5#384、-524_3、#5DFE 、23-345、16#1A2B 、38#ABCD 、8#275_2、+327890、4 #3212. 判定下面实数,指出哪些是合法实数,哪些是非法实数？说明原因。
-0E2、45.2345E3.5、-5489E25_8、-.2345E-35、$185.45E 、+ 2.753425E24_3、58D85、+0.E-0、-00000.001E5、5,443,223.44、-12 34E+2、+ 18.5E 18、2.5E42习题三一、选择题1．下面是V isual Fortran 中正确的表达式是。
（A ）A*COS(X)+∣B ∣ （B ）2*EXP(2*X)/SQRT(16.0)（C ）B 2-4AC （D ）MOD （24.5,0.5）2．下面算术赋值语句中正确的语句是。
（A ）M*N=(X-Y)/Z （B ）+R=A+B/C（C ）X=Y=Z-1.0 （D ）Y=A*B/C/D3．算术表达式1/3+2/3的值为。
（A ）0 （B ） 1 （C ） 0.99999999 （D ）值不确定二、问答题1. 将下列代数式用Visual Fortran 表达式描述：① ②③ 4sin 3A-3sinA+sin3A ④ 2．执行下列赋值语句后，变量中的值。
变量的类型遵循I —N 规则。
fortran试题
软件技术基础(FORTRAN)笔试模拟试题(带答案)一．概念选择题（单选题，将正确的答案填入括号内。
每题1分，共15分）1. 已知整型变量L=5，M=13，N=4，表达式L*M/N 、L/N*M 和M/N*L 的值分别是（A ）。
A ）16 13 15B ）16.25 16.25 16.25C ）16.0 13.0 15.0D ）16 16 162．将数学式)||(ln 215-+e x 改写为FORTRAN 表达式，正确的是( D )。
A) 1/2*(LOG(ABS(X))+E**(-5))B) 1.0/2*(LN(ABS(X))+E**-5)C) 1/2.0*(LN(ABS(X))+E -5)D) 1.0/2*(LOG(ABS(X))+EXP(-5))3. 设A=.TRUE., B=.FALSE., C=.FALSE., 逻辑表达式(A.OR.B).AND.C 与A.OR..NOT.B 的值是( B )。
A) .T. 与 .F. B).F . 与 .T. C) .T. 与 .T. D) .F. 与 .F .4. 数组REAL A （0:5，-1:5）的元素个数是 （ D ）。
A ）25B ）30C ）36D ）42 5. 下列数组说明符中错误的是（ A ）。
A ）K(3:2,1:2)B ) K(-1:1,2)C ）K(-2:2,-1:1)D ）K(2:2,5)6. 关于USE 语句的正确说法是（ C ）。
A)USE 语句是可执行语句 B)用USE 语句可以代替INCLUDE 语句C)USE 语句必须放在程序单元体的开头 D)USE 语句的位置任意7. 语句OPEN （9，FILE=‘DATA.TXT ’）打开的是 ( B ) 文件。
A ）无格式顺序B ）有格式顺序C ）无格式直接D ）有格式直接8. 阅读下列FORTRAN 程序, 程序运行时执行循环体的次数是( A )。
X=0DO L=10, 5, 1X=X+1.0ENDDOENDA) 0 B) 1 C) 6 D) 无穷9．结构化程序设计中有三种基本结构,下列不属于三种基本设计结构的是( D )。
2011-2014年期Fortran90中期末考试试卷
2011~2012 学年第二学期 FORTRAN 期末考试卷 A 卷 CHARACTER(4)::A,B,C*5 A=’YOUR’; B=’BOYS’; C=’GIRLS’ WRITE(*,’(A4,A5,A6,A1)’) A,B,C,’!’ END A、 YOURBOYSGIRLS！ C、 YOUR BOYSGIRLS! B、YOUR BOYS GIRLS! D、YOURBOYS GIRLS!
二、填空题（每空占一行，每行写一个答案 25×2=50 分）
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12.
第 1 页 共 12 页
2011~2012 学年第二学期 FORTRAN 期末考试卷 A 卷 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25.
2011~
专业班级：
学号：
姓名：
一、选择题 (用铅笔把选中的方格涂黑 40×1=40 分)
1 5 9 13 17 21 25 29 33 37 A A A A A A A A A A B B B B B B B B B B C C C C C C C C C C D D D D D D D D D D 2 6 10 14 18 22 26 30 34 38 A A A A A A A A A A B B B B B B B B B B C C C C C C C C C C D D D D D D D D D D 3 7 11 15 19 23 27 31 35 39 A A A A A A A A A A B B B B B B B B B B C C C C C C C C C C D D D D D D D D D D 4 8 12 16 20 24 28 32 36 40 A A A A A A A A A A B B B B B B B B B B C C C C C C C C C C D D D D D D D D D D
Fortran模拟试卷1-8
FORTRAN90模拟测验一（笔试部分）一．选择题（从4个可选答案中选择一个正确答案添入空白处）1．FORTRAN 90规定程序中名称的长度不能超过个字符。
A．8 B．15 C．31 D．632．关于FORTRAN 90程序单元，以下四种说法中正确的是。
A．一个FORTRAN 90程序由多个程序单元组成，其中有一个且只能有一个主程序单元B．一个FORTRAN 90程序由多个程序单元组成，其中有一个且只能有一个模块单元C．一个FORTRAN 90程序允许有多个程序单元，但每类程序单元只能有一个D．一个FORTRAN 90程序允许有多个程序单元，但主程序单元和模块单元只能有一个3．FORTRAN 90程序中允许使用的三个通用标志符是。
A．！% & B．@ , ; C．! ; & D．; & *4. 下列中，所指的FORTRAN 90表达式都是正确的。
①∣A*x+B*y+C*z∣② b*b+4*a*c③ .NOT. .TRUE. .AND. .FALSE. ④‘A’<= ch <= ‘Z’⑤ X>100 = = .TRUE. ⑥ SQRT(A2+B2)⑦π*R**2 ⑧‘HAPPY ’+‘NEW ’+‘YEAR.’A. ①②⑤B．②③④⑧C．②③⑤D．②⑤⑥⑦5. FORTRAN 90规定，变量类型声明从高到低的优先顺序是。
A．隐含约定（I-N规则）、IMPLICIT声明、类型声明B．类型声明、隐含约定（I-N规则）、IMPLICIT声明C．类型声明、IMPLICIT声明、隐含约定（I-N规则）D．IMPLICIT声明、类型声明、隐含约定（I-N规则）6．数组声明语句为：INTEGER，DIMENSION(-5:-1,-3:3,11:15) ：：num 数组元素num(-2,1,13)是存储结构中第个元素。
A．70 B．85 C．90 D．947．类型声明语句为：INTEGER(2) I 数据输出语句为：PRINT *，I变量I中数据输出域宽是字符。
fortran试题A
《Fortran 语言程序设计》考试试题 一、关键字解释及表达式互换（共10题，每题2分，共20分） 1. READ*, X,Y 2. REAL 3．12 FORMAT(2X,I5) 4．COMPLEX 5．LOGICAL 6．INTEGER,DIMENSION(4,5)::A 7．SELECT CASE(R3) 8．写出 x e y cos 21∙的fortran 表达式 9．写出COS （(A+1)*（A+1)）/(N*N+1)数学表达式 10．写出 1-⎪⎪⎭⎫ ⎝⎛n y x 的fortran 表达式 二、下面分别是程序中的一段代码，请指出其错误？（共2题，（共2题，1题12分，2题8分，共20分） 1. …………………… E=(E*T+23) IF(E>=500) GOTO 5 DO N=1,1O ，0 5 T=SS*3.45 PRINT*,R,T END DO ……………… 2. PROGRAM ex IMPLICI NONE INTEGER :: n CHARACTER(LEN=3) :: a,b,c READ*, n a=n b=’nkd_lixy ’c=sqrt(a**2+b**2) print*,c 学生班级________________学生学号：□□□□□□□□□□□□学生姓名：________________ ………………装订线………装订线………装订线…………试卷须与答题纸一并交监考教师…………装订线………装订线………装订线………………………………三、请写出下面程序的运行结果（共4题，每题10分，共40分）1.写出下列程序的作用是解决什么问题的？PROGRAM GH1REAL X,YREAD*,XIF (X<=0) Y=LOG(SQRT(X*X+1))IF (X>0) Y=SIN(X**3)+ABS(X)PRINT*,”Y=”,YEND2．写出下列程序的运行结果，程序运行时输入 5，6，7，8 四个数。
大学Fortran期末复习资料-Fortran程序设计_04
20XX年复习资料大学复习资料专业：班级：科目老师：日期：一、单项选择题：（每小题2分，共 40 分）1. 下列叙述中正确的是 。
A. 完整的Fortran 程序的第一个语句必须是program 语句B. 完整的Fortran 程序中只能有一个end 语句C. Fortran 程序中各类语句的位置是任意的D. Fortran 程序中所有可执行语句在程序执行时都会产生某种机器操作2. Fortran 表达式20XXXX/8*0.3/6.0的值为 。
A. 0.75B. 0C. 0.0D. 0.20XXXX 3. 下列合法的Fortran 标识符为 。
A. M%8B. A20XXXX3BC. F(x)D. 5xy4. 下列数据中是不合法的Fortran 常量的是 。
A. trueB. (1,3)C. ‘’D.4.567E-45. 在Fortran 中)2a /()x (sin e 2x 的正确的算术表达式为 。
A. exp(x)+sin(x**2)/(2*a)B. exp(x)+sin(x**2)/2*aC. e**x+sin(x**2)/(2*a)D. exp(x)+sin(x*2)/(2*a)6. 设有下面一段格式输出语句write(*,20XXXX) x20XXXX format(1x,’x=’, f5.1)如果在输出语句中直接包含格式说明，正确的写法应该是 。
A. write(*,1x, ‘x=’ , f5.1) xB. write(*,’(1x,’x=’, f5.1)’) xC. write(*,”(1x,’x=’, f5.1)”) xD. 没有这种格式7. 下面的逻辑IF 语句正确的是 。
A. if (x<0.0) then 20XXXXB. if (x>=0.0) .eqv. (y<0) y=23C. if (0.0=< y <20XXXX) y=x+20XXXXD. if (x>20XXXX.0 .or. x<0.0) y=2*x+exp(x)8. 阅读下列Fortran 程序：real :: z(2,2)=(/1,2,3,4/)p(x, y)=3*x-2*yt=z(1,2)if ( t<=1.0) s = p(1.0,2.0)if ( t<=3.0) s = p(2.0,3.0)if ( t<=4.0) s = p(3.0,4.0)write(*,*) send执行上述程序后，输出的S 值为 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、找出100-150之间和400-450之间能被9整除的数
2、找出100-999之间的回文数
3、找出水仙花数
4、输出“*”图形
5、输入n个数，找出大于平均值的数和最小数
6、把一个数值型数组的相同数删除到只剩一个
7、形成一个5*5矩阵，对角线元素为“i”，其余为“j”program juzhen
implicit none
integer I,J
integer,parameter::size=5
integer::a(size,size)
forall(I=1:size,J=1:size,I>J) a(I,J)=j
forall(I=1:size,J=1:size,I==J) a(I,J)=i
forall(I=1:size,J=1:size,I<J) a(I,J)=j
write(*,"(5(5I5,/))")a
stop
end
8、将两个有序数组合并
program shanchong
integer n,m,l,k,j,i
integer,allocatable::a(:)
integer,allocatable::b(:)
integer,allocatable::c(:)
write(*,*) "输入数组A的数据个数"
read(*,*) n
write(*,*) "输入数组B的数据个数"
read(*,*) m
l=m+n
allocate (a(n))
allocate (b(m))
allocate (c(l))
write(*,*) "从小到大输入A的元素"
do i=1,n
read(*,*) a(i)
end do
write(*,*) "从小到大输入B的元素"
do i=1,m
read(*,*) b(i)
end do
do i=1,n
c(i)=a(i)
end do
i=1
do while(i<m+1)
do j=1,n-1
if(b(i)<c(1))then
n=n+1
do k=n,2,-1
c(k)=c(k-1)
end do
c(1)=b(i)
goto 10
else if(b(i)>=c(n))then
n=n+1
c(n)=b(i)
goto 10
else if(b(i)>c(j).and.b(i)<c(j+1))then
n=n+1
do k=n,j+2,-1
c(k)=c(k-1)
end do
c(j+1)=b(i)
goto 10
else if(b(i)==c(j))then
n=n+1
do k=n,j+1,-1
c(k)=c(k-1)
end do
goto 10
end if
end do
10 i=i+1
end do
write(*,*) "合并后的数组按顺序输出为" do i=1,l
write(*,*) c(i)
end do
End
9、输出一个6行的杨辉三角。