格式輸入輸出格式輸入輸出概述格式輸出語(yǔ)句與格式編輯符格式輸入語(yǔ)句與格式編輯符輸入輸出語(yǔ)句與格式語(yǔ)句的相互作用在輸入輸出語(yǔ)句中包含格式說(shuō)明輸入輸出概述數(shù)據(jù)的輸入輸出是程序的重要組成部分。在前面我們使用表控方式進(jìn)行輸入和輸出。我們希望按照自己所要求的格式來(lái)進(jìn)行輸入輸出。輸入輸出：是指在計(jì)算機(jī)內(nèi)存與外部設(shè)備之間傳送數(shù)據(jù)的過程。從外部設(shè)備將數(shù)據(jù)傳送到計(jì)算機(jī)內(nèi)存稱為輸入。將計(jì)算機(jī)內(nèi)部的數(shù)據(jù)傳送到外部設(shè)備稱為輸出。輸入輸出給計(jì)算機(jī)提供三方面的信息：

(1)通過什么設(shè)備來(lái)進(jìn)行輸入輸出。

(2)采用什么樣的格式來(lái)進(jìn)行輸入輸出。

(3)輸入輸出的具體內(nèi)容。每種計(jì)算機(jī)都隱含指定一種輸入、輸出設(shè)備。在微機(jī)中，鍵盤為輸入設(shè)備，顯示器為輸出設(shè)備。在輸入輸出數(shù)據(jù)較多時(shí)，也可以使用磁盤作為輸入輸出設(shè)備。輸入輸出的格式由格式編輯符來(lái)指定。輸入輸出的具體內(nèi)容即輸入輸出項(xiàng)。輸入項(xiàng)只能為變量，輸出項(xiàng)可以為常量、變量、函數(shù)和表達(dá)式，也可以是隱含的DO循環(huán)。例子。

INTEGERJDOJ=1,5,2WRITE(*,10)JENDDO10FORMAT(1X,3I5)END程序輸出為：

135每循環(huán)一次輸出循環(huán)變量J的值，每個(gè)數(shù)據(jù)占5格

INTEGERJWRITE(*,10)(J,J=1,5,2)10FORMAT(1X,3I5) END程序輸出為：135程序中，WRITE語(yǔ)句的輸出項(xiàng)“(J,J=1,5,2)”是一個(gè)隱含的DO循環(huán)，當(dāng)作一個(gè)整體輸出，每個(gè)數(shù)據(jù)占5格。格式輸出語(yǔ)句與格式編輯符格式輸出語(yǔ)句WRITE(u,f)

輸出項(xiàng)標(biāo)號(hào)

FORMAT(格式說(shuō)明)PRINTf,輸出項(xiàng)設(shè)備號(hào)設(shè)備號(hào)格式說(shuō)明格式說(shuō)明符有以下三種形式：

(1)一個(gè)“*”，表示輸出使用表控格式。前面已介紹。

(2)一個(gè)字符常量。例如PRINT'(1X,2F7.3)',X,Y(3)是格式語(yǔ)句(FORMAT)的語(yǔ)句標(biāo)號(hào)。最常用。例如：PRINT100,A,B,C100FORMAT(1X,F9.4,2F7.3)格式編輯符：I、B、O、Z、F、E、EN、ES、G、D、L、A、’撇號(hào)、H、X設(shè)備號(hào)可是常量、變量、函數(shù)、表達(dá)式，隱含的DO循環(huán)整型I編輯符、B編輯符、O編輯符、Z編輯符整型：I編輯符I編輯符：用于整型數(shù)的輸入輸出格式，其一般形式為：rIωr表示數(shù)據(jù)的個(gè)數(shù)I編輯符遵循下列規(guī)則：實(shí)際位數(shù)小于ω，則在左邊用空格來(lái)補(bǔ)滿場(chǎng)寬；實(shí)際大于ω，則用“*”輸出，以表示規(guī)定的場(chǎng)寬不夠，無(wú)法正常輸出該整數(shù)。

整型：B,O,Z編輯符這是FORTRAN90新增的編輯符。分別采用二進(jìn)制、八進(jìn)制和十六進(jìn)制形式描述整型量的輸入輸出。其基本用法與I編輯符相同。例如

READ(*,10)I,JWRITE(*,20)I,J,I,J10FORMAT(B3,B4)20FORMAT(1X,I5,I4,O4,Z5)END

語(yǔ)句執(zhí)行時(shí)，若從鍵盤輸入1011101，則I,J的值分別為二進(jìn)制數(shù)101和二進(jìn)制數(shù)1101。輸出結(jié)果為：

□□□□5□□13□□□5□□□□D

整型：B,O,Z編輯符但與I編輯符也有區(qū)別，注意：①如果位數(shù)大于字段寬度，實(shí)際輸出是從右端截取相應(yīng)位數(shù)而得到的。例如WRITE(*,20)1420FORMAT(1X,B3)輸出結(jié)果為：110②Z編輯符可以用來(lái)輸入輸出字符型和邏輯型數(shù)據(jù)。例如WRITE(*,20)14>90,14<34,'ab'20FORMAT(1X,Z3,Z3,Z5)輸出結(jié)果為：□□0□□1□6162可看出:如用Z編輯符輸出字符型數(shù)據(jù)，結(jié)果為對(duì)應(yīng)的ASCII碼值。例如：“a”

61，“b”

62。如用Z編輯符輸出邏輯型數(shù)據(jù)，則邏輯真

1，邏輯假

0。實(shí)型F編輯符E編輯符EN編輯符ES編輯符G編輯符實(shí)型：F編輯符F編輯符用：用于規(guī)定實(shí)型數(shù)據(jù)的輸入輸出格式

Fω.dF編輯符遵循下列規(guī)則：實(shí)數(shù)的符號(hào)和小數(shù)點(diǎn)均單獨(dú)占一位，因此要求ω≥b+d+2，其中：b為整數(shù)的位數(shù)；d小于實(shí)際小數(shù)部分的位數(shù)，則小數(shù)部分最右邊將被截去；d大于實(shí)數(shù)小數(shù)部分的位數(shù)，則小數(shù)部分最右邊用0來(lái)補(bǔ)足；ω大于數(shù)字位數(shù)（包括在小數(shù)部分最右邊所補(bǔ)的數(shù)字0），則左邊用空格補(bǔ)足；ω小于實(shí)際輸出數(shù)據(jù)的數(shù)字位數(shù)，則輸出ω個(gè)“*”號(hào)。實(shí)型：E編輯符E編輯符：用來(lái)規(guī)定實(shí)型數(shù)據(jù)的輸入輸出格式

Eω.d；格式化形式為：0.X…XE±XXE編輯符遵循下列規(guī)則：指數(shù)形式輸出時(shí)，指數(shù)占4列（E和符號(hào)各占1列，階碼占2列）；尾數(shù)部分中的符號(hào)、小數(shù)點(diǎn)前的前導(dǎo)零和小數(shù)點(diǎn)各占1列。因此，要求ω≥d＋7；d大于實(shí)際的尾數(shù)數(shù)字的位數(shù)，則在尾數(shù)最后用數(shù)字0來(lái)補(bǔ)足；d小于實(shí)際的尾數(shù)數(shù)字的位數(shù)，則按四舍五入截去多余的；ω不夠大，即ω＜d＋6，則輸出“*”號(hào)，以表示無(wú)法輸出該實(shí)數(shù)；ω＞d＋7，則左邊用空格補(bǔ)足。實(shí)型：

Eω.dEn;Eω.dEs與Gω.d

EN編輯符。EN編輯符與E編輯符基本用法相同。區(qū)別在于EN的非指數(shù)部分的絕對(duì)值強(qiáng)制在1到1000的范圍內(nèi)，且指數(shù)可以被3整除。例如

WRITE(*,10)128.433,-0.000810FORMAT(1X,EN12.4,EN13.2)輸出為：128.4330E+00□□-800.00E-06ES編輯符。非指數(shù)部分的絕對(duì)值強(qiáng)制在1到10的范圍內(nèi)。例如:WRITE(*,10)128.433,-0.000810FORMAT(1X,ES12.4,ES13.2)輸出為：□□1.2843E+02□□□□-8.00E-04G編輯符用于輸入時(shí)，與F、E編輯符的功能完全相同。用于輸出時(shí)，根據(jù)輸出項(xiàng)的大小決定用F格式輸出還是用E格式輸出。復(fù)型數(shù)據(jù)編輯描述符復(fù)型數(shù)據(jù)沒有專門的編輯符。對(duì)復(fù)型數(shù)據(jù)的輸入輸出，可以按實(shí)部和虛部分別輸入輸出。例如

COMPLEXCMREAD(*,10)CMWRITE(*,20)CM10FORMAT(2F5.2)20FORMAT(1X,2F7.2)

語(yǔ)句執(zhí)行時(shí)，從鍵盤輸入1234567890，則輸出為：□123.45□678.90邏輯型數(shù)據(jù)編輯描述符邏輯型數(shù)據(jù)的輸入輸出用L編輯符。其一般格式是：

rLw

邏輯值只有兩個(gè)：真(.TRUE.)和假(.FALSE.)。在輸入時(shí)，輸入的數(shù)據(jù)可以是.TRUE.或.FALSE.，也可以是頭一個(gè)字母為T或F的任何字符串(T或F前面可以接“.”或空格，后面可以是任意字符)邏輯型數(shù)據(jù)編輯描述符例如

