第3章最基本的FORTRAN語句

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

FORTRAN語句分為可執(zhí)行語句和不可語句。可執(zhí)行語句：計算機在執(zhí)行的過程中是要執(zhí)行的。標準格式書寫時，根據(jù)具體情況語句標號可以寫也可以不寫。不可執(zhí)行語句：計算機在執(zhí)行的過程中是不執(zhí)行的。標準格式書寫時，語句標號一定不能寫或語句標號一定要寫（僅指FORMAT語句）。2算術(shù)賦值語句

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

xxxxxv=e

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

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

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

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

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

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

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

nHh1h2…h(huán)n

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

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

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

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

XXXXXread(設(shè)備號，格式語句標號）變量名表語句標號

format(格式說明符表）例如：read(5,20)a,b,k20format(2f7.4,i5)執(zhí)行以上輸入時，輸入數(shù)據(jù)是：35000415002或3.54.152或3.5,4.15,28stop、pause語句一：stop語句的一般格式xxxxxstop或xxxxxstop八進制數(shù)終止程序的執(zhí)行。二：pause語句的一般格式xxxxxpause或xxxxxpause八進制數(shù)暫時停止程序的執(zhí)行。三：stop語句、pause語句和END行的區(qū)別9應(yīng)用舉例編寫求三角形的面積的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)用舉例編寫求5個數(shù)中絕對值最大的數(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)用舉例“雞兔同籠問題”在一個籠子里養(yǎng)著雞與兔，但不知其中雞有多少只，兔有多少只。只知道雞和兔的總數(shù)是a，雞與兔的總腳數(shù)是b，求雞與兔各有多少只。思路分析：首先從題目本身開始，找出解決問題的基本思路。每只雞有兩只腳，每只兔有四只腳。假設(shè)有x只雞和y只兔，則根據(jù)已知條件可列出如下方程組：

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