第3章最基本的FORTRAN語(yǔ)句

第3章最基本的FORTRAN語(yǔ)句FORTRAN程序設(shè)計(jì)1FORTRAN語(yǔ)句

FORTRAN語(yǔ)句分為可執(zhí)行語(yǔ)句和不可語(yǔ)句?？蓤?zhí)行語(yǔ)句：計(jì)算機(jī)在執(zhí)行的過(guò)程中是要執(zhí)行的。標(biāo)準(zhǔn)格式書(shū)寫(xiě)時(shí)，根據(jù)具體情況語(yǔ)句標(biāo)號(hào)可以寫(xiě)也可以不寫(xiě)。不可執(zhí)行語(yǔ)句：計(jì)算機(jī)在執(zhí)行的過(guò)程中是不執(zhí)行的。標(biāo)準(zhǔn)格式書(shū)寫(xiě)時(shí)，語(yǔ)句標(biāo)號(hào)一定不能寫(xiě)或語(yǔ)句標(biāo)號(hào)一定要寫(xiě)（僅指FORMAT語(yǔ)句）。2算術(shù)賦值語(yǔ)句

算術(shù)賦值語(yǔ)句的一般格式：

xxxxxv=e

其中：v是變量名或數(shù)組元素。

e是算術(shù)表達(dá)式。作用：將算術(shù)表達(dá)式e的結(jié)果賦給變量v3參數(shù)說(shuō)明語(yǔ)句的一般格式：

parameter(參數(shù)名=常數(shù),……)作用：將常數(shù)賦給參數(shù)名。例如：parameter(pi=3.1415926,k=100,a0=214.0,imax=5)程序中定義的參數(shù)名只能夠在表達(dá)式中使用，不能對(duì)它賦值。參數(shù)說(shuō)明語(yǔ)句4輸入和輸出一：帶格式輸出語(yǔ)句的一般形式

XXXXXwrite(設(shè)備號(hào)，格式語(yǔ)句標(biāo)號(hào)）變量名表語(yǔ)句標(biāo)號(hào)format(1x,格式說(shuō)明符表）變量名表:由若干個(gè)變量名或數(shù)組元素相互間用逗號(hào)分割組成的內(nèi)容。格式說(shuō)明符表：由若干個(gè)格式說(shuō)明符相互間用逗號(hào)分割組成的內(nèi)容。5例如：write(10,20)m,n20format(1x,i10,i10)數(shù)值型格式說(shuō)明符：Iw（整型輸出）w為十進(jìn)制正整數(shù)，表示輸出整數(shù)的寬度f(wàn)w.d(小數(shù)點(diǎn)型輸出）w,d為十進(jìn)制正整數(shù)，w表示輸出數(shù)據(jù)的寬度,d表示小數(shù)部分占的位數(shù)

Ew.d（指數(shù)型輸出）w,d為十進(jìn)制正整數(shù)，w表示輸出數(shù)據(jù)寬度,d表示指數(shù)型小數(shù)部分的位數(shù)輸入和輸出6

輸入和輸出非數(shù)值型格式說(shuō)明符：X型格式符：

nXn為十進(jìn)制正整數(shù)，空n格H型格式符：

nHh1h2…h(huán)n

n為十進(jìn)制正整數(shù)，原樣輸出h1h2…h(huán)n

或‘h1h2…h(huán)n’原樣輸出h1h2…h(huán)n

格式符的重復(fù)數(shù)：

n格式符n為十進(jìn)制正整數(shù)，表示格式符的重復(fù)數(shù)例如：write(5,10)i1,i2,a,b,c10format(1x,2i8,2x,2f10.3,2x,2Hc=,e12.5)7輸入和輸出二：帶格式輸入語(yǔ)句的一般形式

XXXXXread(設(shè)備號(hào)，格式語(yǔ)句標(biāo)號(hào)）變量名表語(yǔ)句標(biāo)號(hào)

format(格式說(shuō)明符表）例如：read(5,20)a,b,k20format(2f7.4,i5)執(zhí)行以上輸入時(shí)，輸入數(shù)據(jù)是：35000415002或3.54.152或3.5,4.15,28stop、pause語(yǔ)句一：stop語(yǔ)句的一般格式xxxxxstop或xxxxxstop八進(jìn)制數(shù)終止程序的執(zhí)行。二：pause語(yǔ)句的一般格式xxxxxpause或xxxxxpause八進(jìn)制數(shù)暫時(shí)停止程序的執(zhí)行。三：stop語(yǔ)句、pause語(yǔ)句和END行的區(qū)別9應(yīng)用舉例編寫(xiě)求三角形的面積的FORTRAN程序。

read(5,10)a,b,cformat(3f8.3)s=(a+b+c)/2.0area=sqrt(s*(s-a)*(s-b)*(s-c))write(5,20)a,b,c,areaformat(1x,2ha=,f8.3,3x,2hb=,f8.3,3x,2hc=,f8.3,3x5harea=,f8.3)end10應(yīng)用舉例編寫(xiě)求5個(gè)數(shù)中絕對(duì)值最大的數(shù)的FORTRAN程序。

read(5,10)a,b,c,d,eformat(5f8.3)

arge=max(a,b,c,d,e)write(5,20)arge20format('THEGREATERNUMBERIS',f10.3)end11應(yīng)用舉例“雞兔同籠問(wèn)題”在一個(gè)籠子里養(yǎng)著雞與兔，但不知其中雞有多少只，兔有多少只。只知道雞和兔的總數(shù)是a，雞與兔的總腳數(shù)是b，求雞與兔各有多少只。思路分析：首先從題目本身開(kāi)始，找出解決問(wèn)題的基本思路。每只雞有兩只腳，每只兔有四只腳。假設(shè)有x只雞和y只兔，則根據(jù)已知條件可列出如下方程組：

x+y=a2x+4y=b對(duì)該方程組做進(jìn)一步的轉(zhuǎn)換可得：y=(b-2a)/2x=(4a-b)/212應(yīng)用舉例算法描述：定義integer變量a,b,x,y輸入雞和兔的總數(shù)a及輸入雞與兔的總腳數(shù)b計(jì)算雞的數(shù)量x計(jì)算兔的數(shù)量y輸出雞的數(shù)量輸出兔的數(shù)量源程序清單：integera,b,x,yread(*,*)a,bx=(4*a-b)/2