LOGICALL1,L2READ(*,10)L1,L210FORMAT(L6,L3)

語(yǔ)句執(zhí)行時(shí)，從鍵盤輸入.TRUE..FT，則L1、L2的值分別是.TRUE.、.FALSE.。在輸出時(shí)，對(duì)邏輯真(.TRUE.)，輸出一個(gè)字母T，對(duì)邏輯假(.FALSE.)，輸出字母F，且在左邊補(bǔ)w-1個(gè)空格。例如

WRITE(*,10).FALSE.,'A'.LT.'B'.OR.1.GT.210FORMAT(1X,L3,L4)

輸出為：

□□F□□□T字符型數(shù)據(jù)編輯描述符字符型數(shù)據(jù)的輸入輸出用A編輯符。一般格式是：

rAw其中：w省略時(shí)，隱含為長(zhǎng)度l。字符型數(shù)據(jù)編輯描述符輸入規(guī)則：從輸入記錄中取w個(gè)字符。當(dāng)w=L時(shí)，w個(gè)字符全部送給輸入項(xiàng)。當(dāng)w>L時(shí)，從w個(gè)字符中取出最右邊L個(gè)字符送給對(duì)應(yīng)的輸入項(xiàng)。這一點(diǎn)與字符賦值語(yǔ)句的賦值規(guī)則剛好相反。當(dāng)w<L時(shí)，當(dāng)w個(gè)字符全部送入輸入項(xiàng)，并靠左對(duì)齊，右邊補(bǔ)l-w個(gè)空格。這一點(diǎn)同字符賦值語(yǔ)句的規(guī)則是相同的。字符型數(shù)據(jù)編輯描述符例如CHARACTER*5C1,C2,C3READ(*,10)C1,C2,C310FORMAT(A5,A2,A7)

語(yǔ)句執(zhí)行時(shí)，從鍵盤輸入abcdefghijklmn，則C1、C2、C3的值分別為abcde、fg□□□、jklmn。用A編輯符輸入字符串時(shí)，不能有字符串的定界符，如果加了撇號(hào)，則撇號(hào)也作為字符串的一個(gè)字符。而在表控格式輸入時(shí)，字符常量要加撇號(hào)定界符。字符型數(shù)據(jù)編輯描述符輸出規(guī)則：在輸出記錄中，Aw編輯符所對(duì)應(yīng)的輸出項(xiàng)一定占w個(gè)字符的寬度，但輸出項(xiàng)實(shí)際包含字符的個(gè)數(shù)L可能與w不一致。當(dāng)w=L時(shí)，輸出項(xiàng)所有的字符全部輸出。當(dāng)w>L時(shí)，輸出項(xiàng)所有的字符全部輸出，并且靠右對(duì)齊，左補(bǔ)w-L個(gè)空格。當(dāng)w<L時(shí)，輸出項(xiàng)最左邊w個(gè)字符輸出。當(dāng)w省略時(shí)，按輸出項(xiàng)的長(zhǎng)度輸出，這是最方便的形式。例如WRITE(*,10)'FORTRAN

90','PROGRAM'10FORMAT(1X,A7,A8)輸出為：FORTRAN□PROGRAM

編輯描述符總結(jié)FORTRAN90提供的編輯描述符很多，掌握共同特點(diǎn)就不難了?？芍貜?fù)編輯描述符是用來(lái)決定對(duì)應(yīng)輸入輸出項(xiàng)的輸入輸出格式的，其中都有字段寬度w，而且對(duì)于輸入都是從輸入記錄中取w個(gè)字符，對(duì)于輸出都是在輸出記錄中輸出w個(gè)字符。編輯描述符總結(jié)問題：如何記憶？在輸入時(shí)，取得的w個(gè)字符按什么規(guī)則加工后傳送到對(duì)應(yīng)的輸入項(xiàng)。在輸出時(shí)，當(dāng)輸出項(xiàng)實(shí)際包括的字符的個(gè)數(shù)和編輯符中所確定的字段寬度(對(duì)于數(shù)值型數(shù)據(jù)還有小數(shù)位數(shù))之間不相符時(shí)，如何輸出?可分?jǐn)?shù)值型、邏輯型、字符型進(jìn)行總結(jié)。格式輸入語(yǔ)句與格式編輯符格式輸入語(yǔ)句：READ語(yǔ)句與FORMAT語(yǔ)句READ(u,f)

輸入表列READf

輸入表列注意：READ輸入表列中只能是變量名，不能是表達(dá)式；在進(jìn)行具體輸入時(shí)，不必考慮縱向控制符。輸入設(shè)備默認(rèn)為鍵盤其他，類同WRITE語(yǔ)句對(duì)格式輸入的幾點(diǎn)說(shuō)明對(duì)格式輸入的幾點(diǎn)說(shuō)明數(shù)值型數(shù)據(jù)，只按字段寬度截取規(guī)定位數(shù)的數(shù)字，并且，在字段范圍內(nèi)的空格按數(shù)字0處理。對(duì)于實(shí)型數(shù)據(jù)的輸入來(lái)說(shuō)，F(xiàn)與E型編輯符的作用完全相同，并且，它們與D型編輯符的作用也相同?！白詭?shù)點(diǎn)優(yōu)先”的原則：輸入的數(shù)字在字段寬度范圍內(nèi)自帶小數(shù)點(diǎn)，位置按實(shí)際的小數(shù)點(diǎn)位置來(lái)確定，而不再由編輯符中的d值來(lái)確定。邏輯數(shù)據(jù)輸入時(shí)，字符串以字母T開頭，“真”即.TRUE.）；字符串以F開頭，“假”（即.FALSE.）。字符串中的非字母都將被忽略。對(duì)于同一個(gè)變量，如果輸入與輸出共用一個(gè)格式語(yǔ)句，則要注意以下兩個(gè)問題在輸入時(shí)不需要提供縱向控制符；并且，一般來(lái)說(shuō)，格式說(shuō)明中的nX表示在鍵盤輸入的數(shù)字序列中跳過n個(gè)字符；當(dāng)實(shí)型數(shù)據(jù)的輸入與輸出共用同一個(gè)格式說(shuō)明編輯符時(shí)，在用于輸出時(shí)，其字段寬度是不夠的；一般來(lái)說(shuō)，程序中的輸入語(yǔ)句與輸出語(yǔ)句不要共用同一個(gè)格式語(yǔ)句。輸入輸出語(yǔ)句與格式語(yǔ)句的相互作用非重復(fù)編輯描述符直接向當(dāng)前輸出記錄傳遞信息，因此不需要輸入輸出項(xiàng)與其對(duì)應(yīng)。格式輸入輸出語(yǔ)句中其它有關(guān)的格式問題:X編輯符H編輯符撇號(hào)編輯符斜扛編輯符縱向控制符編輯符的重復(fù)編輯符使用的補(bǔ)充說(shuō)明非重復(fù)編輯描述符X編輯符用于在輸入輸出的常數(shù)之間插入空格。一般格式：

nX其中:n>0，用于指明從當(dāng)前位置向右跳過n個(gè)字符位置。這里n不能省略，即使n為1，也要寫成1X。例如

READ(*,10)K,J,A10FORMAT((2I3,3X),E5.2)鍵盤輸入：876-42193671E4K、J、A的值分別為876、-42、67100.0。其中非重復(fù)編輯符3X，跳過193這三個(gè)字符。非重復(fù)編輯描述符H編輯符用于輸出一個(gè)字符串。一般格式：nHh1h2…h(huán)n其中:n>0，表示字符串的長(zhǎng)度，h1h2…h(huán)n為n個(gè)字符。非重復(fù)編輯描述符撇號(hào)編輯符用于輸出一個(gè)字符串。撇號(hào)編輯符和H編輯符作用相同，但撇號(hào)編輯符使用更為方便。例如WRITE(*,10)345,'HELLO!'10FORMAT(1X,2HI=,I4,'C=',A)輸出為：I=□345C=HELLO!非重復(fù)編輯描述符

