FORTRAN程序設(shè)計(jì)測試試題

1、FORTRAN序設(shè)計(jì)試題（級(jí)補(bǔ)考）作者:日期:2011年9月_日:密三名2010級(jí)程序設(shè)計(jì)基礎(chǔ)（VisualFORTRAN）試卷（B卷）姓答題說明：（1）請按要求將答案書寫在答題紙指定的位置上；（2）密封線內(nèi)學(xué)號(hào)欄填寫完整的8位學(xué)號(hào)；答題紙中上方填寫在教學(xué)班中的序號(hào)。一、選擇題（在每小題給出的4個(gè)選項(xiàng)中只有一項(xiàng)是正確的，將正確選項(xiàng)的字母序號(hào)填在答題紙表格的對應(yīng)空位中。每題1分，共30分。）/C»有些FORTRA語句在程序執(zhí)行時(shí)不產(chǎn)生任何機(jī)器操作。D在FORTRA中“二”表示相等的意思，如A=B表示變量A與B的值相等。10 閱讀下列FORTRA程序：pi=3.14159265write

2、(*,'(f7.4)')pi上求要寫書題考1下列敘述不正確的是。A FORTRAN語言屬于高級(jí)語言。B 程序設(shè)計(jì)語言是全部計(jì)算機(jī)指令的集合。C 高級(jí)語言程序能被計(jì)算機(jī)直接識(shí)別、理解和執(zhí)行。FORTRAN95語言具有模塊化、結(jié)構(gòu)化和面向?qū)ο笕N特征2在VisualFortran中，運(yùn)行一個(gè)FORTRA程序的步驟是end程序運(yùn)行后輸出結(jié)果是A3.142B3.1415C0.31416D3.1416下列輸入輸出語句中錯(cuò)誤的是print*,'x=',x,'x*y*2=',x*y*2write(*,*)a,b,no,'y=',yCread*,

3、n,m,5.0kDwrite(*,22)a,b,i,k,c22format(4x,2f5.0,2i5)要判斷"月收入m在2000元以上(含2000元)且5000元以下)不含5000元)"的職工，應(yīng)該使用的邏輯表達(dá)式是m.ge.2000.or.m.le.5000A 編譯、鏈接、編輯、運(yùn)行B編譯、編輯、鏈接、運(yùn)行輯編譯鏈接運(yùn)輯編Am.ge.2000.and.m.<=.5000B線訂裝16.關(guān)于F0RTRAN9的塊case結(jié)構(gòu)，以下說法中正確的是。A塊case結(jié)構(gòu)中必須以default作為最終的選擇Cjfcase結(jié)構(gòu)的條件表達(dá)式和條是選符表達(dá)式的取值類型必須相同一一一工D塊

4、i7邏輯表達(dá)式：ichar(x(1:1)>=97.and.ichar(x(1:1)<=122是用來判斷_A字符串XB字符串xIC字符串x的第亠D字符數(shù)組x的第一個(gè)元素是否為字母字符有復(fù)數(shù)為(2.3,1.4_8),要保存該數(shù)需要的內(nèi)存case結(jié)構(gòu)的'條件表達(dá)式和條件選擇表達(dá)case結(jié)構(gòu)的不同條件選擇表達(dá)式取值可瓣第一個(gè)字符是否為二個(gè)大寫字母一個(gè)字符是否為一個(gè)數(shù)字字符18.單元大小為_A4字節(jié)OB8字節(jié)C16字節(jié)D24、下列對語句函數(shù)的描述中，不正確的32字節(jié)19對于DO吾句：“doi=10,1,-2”，可計(jì)算出循環(huán)次數(shù)為。A10次B8次C6次D5次20閱讀下列FORTRA程序

5、段：f=1.0dok=3,7,3doi=k-1,kdataa/'1','2','3','4'/doi=1,4print*,(a(j),j=1,i)enddo程序運(yùn)行后，輸出的圖形為A A1B1121212312312341234C4D1432432343214語句函數(shù)只能在本程序單元中被引用。B 語句函數(shù)的虛參不可以與同一程序中的其他變量同名。語句函數(shù)如果沒有虛參，函數(shù)名后的一對括4號(hào)也必不可少。C 語句函數(shù)應(yīng)放在所有可執(zhí)行語句之前和所線訂裝封:密名：姓128子程序的虛參可以是不卞上求要寫書題考A變量名、數(shù)組名、過程名B變量名、數(shù)

6、組名、過程名和符號(hào)常量名C變量名、數(shù)組名、數(shù)組片段、過程名D任意符號(hào)名29有如下定義：typestudentintegernumcharacter*®namerealscoreendtypetype(student):stu結(jié)構(gòu)體變量stu占據(jù)內(nèi)存單元字節(jié)數(shù)是A4B12C18D不確定30.語句open(1,file='in.dat')打開的是文件。A有格式順序存取B無格式順序存取doi=2,n,2k=(2)m=(3)enddowrite(*,*)'m=',mend3.以下程序在主程序中輸入10個(gè)數(shù)據(jù)，調(diào)用排序子程序，將10個(gè)數(shù)按升序排序后輸出到一個(gè)文本

7、文件中。integera(10)read*,acallsort(a,10)open(1,file=”out.dat”)(4)close(1)end封密不下上：求要寫書題考:名姓線訂裝蘭州交通大學(xué)試卷（附卷）勤學(xué)習(xí)祝成功守紀(jì)律莫舞弊卄/甫給Q甫enddoprint"(5i6)",a(8)recursivefunctionfib(n)(9)if(n=O)thenf=0elseif(n=1)thenf=1elsef=(10)endifend二、閱讀程序，在答題紙上寫出程序的運(yùn)行結(jié)果。(每題3分，共15分)3.k=0don=1,6if(mod(n,2)/=0)cyclek=k+ne

8、nddoprint*,egerx(4,4)datax/4*5,4*6,4*7,4*8/doi=1,4doj=1,in=x(i,j)x(i,j)=x(j,i)x(j,i)=nenddoenddowrite(*,'(1x,4i4)(x(i,j),j=1,4),i=1,4)mona(5)doi=1,5a(i)=ienddocallsub(p)print*,pendsubroutinesub(s)commonb(5)s=0doi=1,5s=s+b(i)enddoend四、編程題（第1小題7分，第2小題8分，3、4小題各10分，共35分）1編程輸出u的值，其中，線訂裝:名姓共4丄頁第4頁、題號(hào)-一二二二-三四總分得分評(píng)卷人2010級(jí)程序設(shè)計(jì)基礎(chǔ)（VisualFORTRAN）試卷答題紙得分2小題8分，四、編程題（第1小題7分，第3、4小題各10分，共35分）核分人簽名：答