FORTRAN95程序設(shè)計(jì)試題(2022級(jí)補(bǔ)考)

1、教學(xué)班中學(xué)生序號(hào) 2022 年 9 月 日蘭州交通大學(xué)試卷主卷考題書(shū)寫(xiě)要求：上下不得超過(guò)黑線兩端點(diǎn)密封線班級(jí)： 姓名： 學(xué)號(hào)： 裝訂線 C 有些FORTRAN語(yǔ)句在程序執(zhí)行時(shí)不產(chǎn)生任何機(jī)器操作。 D 在FORTRAN中“=表示相等的意思，如A=B表示變量A與B的值相等。10閱讀以下FORTRAN程序： pi=3.14159265 write(*,(f7.4) ) pi end 程序運(yùn)行后輸出結(jié)果是 A 3.142B 3.1415C 0.31416D 3.1416 11以下輸入輸出語(yǔ)句中錯(cuò)誤的選項(xiàng)是 。A print*, x=, x, x*y*2=, x*y*2B write ( * , * )

2、 a, b, no, y=, yC read*, n, m, 5.0kD write ( *,22 ) a, b, i, k, c22 format ( 4x, 2f5.0, 2i5 ) 12要判斷月收入m在2000元以上(含2000元)且5000元以下)不含5000元)的職工，應(yīng)該使用的邏輯表達(dá)式是 A m .ge. 2000 .and. m .= 2000 .and. m .lt. 5000D m =. 2000 .or. m 5000 13已定義a為整形變量，不能正確表達(dá)數(shù)學(xué)關(guān)系：10a15的FORTRAN表達(dá)式是 。A 10a10.and.a15D .not.(a=15)14要實(shí)現(xiàn)“當(dāng)

3、xy時(shí)，z=x+y，否那么z=x-y。以下能完成該功能的程序段是 。A if (xy) z=x+yB if (xy) then z=x+y else z=x-y z=x-yC z=x-yD if (xy) if (xy) z=x+y z=x+yelse z=x-yend if15.對(duì)以下程序段的表達(dá)正確的選項(xiàng)是 。 character*5 str1,str2*3，str3*10 str1=new str2=chinese str3=str1/str2 A 字符變量str1的值為new B 字符變量str2的值為chi C 字符變量str2的值為ese D 字符變量str3的值為newchine

4、se 說(shuō)明：“表示空格，下同。2022級(jí)程序設(shè)計(jì)根底Visual FORTRAN試卷B卷答題說(shuō)明：1請(qǐng)按要求將答案書(shū)寫(xiě)在答題紙指定的位置上；一、選擇題在每題給出的4個(gè)選項(xiàng)中只有一項(xiàng)為哪一項(xiàng)正確的，將正確選項(xiàng)的字母序號(hào)填在答題紙表格的對(duì)應(yīng)空位中。每題1分，共30分。1以下表達(dá)不正確的選項(xiàng)是 。 A FORTRAN語(yǔ)言屬于高級(jí)語(yǔ)言。 B 程序設(shè)計(jì)語(yǔ)言是全部計(jì)算機(jī)指令的集合。 C 高級(jí)語(yǔ)言程序能被計(jì)算機(jī)直接識(shí)別、理解和執(zhí)行。 D FORTRAN 95語(yǔ)言具有模塊化、結(jié)構(gòu)化和面向?qū)ο笕N特征。2在Visual Fortran中，運(yùn)行一個(gè)FORTRAN程序的步驟是 。A 編譯、鏈接、編輯、運(yùn)行B 編譯、

5、編輯、鏈接、運(yùn)行C 編輯、編譯、鏈接、運(yùn)行D 編輯、編譯、運(yùn)行、調(diào)試3下面名稱(chēng)中是合法的變量名的是 。 A a-b-cB a&bC sum_1D dat.year4下面是FORTRAN 95中正確的表達(dá)式的是 。 A a*cos(x)+bB 2*exp(2*x)/sqrt(16) C b2-4acD mod24.5,0.55以下四個(gè)整數(shù)中，哪一個(gè)是合法整數(shù) 。 A 8#159B #458dC 5,234D 358_36在FORTRAN中，以下運(yùn)算符的優(yōu)先順序是 。A 邏輯運(yùn)算，關(guān)系運(yùn)算，算術(shù)運(yùn)算 B 關(guān)系運(yùn)算，邏輯運(yùn)算，算術(shù)運(yùn)算 C 算術(shù)運(yùn)算，關(guān)系運(yùn)算，邏輯運(yùn)算 D 關(guān)系運(yùn)算，算術(shù)運(yùn)算，邏輯運(yùn)

6、算7以下FORTRAN語(yǔ)言標(biāo)點(diǎn)符號(hào)中表示續(xù)行的是 。A & B #C ！D ；8、 FORTRAN表達(dá)式2/4+0.5的值是 A 0.5B 1C 1.0D 0 9以下說(shuō)法中，正確的選項(xiàng)是 。A 在FORTRAN程序中，各類(lèi)語(yǔ)句的位置是任意的。 B 任何一個(gè)FORTARN語(yǔ)句在程序執(zhí)行時(shí)都會(huì)產(chǎn)生某種機(jī)器操作。 2密封線內(nèi)學(xué)號(hào)欄填寫(xiě)完整的8位學(xué)號(hào)；答題紙中上方填寫(xiě)在教學(xué)班中的序號(hào)。共 4 頁(yè) 第 1 頁(yè)勤學(xué)習(xí) 祝成功 守紀(jì)律 莫舞弊蘭州交通大學(xué)試卷附卷16.關(guān)于FORTRAN95的塊case結(jié)構(gòu)，以下說(shuō)法中正確的選項(xiàng)是 。A 塊case結(jié)構(gòu)中必須以default作為最終的選擇B 塊case結(jié)構(gòu)的條