斜扛編輯符結(jié)束當(dāng)前正在輸入或輸出的記錄，并轉(zhuǎn)入下一個(gè)記錄開始輸入輸出。例如WRITE(*,10)A,B10FORMAT(//2(10X,F9.2/))語(yǔ)句執(zhí)行后將輸出5個(gè)記錄。縱向走紙控制符FORTRAN規(guī)定，每一個(gè)輸出記錄中的第一個(gè)字符是作為縱向控制符來(lái)使用而不被輸出，實(shí)際的輸出從記錄的第二個(gè)字符開始。FORTRAN所規(guī)定的縱向控制符及其功能如下表所示。縱向走紙控制符例如WRITE(*,10)123,456710FORMAT(1X,I3,2X,I4)按本來(lái)意義，1X產(chǎn)生一個(gè)空格，應(yīng)輸出：

□123□□4567但按FORTRAN規(guī)定，將輸出記錄中的第一個(gè)字符作為縱向走紙控制符，所以實(shí)際輸出是在走紙一行之后，輸出：123□□4567縱向走紙控制符如果不在輸出記錄的第一個(gè)字符處增加一個(gè)空格，則系統(tǒng)將應(yīng)該輸出的第一個(gè)字符作為縱向走紙控制符，從而使本來(lái)該輸出的字符被“吃掉”了。例如WRITE(*,10)123,456710FORMAT(I3,2X,I4)輸出為：(空一行)23□□4567輸出記錄的第一個(gè)字符“1”作為縱向走紙控制符用，走紙兩行(字符“1”本來(lái)作分頁(yè)控制用，但微機(jī)中無(wú)分頁(yè)功能)。所以，在FORMAT語(yǔ)句中，一般都在格式說(shuō)明的第一個(gè)字符位置增加一個(gè)空格作為縱向走紙控制符。編輯符使用的補(bǔ)充說(shuō)明如果輸出表項(xiàng)個(gè)數(shù)少于格式說(shuō)明中編輯符的個(gè)數(shù)，則多余的編輯符不起作用；但X、H及撇號(hào)編輯符除外；如果輸出表項(xiàng)個(gè)數(shù)多于格式說(shuō)明中編輯符的個(gè)數(shù)，則當(dāng)格式說(shuō)明中的編輯符用完后，將重復(fù)使用該格式說(shuō)明，并產(chǎn)生一個(gè)新的記錄；如果在格式說(shuō)明中包含有重復(fù)使用的編輯符，則當(dāng)格式說(shuō)明用完后再重新使用時(shí)，只有最后面的一個(gè)編輯符組（包括其重復(fù)系數(shù)）及其后的編輯符被重新使用；如果WRITE語(yǔ)句中有輸出項(xiàng)，而在格式說(shuō)明中沒有對(duì)應(yīng)的格式編輯符，則輸出操作將永不停止；如果WRITE語(yǔ)句中沒有輸出表項(xiàng)，且FORMAT語(yǔ)句中也沒有格式說(shuō)明，則將輸出一個(gè)空行；在使用格式輸出時(shí)，F(xiàn)ORTRAN規(guī)定，WRITE語(yǔ)句中的輸出表項(xiàng)不能包含輸出的字符串；在FORMAT語(yǔ)句與READ語(yǔ)句聯(lián)用時(shí)，其格式說(shuō)明的使用與輸出時(shí)的規(guī)則基本相同，但要注意以下兩點(diǎn)：在輸入時(shí)，如果格式說(shuō)明已經(jīng)用完，而READ語(yǔ)句中還有變量需要輸入數(shù)據(jù)，則將重復(fù)使用該格式說(shuō)明，其對(duì)應(yīng)關(guān)系與輸出的情況相同。但在具體輸入時(shí)，必須作為新的記錄進(jìn)行輸入。用于輸入時(shí)，格式說(shuō)明中的斜杠（/）編輯符表示本記錄輸入結(jié)束，接著輸入下一個(gè)記錄。在輸入輸出語(yǔ)句中包含格式說(shuō)明WRITE(u,f)

輸出表項(xiàng)READ(u,f)

輸入表列FORTRAN還允許在輸入語(yǔ)句或輸出語(yǔ)句中直接指定格式說(shuō)明，即f直接是一個(gè)格式說(shuō)明（用一對(duì)圓括號(hào)括起來(lái)）；在這種情況下，要求將直接出現(xiàn)在輸入或輸出語(yǔ)句中的格式說(shuō)明用一對(duì)單引號(hào)（即撇號(hào)）括起來(lái)。10FORMAT(1X,I4,F6.2,I5,F8.2)10FORMAT(1X,2(I4,2X,F10.2))10FORMAT(I4,F6.2/I5,F8.2)10FORMAT(I4/F6.2/I5/F8.2)10FORMAT(I5,F8.1)10FORMAT(I4,F8.1,I5,F10.2,I6,F10.3)練習(xí)：1.有語(yǔ)句：

INTEGERI,JREALX,YREAD(*,10)I,X,J,Y設(shè)要求輸入的值為：I=87，X=67.4，J=465，Y=345.705，用下面的FORMAT語(yǔ)句應(yīng)如何輸入數(shù)據(jù)？練習(xí)：2.程序執(zhí)行時(shí)輸入同樣的內(nèi)容：

1234567891011121314151617181920請(qǐng)寫出下列程序的執(zhí)行結(jié)果。(1)INTEGERAREALB,C

CHARACTER*10DREAD(*,10)A,B,C,DWRITE(*,*)A,B,C,D10FORMAT(1X,I4,2F6.2,A3)END(2)INTEGERAREALB,CCHARACTER*10DREAD(*,10)A,B,C,DWRITE(*,*)A,B,C,D10FORMAT(1X,O4,2E6.2,A)END練習(xí)：2.程序執(zhí)行時(shí)輸入同樣的內(nèi)容：

1234567891011121314151617181920請(qǐng)寫出下列程序的執(zhí)行結(jié)果。(3)INTEGERA REALB,C CHARACTER*10D READ(*,10)A,B,C,D WRITE(*,*)A,B,C,D10FORMAT(1X,Z4,2E8.2,A5)END(4)INTEGERA REALB,C CHARACTER*10D READ(*,10)A,B,C,D WRITE(*,20)A,B,C,D10FORMAT(1X,Z4,2F8.2,A5)20FORMAT(1X,O4,2E8.2,A5)END練習(xí)：3．請(qǐng)寫出下列程序的執(zhí)行結(jié)果。

INTEGERI,J,K I=570 J=3410 K=5069 PRINT10,I,J,K PRINT20,I,J,K PRINT30,I,J,K10FORMAT(1X,I4)20FORMAT(1X,2I5)30FORMAT(1X,2(I5/2X))END練習(xí)：4.請(qǐng)寫出下列程序的執(zhí)行結(jié)果。CHARACTER*8AINTEGERB REALC,D A='FORTRAN' B=52 C=917.8 D=-452.6 WRITE(*,10)A,B,C,D WRITE(*,20)A,B,C,D WRITE(*,30)A,B,C,D10FORMAT(1X,A5,I4,2E8.2)20FORMAT(1X,'A,B,C,D=',Z4,I4,2F7.2)30FORMAT(1X,'A=',A/,1X,'B=',B4/,1X,'C=',F6.1/,1X,'D=',F6.1)END練習(xí)：5.請(qǐng)寫出下列程序的執(zhí)行結(jié)果。

COMPLEXA LOGICALB A=(1.6,-4.5) B=.NOT.3>6.EQV..FALSE. WRITE(*,10)A,B10FORMAT(1X,F10.2,F10.2/L5)END練習(xí)：6．請(qǐng)寫出下列程序的執(zhí)行結(jié)果。

(1)WRITE(*,10)(3,4,I=1,2)10FORMAT(1X,3I3)END(2)READ(*,10)K,A,AWRITE(*,20)K,A10FORMAT(I5,F6.1,F7.2)20FORMAT(1X,I7,2F9.2)END

輸入為：123456789.0123456789。練習(xí)：

7．打印九九乘法表（要求：每個(gè)數(shù)字占5格）

FORTRAN

語(yǔ)言的

程序結(jié)構(gòu)及其兼容性

*程序設(shè)計(jì)基本概念FORTRAN語(yǔ)言的發(fā)展簡(jiǎn)史FORTRAN77程序的構(gòu)成FORTRAN90程序的構(gòu)成及其兼容性

第一節(jié)程序設(shè)計(jì)基本概念程序設(shè)計(jì)的基本過程程序設(shè)計(jì)的基本方法模塊化設(shè)計(jì)自頂向下、逐步細(xì)化的設(shè)計(jì)過程結(jié)構(gòu)化設(shè)計(jì)程序設(shè)計(jì)語(yǔ)言**高級(jí)語(yǔ)言程序設(shè)計(jì)基礎(chǔ)(Fortran)什么是程序?用計(jì)算機(jī)能識(shí)別的語(yǔ)言所描述的解決實(shí)際問題的方法和步驟。計(jì)算機(jī)能識(shí)別的語(yǔ)言有哪些?機(jī)器語(yǔ)言、匯編語(yǔ)言、高級(jí)語(yǔ)言什么是程序設(shè)計(jì)?程序設(shè)計(jì)的基本過程*問題的分析問題的性質(zhì)；輸入/輸出數(shù)據(jù)；數(shù)學(xué)模型或常用的方法-----算法算法的設(shè)計(jì)可行性；確定性；有窮性；有零或多個(gè)輸入；有一個(gè)或多個(gè)輸出流程的描述自然語(yǔ)言；算法描述語(yǔ)言；流程圖；編程調(diào)試與運(yùn)行測(cè)試；調(diào)試程序設(shè)計(jì)＝算法＋數(shù)據(jù)結(jié)構(gòu)＋方法＋工具BACK有窮性算法中執(zhí)行的步驟總是有限次數(shù)的，不能無(wú)止境地執(zhí)行下去。

確定性算法中的每一步操作必須具有確切的含義，不能有二義性有效性算法中的每一步操作必須是可執(zhí)行的。要有數(shù)據(jù)輸入算法中操作的對(duì)象是數(shù)據(jù)，因此應(yīng)提供有關(guān)數(shù)據(jù)。要有結(jié)果輸出算法的目的是用來(lái)解決一個(gè)給定的問題，因此應(yīng)提供輸出結(jié)果，否則算法就沒有實(shí)際意義。*算法什么是算法?解決問題的方法和步驟。算法的特征?*算法算法的描述有哪些?

自然語(yǔ)言一般流程圖

N－S圖

Pad圖偽代碼算法描述語(yǔ)言（如：C，F(xiàn)ortran)等*自然語(yǔ)言：輸入x，y；判斷x是否為0：若x=0，則輸出錯(cuò)誤信息；否則計(jì)算y/x→z，且輸出z

