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

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

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

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

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

Programtest

Implicitnone

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

end

7.以下程序的運(yùn)行結(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.以下程序的運(yùn)行結(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.以下程序的運(yùn)行結(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.以下程序的運(yùn)行結(jié)果是。

Programmain

implicitnone

integer,target::a=1

integer,pointer::p

p=a

p=3

write(*,*)a

end

211.二維數(shù)組在內(nèi)存中的存儲(chǔ)順序?yàn)椋?324。3412.以下程序的運(yùn)行結(jié)果是

Programtest

Implicitnone

Integer::i

Integer::a(5)

Forall(i=1:5)

A(I)=5

Endforall

Write(*,*)a

Stop

end

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

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

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

Programtest

Implicitnone

Complexa,b,c

A=(1.0,2.0)

b=(2.0,4.0)

c=a+b

Write(*,*)c

Stop

end

二、程序說(shuō)明題（10分，每空2分）

Fortran語(yǔ)句中，“！〞后的內(nèi)容為對(duì)整個(gè)程序或某行程序的說(shuō)明，請(qǐng)?jiān)谙旅娉绦蛑锌畤@號(hào)后，對(duì)相應(yīng)fortran語(yǔ)句進(jìn)行說(shuō)明。（10分，每空2分）

Programtest

Implicitnone

integer,parameter::students=5！定義一個(gè)永久

integer::student(students)！定義一個(gè)長(zhǎng)度為integer::I

Doi=1,students

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

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

end

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

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

programmain

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

grade=〞?〞

)then

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

grade=〞E〞

endif

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

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

programmain

implicitnone

integer,parameter::classes=5

integer,parameter::students=10,)

integer::sinteger::c

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

enddo

end

四、程序編寫題（40分）

1.計(jì)算1+2+3+4++100=

Programtest

Implicitnone

I