fortran考試試題(A)有答案版

本文格式為Word版，下載可任意編輯——fortran考試試題(A)有答案版

中南林業(yè)科技大學(xué)課程考試試卷考試時間填寫：填寫：課程名稱：課程名稱：Fortran語言程序設(shè)計；試卷學(xué)年考試時間：編號：月日編號：A卷；考試時間：120分鐘院考專試用題一二三四總業(yè)號分班應(yīng)30102040級得年分級實姓得名分學(xué)填空題(號一、填空題(30分，每題2分)得分評卷復(fù)查人人裝訂線(答題不得超過此線)

1.Fortran語言中有：整數(shù)型規(guī)律型字符型實數(shù)語言中有：復(fù)數(shù)型五種基本數(shù)據(jù)類型五種基本數(shù)據(jù)類型。型復(fù)數(shù)型五種基本數(shù)據(jù)類型。2.Fortran程序的書寫格式有兩種固定格式自由格程序的書寫格式有兩種固定格式式。3.字符型常數(shù)字符型常數(shù)’this〞s’的字符長度為6的字符長度為4.以下程序運行結(jié)果為125。。Programmain1

ImplicitnoneInteger::floor=5,iDoi=1,floorIf(i==3)cycleIf(i==4)cycleWrite(*,*)iEnddoend5.以下程序的運行結(jié)果為ImplicitnoneReal::a,b,mA=2.0B=76.0If(ab)thenM=aA=bB=mEndifWrite(*,*)“a=〞,a“b=〞,bend6.以下程序的運行結(jié)果是

Programtest

Implicitnone

Integer::sum,isum=0.0doi=1,203,2sum=sum+ienddowrite(*,*)i

end

7.以下程序的運行結(jié)果是

Programtest

Implicitnone

Integer::i

Integer::a(5)=(/(i,i=1,5)/)

Integer::b(5)=0

Where(a3)

b=a

Endwhere

Write(*,〞(5(i3,1x))〞)b

end

8.以下程序的運行結(jié)果是。

Programtest

Implicitnone

Integer,parameter::limit=10

Integercounter

Integer::ans=0

Counter=2

dowhile(counter=limit)

ans=ans+counter

counter=counter+2

enddo

Wrte(*,*)ans

end

9.以下程序的運行結(jié)果是

Programmain

implicitnone

integer::a=1

integer::b=2

calladd(a)

Calladd(b)

Write(*,*)a,b

Stop

end

Subroutineadd(sum)

Implicitnone

integer::sum

sum=sum+1

Return

end

10.以下程序的運行結(jié)果是。

Programmain

implicitnone

integer,target::a=1

integer,pointer::p

p=a

p=3

write(*,*)a

end

211.二維數(shù)組在內(nèi)存中的存儲順序為：1324。3412.以下程序的運行結(jié)果是

Programtest

Implicitnone

Integer::i

Integer::a(5)

Forall(i=1:5)

A(I)=5

Endforall

Write(*,*)a

Stop

end

13.數(shù)學(xué)表達式13-1/2的值為：

14.規(guī)律表達式(（35）.and.(41)).or.(58)的值為:ture。

15.以下程序的運行結(jié)果是

Programtest

Implicitnone

Complexa,b,c

A=(1.0,2.0)

b=(2.0,4.0)

c=a+b

Write(*,*)c

Stop

end

二、程序說明題（10分，每空2分）

Fortran語句中，“！〞后的內(nèi)容為對整個程序或某行程序的說明，請在下面程序中慨嘆號后，對相應(yīng)fortran語句進行說明。（10分，每空2分）

Programtest

Implicitnone

integer,parameter::students=5！定義一個永久

integer::student(students)！定義一個長度為integer::I

Doi=1,students

write(*,('number',i2))I！輸出I的數(shù)值

read(*,*)student(i)！輸入一個數(shù)值賦值enddo

end

三、程序完善題（20分，每空2分）

1.編寫程序，讀入一個學(xué)生的考試成績，然后輸出該成績的等級。成績等級規(guī)定為：90～100分為A級，80～89分為B級，70～79分為C級，60～69分為D級，60分以下為E級。若輸入負分或大于100分的成績，則程序輸出一個“？〞號。

programmain

implicitnoneinteger::scorecharactergradewrite(*,*)〞score:〞

grade=〞?〞

)then

elseif(score=60)thenelseif(score=0)thengrade=〞D〞

grade=〞E〞

endif

endwrite(*,*)〞成績等級為:〞,grade

個班有2.編寫程序10名學(xué)生。,讀入一年級5個班同學(xué)的數(shù)學(xué)成績，每

programmain

implicitnone

integer,parameter::classes=5

integer,parameter::students=10,)

integer::sinteger::c

write(*,*)number,s,classes,cenddo

enddo

end

四、程序編寫題（40分）

1.計算1+2+3+4++100=

Programtest

Implicitnone

I