例：計(jì)算z=y/x算法描述語(yǔ)言算法描述語(yǔ)言＋自然語(yǔ)言(偽代碼)INPUTx,y輸入x,yIF（x=0）THENIF（x=0）THENOUTPUT“ERROR”

輸出錯(cuò)誤信息ELSEELSE{z=y/x{z=y/xOUTPUTz

輸出z}}BACK*N-S結(jié)構(gòu)化流程圖輸入x，y

輸出錯(cuò)誤信息z=y/x

輸出z

結(jié)束編程WRITE（*，100）100FORMAT（1X，‘INPUTX，Y：’）READ（*，*）X，YIF（X.EQ.0.0）THENWRITE（*，200）ELSEZ=Y/XWRITE（*，300）ZENDIF200FORMAT（1X，‘ERROR!X=0’）300

FORMAT（1X，‘Z=’，E15.6）ENDx=0yesnoBACK1.一般流程圖*是一種傳統(tǒng)的算法描述方法它用不同的幾何圖形來(lái)代表不同性質(zhì)的操作。主要優(yōu)點(diǎn)：是直觀性強(qiáng)，初學(xué)者容易掌握。缺點(diǎn)是對(duì)流程線的使用沒有嚴(yán)格限制，如毫無(wú)限制地使流程任意轉(zhuǎn)來(lái)轉(zhuǎn)去，將使流程圖變得毫無(wú)規(guī)律，難以閱讀。為了提高算法可讀性和可維護(hù)性，必須限制無(wú)規(guī)則的轉(zhuǎn)移，使算法結(jié)構(gòu)規(guī)范化。例1.4用一般流程圖來(lái)描述例1.1的算法。*輸入a、ba<b?輸出uyn例1.2的算法。*y1→ix>max?輸入maxy輸入xi≤9?x→maxi+1→i輸出maxnn2.N-S圖*S1S2S3

YNS1S2

當(dāng)P滿足時(shí)SP由于傳統(tǒng)流程圖的缺點(diǎn)，1973年美國(guó)學(xué)者I.Nassi和B.Shneiderman提出了一種新的流程圖工具─N-S圖。N-S圖以三種基本結(jié)構(gòu)作為構(gòu)成算法的基本元素，每一種基本結(jié)構(gòu)用一個(gè)矩形框來(lái)表示，而且取消了流程線，各基本結(jié)構(gòu)之間保持順序執(zhí)行關(guān)系。N-S圖可以保證程序具有良好的結(jié)構(gòu)，所以N-S圖又叫做結(jié)構(gòu)化流程圖。例1.5用N-S圖來(lái)描述例1.1的算法。*輸入a、bYN輸出ua<b?例1.2的算法。*輸入max1→i當(dāng)i≤9時(shí)輸入xynx→maxi+1→i輸出maxx>max?模塊化設(shè)計(jì)*按功能劃分模塊按層次組織模塊主模塊模塊1模塊2模塊3模塊5模塊6模塊4BACK*自頂向下、逐步細(xì)化的設(shè)計(jì)過程

優(yōu)點(diǎn)：符合人們解決復(fù)雜問題的普遍規(guī)律，可顯著提高程序設(shè)計(jì)效率；用先全局后局部、先整體后細(xì)節(jié)、先抽象后具體的方法設(shè)計(jì)出的程序具有清晰的層次結(jié)構(gòu)，容易閱讀和理解。BACK結(jié)構(gòu)化設(shè)計(jì)*1966年Bohra和Jacopini提出了組成結(jié)構(gòu)化算法的三種基本結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)特點(diǎn)：

(1)只有一個(gè)入口。

(2)只有一個(gè)出口。

(3)結(jié)構(gòu)中無(wú)死語(yǔ)句，即結(jié)構(gòu)內(nèi)的每一部分都有機(jī)會(huì)被執(zhí)行。

(4)結(jié)構(gòu)中無(wú)死循環(huán)。記憶：?jiǎn)稳肟凇纬隹?、無(wú)死語(yǔ)句、無(wú)死循環(huán)。結(jié)構(gòu)化設(shè)計(jì)*順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)S1S2S3*兩路分支結(jié)構(gòu)S1

S2

多路分支結(jié)構(gòu)條件情況1情況2情況3……S1S2S3……當(dāng)型循環(huán)WHILE條件S直到型循環(huán)SUNTIL條件條件滿足不滿足BACK如何保證得到結(jié)構(gòu)化程序*自頂向下逐步細(xì)化模塊化設(shè)計(jì)結(jié)構(gòu)化編碼*程序設(shè)計(jì)語(yǔ)言機(jī)器語(yǔ)言；匯編語(yǔ)言；高級(jí)語(yǔ)言語(yǔ)言名稱適用范圍BASIC教學(xué)和小型應(yīng)用程序的開發(fā)FORTRAN科學(xué)與工程計(jì)算程序的開發(fā)PASCAL專業(yè)教學(xué)與應(yīng)用程序的開發(fā)C中小型系統(tǒng)程序的開發(fā)COBAL商業(yè)與管理應(yīng)用程序的開發(fā)dBASE數(shù)據(jù)庫(kù)管理程序的開發(fā)FoxBASE數(shù)據(jù)庫(kù)管理程序的開發(fā)C++面向?qū)ο蟪绦虻拈_發(fā)LISP人工智能程序的開發(fā)PROLOG人工智能程序的開發(fā)JAVA應(yīng)用程序的開發(fā)BACK第二節(jié)FORTRAN語(yǔ)言的發(fā)展簡(jiǎn)史

*1954年IBM公司在IBM704上發(fā)展

DOS下

1956年IBM公司FORTRANII1966年美國(guó)國(guó)家標(biāo)準(zhǔn)化協(xié)會(huì)（兩級(jí)美國(guó)標(biāo)準(zhǔn)）FORTRANII和FORTRANIV1972年國(guó)際標(biāo)準(zhǔn)化組織（三級(jí)國(guó)際標(biāo)準(zhǔn)）FORTRANII（基本級(jí)）FORTRAN中間級(jí)和FORTRANIV（完全級(jí)）1978年美國(guó)國(guó)家標(biāo)準(zhǔn)化協(xié)會(huì)FORTRAN771992年國(guó)際標(biāo)準(zhǔn)化組織ISO公布Fortran90標(biāo)準(zhǔn)

與77版本差異較大在“形式”上讓Fortran脫胎換骨

BACK第二節(jié)FORTRAN語(yǔ)言的發(fā)展簡(jiǎn)史

*Microsoft（微軟）公司FORTRAN90FORTRANPOWERSTATION1.0~4.0DEC公司VisualFORTRANVisualFORTRAN5.0~6.01997年國(guó)際標(biāo)準(zhǔn)化組織ISO公布Fortran95標(biāo)準(zhǔn)

加強(qiáng)平行運(yùn)算2004年Fortran2003面向?qū)ο驜ACK第三節(jié)FORTRAN77程序的構(gòu)成*計(jì)算z=x+y

PROGRAMMAIN主程序說(shuō)明語(yǔ)句

INTEGERX，Y，Z說(shuō)明了三個(gè)整型變量X、Y、Z

WRITE（*，100）用于輸出一個(gè)提示信息，以提醒用戶從鍵盤輸入兩個(gè)整數(shù)給X與Y100FORMAT（1X，‘INPUTX，Y：’）

READ（*，*）X，Y輸入語(yǔ)句，表示要從鍵盤輸入兩個(gè)整型數(shù)分別賦給X與Y

Z=X+Y賦值語(yǔ)句，X與Y相加后賦給Z

WRITE（*，200）Z輸出X與Y之和，即Z的值200FORMAT（1X，‘X+Y=’，I6）

END結(jié)束語(yǔ)句，表示程序的結(jié)束*

INTEGERX，Y，Z主程序，并不直接計(jì)算X與Y的和，而是通過調(diào)用函數(shù)子程序（子程序名為M）來(lái)計(jì)算；另外，在主程序中可以省略主程序說(shuō)明語(yǔ)句（即PROGRAM語(yǔ)句）

WRITE（*，10）10FORMAT（1X，‘INPUTX，Y：’）

READ（*，*）X，Y

Z=M（X，Y）

WRITE（*，20）Z20FORMAT（1X，‘X+Y=’，I6）

ENDCFUNCTION子程序（稱為函數(shù)子程序），此函數(shù)子程序M的功能是具體計(jì)算兩個(gè)整數(shù)之和FUNCTIONM（A，B）INTEGERA，BM=A+BEND一個(gè)程序單位必須有一個(gè)、也只能有一個(gè)END語(yǔ)句，并且它只能出現(xiàn)在一個(gè)程序單位的最后；每一個(gè)程序單位可以包括若干行，在FORTRAN77中，有語(yǔ)句行和非語(yǔ)句行兩類；FORTRAN77程序中的語(yǔ)句前可以沒有標(biāo)號(hào)，也可以有標(biāo)號(hào)，根據(jù)需要而定；FORTRAN77對(duì)各類程序單位中的第一個(gè)語(yǔ)句是有規(guī)定的；FORTRAN77源程序必須按一定的格式書寫。*標(biāo)號(hào)區(qū)續(xù)行標(biāo)志區(qū)語(yǔ)句區(qū)注釋區(qū)1～567～7273～80FORTRAN77

程序結(jié)構(gòu)與組成的規(guī)定BACK第四節(jié)FORTRAN90程序的構(gòu)成