7、件表達(dá)式不能是字符類(lèi)型C 塊case結(jié)構(gòu)的條件表達(dá)式和條件選擇表達(dá)式的取值類(lèi)型必須相同D 塊case結(jié)構(gòu)的不同條件選擇表達(dá)式取值可以重復(fù)17邏輯表達(dá)式：icharx1：1= 97 .and. icharx1：1a(j) then t=a(i); a(i)=a(j); 7 endif enddo enddoend4利用遞歸函數(shù)fib(n)，求出前20個(gè)斐波那契數(shù)：1,1,2,3,5,8，。斐波那契數(shù)由下面的遞推公式定義。parameter (n=20)integer a(n)do i=1,20 a(i)=fib(i)28子程序的虛參可以是 。A 變量名、數(shù)組名、過(guò)程名B 變量名、數(shù)組名、過(guò)程名和

8、符號(hào)常量名C 變量名、數(shù)組名、數(shù)組片段、過(guò)程名D 任意符號(hào)名29有如下定義：type student integer num character*10 name real scoreend typetype(student): stu結(jié)構(gòu)體變量stu占據(jù)內(nèi)存單元字節(jié)數(shù)是 。A 4 B 12C 18D 不確定30語(yǔ)句open(1, file=in.dat) 翻開(kāi)的是 文件。A 有格式順序存取B 無(wú)格式順序存取C 有格式直接存取D 無(wú)格式直接存取二、填空題每空2分，共20分。請(qǐng)將以下程序空缺補(bǔ)充完整，并將正確答案寫(xiě)在答題紙相應(yīng)位置上1從鍵盤(pán)輸入a，x的值，輸出y的值。 real a, x,y re

9、ad *,a,x y= 1 print*，y end2計(jì)算表達(dá)式 2+2+4+2+4+6+2+4+6+8+ +2+4+6+8+ + n 的值。運(yùn)行時(shí)從鍵盤(pán)輸入 n 的值。read(*,*) nm=0k=0考題書(shū)寫(xiě)要求：上下不得超過(guò)黑線兩端點(diǎn)密封線班級(jí)： 姓名： 學(xué)號(hào)： 裝訂線 共 4 頁(yè) 第 3 頁(yè)蘭州交通大學(xué)試卷附卷勤學(xué)習(xí) 祝成功 守紀(jì)律 莫舞弊 enddoprint (5i6),a 8recursive function fib(n) 9 if(n=0) then f=0 else if(n=1) then f=1 else f= 10 endifend三、閱讀程序，在答題紙上寫(xiě)出程序的運(yùn)

10、行結(jié)果。每題3分，共15分1logical kread(*,*)a,bkif(k)thenx=b+2*aelsex=bend ifwrite(*,*)xend從鍵盤(pán)輸入：4, 32integer：n，kreal：s，tread *, ns = 0.0k = 1if ( n = 5 ) thens = s + 12t = 1do while ( k n )t = t * 2s = s + tk = k +1end doend ifprint * , send從鍵盤(pán)輸入：6考題書(shū)寫(xiě)要求：上下不得超過(guò)黑線兩端點(diǎn)密封線班級(jí)： 姓名： 學(xué)號(hào)： 裝訂線3k=0do n=1,6 ifmod(n,2)/=0c

11、ycle k=k+nenddoprint *, kend5common a(5)do i=1,5 a(i)=ienddocall sub(p)print *,pendsubroutine sub(s)common b(5)s=0do i=1,5 s=s+b(i)enddoend4integer x(4,4) data x/4*5,4*6,4*7,4*8/ do i=1,4 do j=1,i n=x(i,j) x(i,j)=x(j,i) x(j,i)=n end do end do write*，(1x,4i4) (x(i,j),j=1,4),i=1,4) end四、編程題第1小題7分，第2小題

12、8分，3、4小題各10分，共35分1編程輸出u的值，其中，u=， ，。a，b的值由鍵盤(pán)輸入。7分2打印由1，2，3這三個(gè)數(shù)字組成的所有可能的三位數(shù)。允許出現(xiàn)各位數(shù)字相同的數(shù)，如111，222，。8分3編程計(jì)算 1/1!+1/2!+1/3!+1/4!+1/10! 的值。10分4編程求一個(gè)43矩陣的轉(zhuǎn)置矩陣。10共 4 頁(yè) 第 4 頁(yè)教學(xué)班中學(xué)生的序號(hào)2011 年 9 月 日2022級(jí)程序設(shè)計(jì)根底Visual FORTRAN試卷答題紙題號(hào)一二三四總分得分評(píng)卷人 核分人簽名： 答題說(shuō)明：1請(qǐng)按要求將答案書(shū)寫(xiě)在答題紙指定的位置上； 2密封線內(nèi)學(xué)號(hào)欄填寫(xiě)完整的8位學(xué)號(hào)；答題紙中上方填寫(xiě)在教學(xué)班中的序號(hào)。 一、選擇題在每題給出的4個(gè)選項(xiàng)中只有一項(xiàng)為哪一項(xiàng)正確的，將正確選項(xiàng)的字母序號(hào)填在答題紙表格的對(duì)應(yīng)空位中。每題1分，共30分題號(hào)123456789101112131415答案題號(hào)1617