及其兼容性*FORTRAN77FORTRAN90源代碼只能用固定格式進(jìn)行輸入源代碼可以用兩種格式進(jìn)行輸入：自由格式和固定格式以字母C或字符“*”起始的一行為注釋行以“！”起始的一行為注釋行要求以一個(gè)非空格且非零的字符作為續(xù)行標(biāo)志要求以一個(gè)“&”作為一個(gè)續(xù)行標(biāo)志一行中最多只能寫一條語(yǔ)句一行中可以寫多條語(yǔ)句，用“；”隔開第二章MicrosoftFortranPowerStation4.0

開發(fā)環(huán)境介紹MicrosoftFortranPowerStation4.0用戶界面查看文檔查看界面元素對(duì)話框菜單工具欄輸出和出錯(cuò)信息*第一節(jié)MicrosoftFortranPowerStation4.0用戶界面項(xiàng)目工作區(qū)窗口：這個(gè)帶標(biāo)簽的窗口使訪問應(yīng)用程序的任何部分變得簡(jiǎn)單、迅速；信息視圖：在BooksOnline中可找到答案；資源視圖：訪問菜單、對(duì)話框、位圖、以及其他用戶界面的資源；文件視圖：組織文件，并方便地打開它們；輸出窗口和狀態(tài)欄：位于屏幕下端，這些區(qū)域通知用戶并提供結(jié)果；代碼編輯器：此為用戶工作之地，它可以輸入代碼、修正錯(cuò)誤、以及觀察應(yīng)用程序的形態(tài)。*BACK第二節(jié)查看文檔BACK第三節(jié)查看界面元素對(duì)話框BACKResourceID（資源ID）；Caption（標(biāo)題）；Prompt（提示）BACK菜單菜單BACK

數(shù)組數(shù)組的定義與數(shù)組元素的使用用類型說(shuō)明語(yǔ)句說(shuō)明數(shù)組DIMENSION語(yǔ)句數(shù)組元素的引用數(shù)組的存儲(chǔ)結(jié)構(gòu)對(duì)數(shù)組賦初值

數(shù)組的輸入輸出用DO循環(huán)對(duì)數(shù)組進(jìn)行輸入輸出用數(shù)組名對(duì)整個(gè)數(shù)組進(jìn)行輸入輸出在輸入輸出語(yǔ)句中使用隱含DO循環(huán)**概念我們把具有相同類型的一批數(shù)據(jù)看成是一個(gè)整體，叫做數(shù)組。給數(shù)組取一個(gè)名字叫數(shù)組名。所以數(shù)組名代表一批數(shù)據(jù)。用類型說(shuō)明語(yǔ)句說(shuō)明數(shù)組定義一個(gè)數(shù)組包括以下幾個(gè)方面：確定數(shù)組的名字；確定數(shù)組的類型；確定數(shù)組的維數(shù)和大小；指出數(shù)組每一維的下界與上界。INTEGERB(-2:45,0:10)，Y(0:10,2:15)一般形式數(shù)組名(維說(shuō)明符[,維說(shuō)明符]…)數(shù)組說(shuō)明符中，維說(shuō)明符的個(gè)數(shù)就是數(shù)組的維數(shù)。維說(shuō)明符至少一個(gè)，最多七個(gè)，即FORTRAN90最多允許使用七維數(shù)組。數(shù)組說(shuō)明的方法1、通過DIMENSION語(yǔ)句（FORTRAN77，F(xiàn)ORTRAN90仍適用

）2、類型說(shuō)明語(yǔ)句3、同時(shí)使用DIMENSION語(yǔ)句和類型說(shuō)明語(yǔ)句1、DIMENSION語(yǔ)句一般格式：DIMENSION數(shù)組說(shuō)明符[,數(shù)組說(shuō)明符]…一些規(guī)定：數(shù)組必須首先說(shuō)明。數(shù)組名的命名規(guī)則與變量名的命名規(guī)則相同；如用DIMENSION語(yǔ)句說(shuō)明數(shù)組，則在該語(yǔ)句中被說(shuō)明的數(shù)組類型按隱含規(guī)則確定，或者用類型說(shuō)明語(yǔ)句再次說(shuō)明其類型；類型說(shuō)明語(yǔ)句與DIMENSION語(yǔ)句必須在程序中所有可執(zhí)行語(yǔ)句與DATA語(yǔ)句之前。說(shuō)明數(shù)組時(shí)，其下標(biāo)下限與上限均不能是變量或算術(shù)表達(dá)式，而只能是整型常數(shù)或是已定義的整型符號(hào)常量。當(dāng)數(shù)組的下標(biāo)下限為1時(shí)，可省略。同一程序單位中的數(shù)組名不能與變量名相同。2.用類型說(shuō)明語(yǔ)句說(shuō)明數(shù)組一般格式為：

類型符數(shù)組說(shuō)明符[,數(shù)組說(shuō)明符]…例如

CHARACTER*6CH(-10:10,5:9)*8說(shuō)明了字符型數(shù)組CH，數(shù)組元素的長(zhǎng)度為8REALKK(8)實(shí)型數(shù)組KKREAL(8)SOLUTION(30)雙精度數(shù)組SOLUTION。這也是FORTRAN77說(shuō)明數(shù)組的一種方法，在FORTRAN90中繼續(xù)予以使用。3、同時(shí)使用DIMENSION語(yǔ)句和類型說(shuō)明語(yǔ)句說(shuō)明數(shù)組這是FORTRAN90增加的說(shuō)明數(shù)組的方法。一般格式為：

類型符,

DIMENSION(維說(shuō)明符[,維說(shuō)明符]…)::

數(shù)組名[,數(shù)組名]…例如

REAL(8),DIMENSION(0:10)::A,B,CINTEGER,DIMENSION(4,5)::D,E說(shuō)明了三個(gè)雙精度型數(shù)組A,B,C，它們各含有11個(gè)元素。說(shuō)明了兩個(gè)整型數(shù)組D,E，它們各含有4×5共20個(gè)元素。3、同時(shí)使用DIMENSION語(yǔ)句和類型說(shuō)明語(yǔ)句說(shuō)明數(shù)組

在說(shuō)明數(shù)組時(shí)，也可以在數(shù)組名后面給出維說(shuō)明，這時(shí)以該數(shù)組名后面的維說(shuō)明為準(zhǔn)。例如

REAL,DIMENSION(0:10)::A,B(20),C(4,5,3)說(shuō)明A為A(0:10)，而B,C分別為B(20)和C(4,5,3)。數(shù)組元素的引用一般形式數(shù)組名(下標(biāo)表達(dá)式[,下標(biāo)表達(dá)式]…)數(shù)組元素是通過數(shù)組元素名來(lái)引用的FORTRAN規(guī)定：數(shù)組元素中的各下標(biāo)表達(dá)式可以是任意合法的算術(shù)表達(dá)式，當(dāng)算術(shù)表達(dá)式的值為實(shí)型時(shí)系統(tǒng)將自動(dòng)取整。數(shù)組元素的引用數(shù)組說(shuō)明符與數(shù)組元素名的區(qū)別。有下列程序片段：

REALLK(5,5)…LK(5,5)=12.5問題：兩個(gè)LK(5,5)的含義有什么不同？數(shù)組元素的引用在FORTRAN77中，除了在輸入輸出語(yǔ)句中之外，其他場(chǎng)合不允許對(duì)數(shù)組進(jìn)行整體操作，只能對(duì)數(shù)組的元素逐個(gè)進(jìn)行操作。但在FORTRAN90中，允許對(duì)數(shù)組進(jìn)行整體操作。例如

INTEGER,DIMENSION(4,5)::A A(:,:)=100 A(:,1:5:2)=470說(shuō)明了4×5整型數(shù)組A，先將A的全部元素賦為100，再將A第1,3,5列元素賦為470。其中1:5:2是一個(gè)三元表達(dá)式，可作為數(shù)組元素的下標(biāo)表達(dá)式。1:5:2的含義是從1變化到5，每次增加2。與循環(huán)語(yǔ)句類似，只是寫法不同。數(shù)組元素的引用三元表達(dá)式更一般的形式是：

初值：終值：步長(zhǎng)步長(zhǎng)為1時(shí)，可省略。顯然，如用三元表達(dá)式作為數(shù)組元素的下標(biāo)，則引用的不是一個(gè)數(shù)組元素，而是一個(gè)數(shù)組片段。

數(shù)組元素的引用FORTRAN90提供內(nèi)部函數(shù)獲取數(shù)組變量所有維或某一維的下標(biāo)上界和下標(biāo)下界。具體調(diào)用格式為：

UBOUND(Array,[Dim])LBOUND(Array,[Dim])Array：被檢測(cè)的數(shù)組變量。Dim：數(shù)組變量的維，該參數(shù)省略時(shí)，獲取數(shù)組變量所有維的下標(biāo)上界和下標(biāo)下界。數(shù)組元素的引用分析下面的程序：

INTEGER,DIMENSION(4,5)::AA=100PRINT*,UBOUND(A,1),LBOUND(A,1),UBOUND(A,2),LBOUND(A,2)PRINT*,UBOUND(A),LBOUND(A)END輸出結(jié)果為：

4151即數(shù)組A第一維下標(biāo)上界4，下界1。數(shù)組A第二維下標(biāo)上界5，下界1。

4511第二個(gè)輸出語(yǔ)句輸出了數(shù)組A每一維的下標(biāo)上界和下標(biāo)下界數(shù)組的存儲(chǔ)結(jié)構(gòu)數(shù)組中的各數(shù)組元素是連續(xù)地順序存儲(chǔ)在計(jì)算機(jī)的內(nèi)存單元中。一維數(shù)組中的各元素是以列標(biāo)從小到大的順序存儲(chǔ)在計(jì)算機(jī)內(nèi)存單元中。INTEGERA(-1:5)二維數(shù)組中的各元素在計(jì)算機(jī)中是按列存儲(chǔ)的，即先存儲(chǔ)第一列，再存儲(chǔ)第二列，以此類推，最后存儲(chǔ)數(shù)組中的最后一列。DIMENSIONA(5,6)數(shù)組的存儲(chǔ)結(jié)構(gòu)二維數(shù)組中的各元素在計(jì)算機(jī)中是按列存儲(chǔ)的，即先存儲(chǔ)第一列，再存儲(chǔ)第二列，以此類推，最后存儲(chǔ)數(shù)組中的最后一列。DIMENSIONA(5,6)數(shù)組的存儲(chǔ)結(jié)構(gòu)三維數(shù)組中的各元素的存放順序?yàn)椋喊错?yè)標(biāo)從小到大存放，而在每一頁(yè)中又是按列存放。對(duì)數(shù)組賦初值一般形式DATA數(shù)組名/數(shù)據(jù)表/,…

使用DATA語(yǔ)句為簡(jiǎn)單變量或數(shù)組賦初值時(shí)，要注意的問題:在用DATA語(yǔ)句為數(shù)組賦初值時(shí)，雖然在變量表中只需寫數(shù)組名，但在數(shù)據(jù)表中的數(shù)據(jù)個(gè)數(shù)必須要與定義的數(shù)組長(zhǎng)度相同，并且其類型也要一致。在一個(gè)DATA語(yǔ)句中可以同時(shí)為不同類型的若干個(gè)簡(jiǎn)單變量與若干個(gè)數(shù)組賦初值。在為多維數(shù)組賦初值時(shí)，一定要注意數(shù)據(jù)表中數(shù)據(jù)的排列順序。用DO循環(huán)對(duì)數(shù)組進(jìn)行輸入輸出用DO循環(huán)對(duì)數(shù)組進(jìn)行輸入用DO循環(huán)對(duì)數(shù)組進(jìn)行輸入輸出用DO循環(huán)逐個(gè)輸出數(shù)組元素用數(shù)組名對(duì)整個(gè)數(shù)組進(jìn)行輸入輸出數(shù)組中元素的輸入輸出順序總是與數(shù)組元素在計(jì)算機(jī)內(nèi)存中的存放順序相一致。在用數(shù)組名進(jìn)行輸入輸出時(shí)要注意以下問題：利用數(shù)組名不能對(duì)數(shù)組中的部分元素進(jìn)行輸入或輸出，而是通過一個(gè)輸入或輸出語(yǔ)句一次性地完成整個(gè)數(shù)組的輸入或輸出。在用數(shù)組名進(jìn)行輸入或輸出時(shí)，無(wú)法指定輸入或輸出元素的順序；特別是對(duì)于二維數(shù)組，其輸入或輸出的格式與數(shù)學(xué)上的矩陣格式不一致。在輸入輸出語(yǔ)句中使用隱含DO循環(huán)利用DO循環(huán)和數(shù)組名進(jìn)行輸入輸出的優(yōu)缺點(diǎn)：使用DO循環(huán)進(jìn)行輸入或輸出時(shí)，可以只輸入或輸出數(shù)組中的部分元素，但在一行上只能輸入或輸出一個(gè)元素，如果需要在一行上連續(xù)輸入或輸出多個(gè)元素則需要在輸入或輸出語(yǔ)句中連續(xù)列出這些元素，顯得很麻煩。使用數(shù)組名進(jìn)行輸入或輸出時(shí)，又只能輸入或輸出整個(gè)數(shù)組中的所有元素，而不能輸入或輸出部分元素，并且，對(duì)于二維數(shù)組來(lái)說(shuō)，其輸入與輸出的格式與數(shù)學(xué)上的矩陣不一致。在輸入語(yǔ)句中使用隱含DO循環(huán)在輸出語(yǔ)句中使用隱含DO循環(huán)使用隱含DO循環(huán)進(jìn)行輸入輸出時(shí)應(yīng)注意的問題在輸入語(yǔ)句中使用隱含DO循環(huán)隱含DO循環(huán)輸入的一般形式READ(*,n)(輸入表,I=e1,e2,e3)在輸出語(yǔ)句中使用隱含DO循環(huán)隱含DO循環(huán)輸出的一般形式WRITE(*,n)(輸入表,I=e1,e2,e3)使用隱含DO循環(huán)進(jìn)行輸入輸出時(shí)應(yīng)注意的問題隱含DO循環(huán)不僅可以用于數(shù)組的輸入輸出，也可以用于簡(jiǎn)單變量的輸入輸出。在使用隱含DO循環(huán)輸入時(shí)，控制隱含DO循環(huán)的參數(shù)不能出現(xiàn)在隱含DO循環(huán)的輸入表中。例題順序結(jié)構(gòu)程序設(shè)計(jì)數(shù)據(jù)類型及其運(yùn)算最基本的語(yǔ)句實(shí)例分析順序結(jié)構(gòu)是面向過程程序設(shè)計(jì)三種基本結(jié)構(gòu)中最簡(jiǎn)單的一種結(jié)構(gòu)，它只需按照處理順序，依次寫出相應(yīng)的語(yǔ)句即可。**§２.１數(shù)據(jù)類型及其運(yùn)算**數(shù)據(jù)

表現(xiàn)形式

數(shù)據(jù)類型常量變量表達(dá)式函數(shù)整型實(shí)型雙精度型常量復(fù)型常量邏輯型常量字符型常量§２.１數(shù)據(jù)類型及其運(yùn)算常量變量及其定義符號(hào)常量及其定義FORTRAN表達(dá)式**常量整型常量小數(shù)形式實(shí)型常量指數(shù)形式雙精度型常量復(fù)型常量邏輯型常量字符型常量*常量常量是在程序運(yùn)行過程中，其值不改變的量。例如15、0、-21、3.1416、’FORTRAN’等分為：直接常量和符號(hào)常量?jī)纱箢悺?/p>

*1.直接常量

直接常量是指數(shù)據(jù)本身就是一個(gè)常量。分為：整型常量、實(shí)型常量（1）整型常量：稱為整型常數(shù)或整數(shù)，（正數(shù)、負(fù)數(shù)、0）。如125，-258，+28等。注意：123，000×；千分位123.00×

；點(diǎn)123

00×

空格（77可以，而90及以上版本出錯(cuò)）。

*77中一個(gè)整型常量占2個(gè)字節(jié)90中整型常量的范圍沒有明確規(guī)定。如16位計(jì)算機(jī)上整型常量的范圍是2個(gè)字節(jié)，表示為十進(jìn)制數(shù)為-32768~+32767，即-215~215-1。*

（2）實(shí)型常量

即實(shí)型常數(shù)或簡(jiǎn)稱實(shí)數(shù)。它有2種表示形式：小數(shù)形式和指數(shù)形式。小數(shù)形式根據(jù)小數(shù)點(diǎn)前后是否有數(shù)字形成3種不同格式，分別是：m.n、m.、.n。數(shù)字前面可以加上“+”或“-”號(hào)，默認(rèn)為正號(hào)。小數(shù)點(diǎn)“.”前或后可以不出現(xiàn)數(shù)字。例如3.52、4.0、-5.（相當(dāng)于-5.0）、.6378（相當(dāng)于0.6378）等。*指數(shù)形式可以表示一個(gè)絕對(duì)值非常大或非常小的數(shù)，表示方式是用E將有效數(shù)字和指數(shù)分隔，E的前面是指數(shù)，E的后面是小數(shù)。例如：

1.32E5表示13200或1.32*105。1.285E-12表示1.285*10-12。注意：有效數(shù)字可是整型或?qū)嵭统Ａ?，?E2和1.0E2兩種表示100.0，但與100同；E后只能是整型常量，如5E3.2×

，.E8×

。還有復(fù)型、邏輯型、字符型等類型的常量*練習(xí)：Ｐ２８／３2.符號(hào)常量

是用一個(gè)標(biāo)識(shí)符來(lái)代表一個(gè)常量。常用PARAMETER語(yǔ)句來(lái)定義。例如：PARAMETER（PI=3.1416，M=10，…）。含義：定義了兩符號(hào)常量PI和M，PI代表3.1416，M代表10，…注意：PARAMETER、（）、如有多項(xiàng)，用逗號(hào)隔開。

*符號(hào)常量及其定義注意問題：非執(zhí)行語(yǔ)句，寫在所有可執(zhí)行語(yǔ)句之前，且，一旦定義，不能再改變；命名規(guī)則：同變量名；但應(yīng)先寫類型說(shuō)明，后寫PARAMETER語(yǔ)句；一個(gè)PARAMETER中，可定義多個(gè)符號(hào)常量；類型：數(shù)值型、邏輯型、字符型；符號(hào)常量不能作為語(yǔ)句標(biāo)號(hào)，也不能出現(xiàn)在FORMAT中；此外，均可。符號(hào)常量與變量的區(qū)別：編譯時(shí)，變量分配存儲(chǔ)空間，符號(hào)常量進(jìn)行數(shù)據(jù)替換。*變量及其定義變量與變量名隱含規(guī)則類型說(shuō)明語(yǔ)句整型說(shuō)明語(yǔ)句實(shí)型說(shuō)明語(yǔ)句雙精度型說(shuō)明語(yǔ)句復(fù)型說(shuō)明語(yǔ)句邏輯型說(shuō)明語(yǔ)句字符型說(shuō)明語(yǔ)句隱含說(shuō)明語(yǔ)句*變量說(shuō)明中應(yīng)注意的問題有效范圍：說(shuō)明語(yǔ)句中所說(shuō)明的變量類型只在本程序單位內(nèi)有效；優(yōu)先級(jí)：類型說(shuō)明語(yǔ)句→隱含說(shuō)明語(yǔ)句→隱含規(guī)則（I-N規(guī)則）；出現(xiàn)順序：IMPLICIT在最前，專門的類型說(shuō)明語(yǔ)句在本程序中所有執(zhí)行語(yǔ)句的前面；隱含規(guī)則適用：整型和實(shí)型變量；IMPLICIT適用：所有的FORTRAN變量的類型，但各種專門的類型說(shuō)明語(yǔ)句只適用于對(duì)一種類型的變量進(jìn)行說(shuō)明。*變量

是指在程序運(yùn)行過程中其值可以改變的量。變量實(shí)質(zhì)上代表一個(gè)內(nèi)存單元*變量名

一個(gè)變量需要一個(gè)名字來(lái)識(shí)別同一程序中，不能用同一個(gè)變量名代表不同的變量。變量的名字即標(biāo)識(shí)符。*

練習(xí)：Ｐ２８／２*表2.1FORTRAN77與FORTRAN90標(biāo)識(shí)符對(duì)照FORTRAN類型組成字符長(zhǎng)短開頭字符大小寫要求FORTRAN77及以前版本字母、數(shù)字1~6個(gè)字符超過6后面字符無(wú)效字母不區(qū)分FORTRAN90及以上字母、數(shù)字和下劃線1~31個(gè)字符超過31個(gè)后面字符無(wú)效字母不區(qū)分注意：要“見名知義”，如：AREA“面積”，GRADE“成績(jī)”，AVER“平均值”等。FORTRAN無(wú)“保留字”，但為避免誤解、混淆，應(yīng)盡量避免。*變量的說(shuō)明

三種方式：１.強(qiáng)制說(shuō)明２.

隱含說(shuō)明語(yǔ)句IMPLICIT３.

隱含說(shuō)明I—N規(guī)則順序：123*1.強(qiáng)制說(shuō)明格式為：類型說(shuō)明符變量名1，變量名2…*另一種格式：REAL：：SCORE=89.5可同時(shí)進(jìn)行初始化INTEGER整型REAL實(shí)型DOUBLEPRECISION雙精度型

COMPLEX復(fù)型變量說(shuō)明LOGICAL邏輯型CHARACTER字符型可定義多個(gè)，中間用“，”分開。如：REALAREA，AVER，STUD2.隱含說(shuō)明語(yǔ)句IMPLICIT將某個(gè)或某些字母開頭的變量規(guī)定為所需的類型格式：IMPLICIT類型說(shuō)明（字母表）例：IMPLICITINTEGER（A，C，T-V）含義*3.隱含約定

FORTRAN語(yǔ)言規(guī)定：以I，J，K，L，M，N6個(gè)字母開頭的變量被當(dāng)作整型變量。又稱I~N規(guī)則如：在無(wú)前面兩種說(shuō)明時(shí)，I1，MA，N3S等都為整型變量。

*FORTRAN表達(dá)式算術(shù)表達(dá)式關(guān)系表達(dá)式邏輯表達(dá)式字符表達(dá)式不同類型數(shù)據(jù)的混合運(yùn)算例題*算術(shù)表達(dá)式運(yùn)算順序?yàn)椋撼藘?*→乘*、除/→加+、減-常用的算術(shù)型標(biāo)準(zhǔn)函數(shù)Ｐ１９—２０*注意問題書寫：左

右，數(shù)學(xué)

FORTRAN，適當(dāng)加括號(hào)；乘號(hào)*不能省略；只允許用圓括號(hào)；連續(xù)使用乘冪運(yùn)算符時(shí)，加上必要的括號(hào)；求值順序：括號(hào)內(nèi)→函數(shù)→**→*、/→+、－允許不同數(shù)值類型的量進(jìn)行混合運(yùn)算；實(shí)型運(yùn)算注意誤差問題；整型運(yùn)算注意整數(shù)范圍。*例題A=1.0,B=3.5,T=10.0,X=5.0,I=-5,J=7,K=3,求下面表達(dá)式的值。-(A+T)(B+(X/T))/(4.0*A)(I*J)/K(I/K)*J+T/X-(K+1)/5+I*A-BSQRT(REAL(ABS(K)+1))MAX(J,MOD(J,K))J+INT(T/B)/A*§２.２最基本的語(yǔ)句賦值表控輸入輸出END、STOP、GOTO賦初值格式輸入輸出**賦值語(yǔ)句格式：變量名=表達(dá)式算術(shù)賦值語(yǔ)句邏輯賦值語(yǔ)句邏輯型變量=邏輯表達(dá)式數(shù)值型變量=邏輯表達(dá)式×

邏輯型變量=算術(shù)表達(dá)式×

字符賦值語(yǔ)句

*算術(shù)賦值語(yǔ)句數(shù)值型變量名或數(shù)組元素=算術(shù)表達(dá)式右邊的算術(shù)表達(dá)式允許整型與實(shí)型的混合運(yùn)算；但注意：整數(shù)相除，結(jié)果為整型；左、右類型不一致，系統(tǒng)自動(dòng)右轉(zhuǎn)左算術(shù)賦值語(yǔ)句執(zhí)行過程：1、計(jì)算右邊的值2、計(jì)算結(jié)果轉(zhuǎn)換與左邊類型一致3、左邊=右邊。*表控輸入輸出語(yǔ)句格式：WRITE(*,*)

輸出表項(xiàng)

PRINT*，輸出項(xiàng)表輸出空行，WRITE(*,*)

；邏輯型變量，.TRUE.輸出T；.FALSE.輸出F。表控輸入語(yǔ)句例題1、2*表控輸入語(yǔ)句格式：READ(*,*)

輸入表項(xiàng)注意輸入數(shù)據(jù)的個(gè)數(shù)、類型應(yīng)與READ一致規(guī)定：每個(gè)READ總是從新的輸入行開始讀數(shù)邏輯型變量，.TRUE.用以T開頭的一串字母代替，.FALSE.以F開頭的一串字母代替READ(*,*)，輸入Enter分隔符：Enter，空格、逗號(hào)、斜杠（/）出現(xiàn)斜杠（/）符號(hào)，輸入結(jié)束，后面變量不再賦值數(shù)據(jù)各數(shù)字間不能有空格*END語(yǔ)句、STOP語(yǔ)句與GOTO語(yǔ)句END語(yǔ)句程序單位的結(jié)束主程序中END表示停止程序運(yùn)行子程序中END表示需要返回調(diào)用程序STOP語(yǔ)句作用是停止程序的運(yùn)行格式：STOP[n]GOTO語(yǔ)句格式：GOTO語(yǔ)句標(biāo)號(hào)

×

*程序舉例

例2.3任意輸入兩個(gè)數(shù)，對(duì)它們進(jìn)行加、減、乘、除、乘方運(yùn)算分析：結(jié)構(gòu)？變量？結(jié)構(gòu)：順序結(jié)構(gòu)變量：X1、X2，S1、S2、S3、S4、S5*

realx1,x2 read*,x1,x2 s1=x1+x2 s2=x1-x2 s3=x1*x2 s4=x1/x2 s5=x1**x2 print*,"2數(shù)之和為",s1 print*,"2數(shù)之差為",s2 print*,"2數(shù)之積為",s3 print*,"2數(shù)之商為",s4 print*,"2數(shù)之冪為",s5 end問題：S1、S2、S3、S4、S5沒說(shuō)明，如何判斷類型？*例2.4求f(x)=x3+sin2x+ln(x4+1)分析：f(x)用y表示，x從鍵盤輸入

implicitnone realx,y read*,x y=x**3+(sin(x))**2+log(x**4+1) print*,y end輸入：154輸出：2.401221*例2.5將兩個(gè)變量的值互換。分析：臨時(shí)變量T做橋梁

realx,y,t read*,x,y print*,"交換前x=",x print*,"交換前y=",y t=x x=y y=t print*,"交換后x=",x print*,"交換后y=",y end*方法二、直接用X和Y交換

integerx,y read*,x,y print*,"交換前x=",x print*,"交換前y=",y x=x+y y=x-y x=x-y print*,"交換后x=",x print*,"交換后y=",y end*如何記？左邊：xyx右邊：x與y，+--例2.6輸入一個(gè)三位整數(shù)，將它反向輸出，如輸入123，輸出321。分析：關(guān)鍵在于如何將N拆分？

integern,m,n1,n2,n3 read*,n n1=mod(n,10) n2=mod(n/10,10) n3=n/100 m=n1*100+n2*10+n3 print*,"原來(lái)的數(shù)為:",n print*,"反向輸出的數(shù)為:",m end *如何取位？取第n位：除10n-1，除10取余賦初值語(yǔ)句DATA語(yǔ)句格式DATA變量表列/初值表/，變量表列/初值表/，…用DATA注意變量與常量在個(gè)數(shù)、類型等方面要一一對(duì)應(yīng)初值表中，如n個(gè)連續(xù)的常量相同，簡(jiǎn)寫：n*常量初值表中，不允許出現(xiàn)表達(dá)式如有多個(gè)DATA語(yǔ)句給同一變量賦初值，以最后一個(gè)為準(zhǔn)*

選擇結(jié)構(gòu)程序設(shè)計(jì)邏輯if語(yǔ)句塊if結(jié)構(gòu)選擇結(jié)構(gòu)的嵌套用elseif語(yǔ)句實(shí)現(xiàn)多路分支塊分支選擇結(jié)構(gòu)程序舉例**關(guān)系表達(dá)式格式：<算術(shù)量><關(guān)系運(yùn)算符><算術(shù)量>關(guān)系運(yùn)算符

.GT.（>大于）；.LT.（<小于）；.EQ.（==等于）；

.NE.（/=不等于）；.GE.（>=大于或等于）；

.LE.（<=小于或等于）結(jié)果是邏輯型常數(shù).TRUE.或.FALSE.

注意兩邊的小數(shù)點(diǎn)不能漏實(shí)數(shù)存在誤差，在用.EQ.

與.NE.

時(shí)要特別注意一個(gè)算術(shù)型量的兩側(cè)不允許都是關(guān)系運(yùn)算符邏輯表達(dá)式格式：<邏輯型量><邏輯運(yùn)算符><邏輯型量>邏輯運(yùn)算符

.AND.

與.OR.或.NOT.非

.EQV.等價(jià).NEQV.不等價(jià).XOR.異或結(jié)果是邏輯型值.TRUE.或.FALSE.含義運(yùn)算順序.NOT.→.AND.→.OR.→.EQV.

.NEQV.

.ＸＯＲ.邏輯表達(dá)式中，各種運(yùn)算符的優(yōu)先順序：注意不同運(yùn)算符的運(yùn)算對(duì)象和運(yùn)算結(jié)果一個(gè)邏輯型量的兩側(cè)都可以與邏輯運(yùn)算符相鄰，但不能與算術(shù)運(yùn)算符、關(guān)系運(yùn)算符相鄰不能在算術(shù)量的兩側(cè)都出現(xiàn)關(guān)系運(yùn)算符一定要注意運(yùn)算順序邏輯IF語(yǔ)句一般形式：if(邏輯表達(dá)式)

內(nèi)嵌語(yǔ)句執(zhí)行過程：

1.先算圓括號(hào)內(nèi)判斷條件

2.成立，執(zhí)行內(nèi)嵌語(yǔ)句，然后執(zhí)行后面的語(yǔ)句

3.不成立，直接執(zhí)行后面的語(yǔ)句適用范圍:只關(guān)心一種條件時(shí),僅執(zhí)行一個(gè)處理的簡(jiǎn)單情況注意問題：邏輯if語(yǔ)句中的邏輯表達(dá)式一定要用一對(duì)圓括號(hào)括起來(lái)；邏輯if語(yǔ)句中的內(nèi)嵌語(yǔ)句只能是單個(gè)的可執(zhí)行語(yǔ)句，即內(nèi)嵌語(yǔ)句不能是非執(zhí)行語(yǔ)句，也不能有多于一個(gè)可執(zhí)行語(yǔ)句；在使用邏輯if語(yǔ)句時(shí)，一定要注意邏輯表達(dá)式的正確寫法，特別是在使用多個(gè)邏輯if語(yǔ)句時(shí)更要注意。例3.1輸入三個(gè)數(shù)，求出最大和最小的值。

realx,y,z,max,min read*,x,y,z max=xmin=x if(max<y)max=y if(max<z)max=z print*,"三個(gè)數(shù)中最大數(shù)是",max if(min>y)min=y if(min>z)min=z print*,“三個(gè)數(shù)中最小數(shù)是",min end塊IF結(jié)構(gòu)邏輯if語(yǔ)句的局限性只允許有一個(gè)語(yǔ)句，多個(gè)語(yǔ)句無(wú)法實(shí)現(xiàn)實(shí)現(xiàn)多個(gè)分支時(shí)，如用多個(gè)邏輯if語(yǔ)句實(shí)現(xiàn)，則每一個(gè)邏輯if語(yǔ)句中的邏輯表達(dá)式比較復(fù)雜塊if結(jié)構(gòu)的一般形式If(邏輯表達(dá)式)thenS1elseS2endif注意問題邏輯表達(dá)式必須用一對(duì)圓括號(hào)括起來(lái)S1、S2可由若干個(gè)可執(zhí)行語(yǔ)句組成，但一行上只能寫一個(gè)語(yǔ)句，語(yǔ)句太長(zhǎng)時(shí)可以使用繼續(xù)行else語(yǔ)句必須單獨(dú)占一行endif語(yǔ)句必須單獨(dú)占一行，表示塊if結(jié)構(gòu)結(jié)束if語(yǔ)句與endif語(yǔ)句是必須的，而then、else語(yǔ)句可根據(jù)實(shí)際情況省略邏輯if與塊if區(qū)別塊if語(yǔ)句至少應(yīng)有一個(gè)end

if語(yǔ)句與它相對(duì)應(yīng)；而邏輯if語(yǔ)句不用塊if結(jié)構(gòu)中有then；而邏輯if語(yǔ)句中無(wú)塊if語(yǔ)句中的then后面有多句；邏輯if語(yǔ)句有一句邏輯if可用塊if實(shí)現(xiàn)；反之，不一定。例題3.2選擇結(jié)構(gòu)的嵌套一般形式注意每層必以if開始，以end

if結(jié)束。采用縮進(jìn)規(guī)則每層不允許出現(xiàn)交叉可從內(nèi)層轉(zhuǎn)到外層。反之不行；then塊與else塊也不能互轉(zhuǎn)例題3.3N-S流程圖用ELSEIF語(yǔ)句實(shí)現(xiàn)多路分支一般形式注意的問題：用ELSEIF語(yǔ)句實(shí)現(xiàn)多路分支例題3.4例題3.5使用ELSEIF語(yǔ)句時(shí)應(yīng)注意的問題elseif語(yǔ)句相當(dāng)于將else語(yǔ)句與下一行的塊if語(yǔ)句連接成一個(gè)語(yǔ)句用塊if實(shí)現(xiàn)多路分支，每一塊if必有一endif與之對(duì)應(yīng)。但elseif語(yǔ)句不需endif與之對(duì)應(yīng)塊if結(jié)構(gòu)中，可有多個(gè)else

if，但只能有一個(gè)else語(yǔ)句，且與最后一個(gè)else

if語(yǔ)句相配對(duì)塊if結(jié)構(gòu)中，也可只有else

if，而沒有else特別強(qiáng)調(diào)，條件必須寫對(duì)，否則會(huì)出現(xiàn)邏輯錯(cuò)誤塊SELECT CASE選擇結(jié)構(gòu)

問題:用elseif語(yǔ)句實(shí)現(xiàn)多路分支,書寫是否方便?是否容易閱讀?解決辦法:塊select case選擇結(jié)構(gòu)

一般格式selectcase（表達(dá)式）

case（表達(dá)式1）塊1case（表達(dá)式2）塊2……case（表達(dá)式n）塊ncasedefault

默認(rèn)塊endselect執(zhí)行過程說(shuō)明（1）selectcase后括號(hào)里的“表達(dá)式”，用來(lái)表示待選擇的內(nèi)容，如成績(jī)、工資、年齡等，一般為變量名，可是整型、邏輯型、單個(gè)字符型變量或者相應(yīng)的表達(dá)式（2）后面各case分支中，case后面括號(hào)里的表達(dá)式相當(dāng)于前面selectcase括號(hào)里表達(dá)式的具體取值，取值不同，動(dòng)作不同（3）casedefault是缺省情況，可有可無(wú)（4）endselect為case結(jié)構(gòu)結(jié)束標(biāo)志

例3.4、設(shè)計(jì)程序，完成小學(xué)加、減、乘、除四則運(yùn)算，即輸入兩個(gè)數(shù)，再輸入一個(gè)運(yùn)算符號(hào)，做對(duì)應(yīng)的運(yùn)算，并顯示相應(yīng)的結(jié)果。

reala,b characterop！定義一個(gè)字符變量

read*,a,b,opselectcase(op) case('+') print*,'兩個(gè)數(shù)之和為：',a+b case('-') if(a<b)then print*,'被減數(shù)不能小于減數(shù)' else print*,'兩個(gè)數(shù)之差為：',a-b endifcase('*') print*,'兩個(gè)數(shù)之積為',a*bcase('/') if(b==0)then print*,'除數(shù)不能為0' else print*,'兩個(gè)數(shù)之商為',a/b endifcasedefault print*,"輸入錯(cuò)誤，請(qǐng)重新輸入"endselectend說(shuō)明case后括號(hào)內(nèi)表達(dá)式的值可用以下方式確定：（1）用逗號(hào)隔開的單個(gè)值，如：case（1，3，5，7）（2）用冒號(hào)分隔的值的范圍。一般形式為case（a：b），其中，a為下界，b為上界，下界或上界也可缺省，如：case（2：8）、case（：10）、case