【正文】 不 一樣時，系統(tǒng)將自動把右邊表達(dá)式計算的結(jié)果轉(zhuǎn)換為與左邊變量的類型一致后再賦給該變量。字符運(yùn)算符只有一個，表示為 //，含義為連接該符號兩邊的字符串。在上面的程序例中，出現(xiàn)表達(dá)式 B(5： 6)，稱為 “ 子串 ” ，表示取出字符串的一部分，本例中，表示將 B的字符串 ‘FILENA’ 中的第 5個字符至第 6個字符取出。 在 DO 循環(huán)執(zhí)行時，首先計算表達(dá)式 e1， e2， e3 的值，并將它們化為與循環(huán)控制變量 V的類型一致；然后將初值賦給循環(huán)控制變量 V，并計算需要循環(huán)的次數(shù)；最后根據(jù)循環(huán)次數(shù)重復(fù)執(zhí)行循環(huán)體中的語句，并每次執(zhí)行完循環(huán)體后，將循環(huán)控制變量增值一次，循環(huán)次數(shù)減少一次。由于這些限制，通常用 CONTINUE語句作為循環(huán)的終端語句。例如，編寫一個計算乘法表的程序段，可以寫為： DO 10 I=1， 9 DO 8 J=I， 9 IJ=1*J 8 CONTINUE 10 CONTINUE 本例中，外層循環(huán)控制變量 I初值為 1，終值為 9，內(nèi)層循環(huán)控制變量 J初值為外層循環(huán)控制變量 I 的當(dāng)前值，終值為 9。 例如計算 m=1!+2!+??+10! ，采用循環(huán)語句編 寫程序，涉及到累加和連乘。 例如，前面計算乘法表的程序段可以寫為： DO 10 I=1， 9 DO 10 J=I， 9． IJ=I*J 10 CONTINUE 或?qū)憺? DO 10 I=1， 9 DO 10J=I， 9 10 IJ=I*J 五、輸入輸出語句 五、輸入輸出語句 (一 )表控輸入輸出 表控輸入輸出語句是一種隱含格式的輸入輸出語句，又稱自由格式輸入輸出，其格式由程序編譯系統(tǒng)提供，在程序語句中不予表示。 (二 )格式輸入輸出 1．格式輸出數(shù)據(jù)語句 WRITE語句和 FORMAT語句 WRITE語句的一般形式為： WRITE(u， f)輸出量表 其中， u為部件說明符，用以指出在哪個設(shè)備上進(jìn)行輸出，通常也稱為通道號，當(dāng) u為記號 *時，表示在顯示器 (標(biāo)準(zhǔn)輸出設(shè)備 )上進(jìn)行輸出。例如，上面的輸出語句與格式語句可以合并成一個，即： WRITE(*， / (1X， ， ， )/)A， B， A*B 2．格式編輯符 FORTRAN常用的格式符有十幾種，詳細(xì)可參照任何一本 FORTRAN教材或?qū)Ｓ檬謨?。循環(huán)控制變量 I的初值為 1，終值為 20，步長為 1而予以省略。 六、控制語句 六、控制語句 一般情況下， FORTRAN程序是按語句順序執(zhí)行的，但需要時，可以改變這種順序。無條件轉(zhuǎn)移語句常和其他控制語句結(jié)合起來使用。 c ComputationOf area。整型算術(shù)表達(dá)式 e前的逗號可以省略。它的一般形式為： IF(邏輯表達(dá)式 )內(nèi)嵌語句 其中內(nèi)嵌語句是單獨(dú)的一個可執(zhí)行語句。例如，如下程序段： READ*， RN， AN IF () THEN STRESS=RN／ AN WRITE*， RN， AN， STRESS ENDIF 當(dāng) RN 大于等于零且 AN大于零時，執(zhí)行賦值語句和輸出語句。 FORTRAN 測試條件的順序?yàn)檫壿嫳磉_(dá)式 邏輯表達(dá)式 2? ，一旦遇到邏輯表達(dá)式值為 TRUE，則執(zhí)行該條件下的語句塊，然后執(zhí)行 ENDIF的下一語句。內(nèi)部函數(shù)調(diào)用時的一般形式是： 內(nèi)部函數(shù)名 (實(shí)元表 ) 實(shí)元表中元素的數(shù)據(jù)類型、個數(shù)是預(yù)先規(guī)定的。形參又稱啞元，是一些變量名，一般應(yīng)出現(xiàn)在表達(dá)式中。它的第一個語句必須是 FUNCTION語句，最后一個語句必須是 END 語句。在函數(shù)子程序中，函數(shù)名應(yīng)該像普通變量那樣來使用。當(dāng)在子程序的其他位置須要返回時，可以使用 RETURN語句。但是子例方程子程序名不能用于返回數(shù)值，這與函數(shù)子程 序是不同的。 對子例方程子程序的其他有關(guān)規(guī)定與函數(shù)子程序相同。 1．變量的虛實(shí)結(jié)合 當(dāng)子程序等過程的形參為變量時，則在調(diào)用時所對應(yīng)的實(shí)參可以是類型相同的常數(shù)、變量、數(shù)組元素或表達(dá)式；子程序調(diào)用后，其運(yùn)行的結(jié)果通過這些實(shí)參返回到調(diào)用者。例如，有主程序與子程序如下： PROGRAM MAIN INTEGER A (0:5) ? CALLSB (A) ? END SUBROUTINESB (B) INTEGERB(1:2) ? END 則在主程序中使用 CALL語句調(diào)用子程序 SB時，實(shí)參數(shù)組與形參數(shù)組的結(jié)合情況如下： 實(shí)參數(shù)組形參數(shù)組 A(0)——— B(1) A(1)——— B(0) A(2)——— B(1) A(3)——— B(2) A(4) A(5) 也 即調(diào)用 SB 時， A數(shù)組的頭 4個元素與 B數(shù)組的元素對應(yīng)，這些對應(yīng)元素實(shí)際上為同一存儲地址。例如： PROGRAM MAIN DIMENSION A (3， 2) ? CALL SB (A) ? END SUBROUTINE SB (B) DIMENSION B (2， 3) ? END 這種情況下，數(shù)組元素地址的對應(yīng)關(guān)系是： 實(shí)參數(shù)組形參數(shù)組 A(1， 1)—— B(1， 1) A(2， 1)—— B(2， 1) A(3， 1)—— B(1， 2) A(1， 。例如，有主程序與子程序如下： PROGRAM MAIN DIMENTION A (8) ? CALLSB (A (5)) ? END SUBROUTINE SB (B) DIMENTION B (3) ? END 則在調(diào)用語句執(zhí)行時，實(shí)參數(shù)組 A與形參數(shù)組 B的結(jié)合情況如下： 實(shí)參數(shù)組形參數(shù)組 A(1) A(2) A(3) A(4) A(5)——— B(1) A(6)——— B(2) A(7)——— B(3) A(8) FORTRAN 77 規(guī)定，不管實(shí)參是數(shù)組名還是數(shù)組元素，用作實(shí)參的數(shù)組，其維數(shù)、各維下標(biāo)的上下限及數(shù)組中元素個數(shù)可以和與之結(jié)合的形參數(shù)組不同，但要求從與形參數(shù)組的第一個元素結(jié)合的實(shí)參數(shù)組元素算起，以后的實(shí)參數(shù)組元素的個數(shù)不能少于形參數(shù)組元素的個數(shù)。 2．?dāng)?shù)組的虛實(shí)結(jié)合 當(dāng)子程序中的形參為數(shù)組名時，則在調(diào)用時所對應(yīng)的實(shí)參必須是數(shù)組名或數(shù)組元素。其形式為： CALL 子程序名 (實(shí)參 ) 其他有關(guān)對子例方程子程序的調(diào)用規(guī)定與函數(shù)子程序相同。 SUBROUTINE語句中的形參表可以省略。 子例方程子程序的第一個語句必須是 SUBROUTINE語句，最后一個語句必須是 END 語句。 在函數(shù)子程序中， END 語句的功能有兩個：一是表示該程序單位的結(jié)束，二是具有返回語句 RETURN 的功能。 在函數(shù)子程序中，形參可以是變量名、數(shù)組名、外部過程名，而形參的命名與類型說明也與變量相同，形參數(shù)組也必須在函數(shù)子程序中予以定義。 2．語句函數(shù)的調(diào)用 調(diào)用語句函數(shù)的結(jié)果是得到一個函數(shù)值，因此，語句函數(shù)的調(diào)用形式同內(nèi)部函數(shù)。 (二 )語句函數(shù) 1．語句函數(shù)的定義 定義語句函數(shù)的語句稱為語句函數(shù)語句。塊的嵌套可以多層。由此可見，使用 ELSE的形式，可以進(jìn)行兩個分支的選擇。 例如，從鍵盤讀入一個代表百分制成績的數(shù)據(jù)， 如果數(shù)據(jù)在 90～ 100 之間就輸出‘Excelent’ ，在 80～ 89 之間輸出 ‘Good’ ，在 60～ 79 之間輸出 ‘Pass’ ，在 60 以下則輸出 ‘Notpass’ 。 例如，有如下一個程序： READ *， M GOTO(20， 30， 40， 50)M 20 N=M GOTO 60 30 N=M*2 GOTO 60 40 N=M*3 GOTO 60 50 N=M*4 60 WRITE *， N END 程序運(yùn)行時，若輸入 1，則轉(zhuǎn)向標(biāo)號為 20 的語句， N 的值為 1；若輸入 2，則轉(zhuǎn)向標(biāo)號為30 的語句， N的值為 4；輸入 3，轉(zhuǎn)向標(biāo)號為 40 的語句， N的值為 9，輸入 4，轉(zhuǎn)向標(biāo)號為 50 的語句， N的值為 16。 3．計算轉(zhuǎn)移語句 計算轉(zhuǎn)移語句的一般形式為： GOTO(n1， n2， ? ． ” ， mm)， e 其中， ni(i=1， 2， ?? ， m)是被轉(zhuǎn)向的語句標(biāo)號，共 m個； e是一個整型算術(shù)表達(dá)式，其值不得小于 1 且不得大于 m。 例如，計算邊長為 B 的正方形中挖去半徑為 R的圓后的面積，若 B2R，則給出相關(guān)信息。 (一 )轉(zhuǎn)移語句 1．無條件轉(zhuǎn)移語句 無條件轉(zhuǎn)移語句的一般形式為： GOTO n 當(dāng)程序流程到達(dá) GOTO 語句時，隨后就轉(zhuǎn)向語句標(biāo)號為 n 的語句。 隱循環(huán)語句也用于輸出語句，也可使用多重循環(huán)。 例如： DIMENSION X (20) DO 10 I=1， 20 20 READ*， X(I) 程序段執(zhí)行時進(jìn)行 20 次循環(huán)，每次輸入 1 個數(shù)據(jù)。 格式語句的一般形式為： 標(biāo)號 FORMAT(格式說明 ) 例如： WRITE(*， 10)A， B， A*B 10 FORMAT(1X， ， ， ) FORMAT語句中，第一個 “1X 稱為縱向控制符，它表示前進(jìn)一空格后再輸出后面的數(shù)據(jù)，后面的三個項(xiàng)分別說明了三個實(shí)型數(shù)據(jù)輸出的， 稱為格式編輯符。 2．表控輸入語句 FORTRAN 77 表控輸入語句有兩種形式： READ *，輸入量表 READ(*， *)輸入量表 表控輸入又稱為自由格式輸入。 2． DO 語句可以和轉(zhuǎn)換語句，條件語句等結(jié)合起來使用，此時應(yīng)注意從循環(huán)體內(nèi)可以轉(zhuǎn)向循環(huán)體外，但不允許從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)；從內(nèi)層循環(huán)中可以轉(zhuǎn)向外層循環(huán)，但不允許從外層循環(huán)轉(zhuǎn)向內(nèi)層循環(huán)中。 (四 )使用循環(huán)語句應(yīng)注意的若干問題 1．正確選定循環(huán)變量的初值。 (三 )循環(huán)嵌套 使用循環(huán)嵌套可以實(shí)現(xiàn)多重循環(huán)。 (二 )繼續(xù)語句 CONTINUE CONTINUE是一個可執(zhí)行語句，其功能是使程序的流程繼續(xù)到邏輯上的下一個語句。循環(huán)體是若干語句的集合，其中最后一個語句稱 為循環(huán)終端語句；若循環(huán)體只有一個語句，則該語句也就是終端語句。 例如： CHARACTER*4 A， B*6， C A=/FILE/ B=A///NAME/， C=B(5:6) 定義字符型變量時，根據(jù)類型說明語句的規(guī)定， A、 C長度為 4，而變量 B 因有專門說明，其長度為 6。 (三 )字符賦值語句 1．字符賦值語句賦值號的左邊為字符變量或字符型數(shù)組元素。例如，算術(shù)表達(dá)式 的計算過程是 = = 如果表達(dá)式寫為 ／ ，則計算過程是 ／ = = 因?yàn)?2／ 4 是整除，其結(jié)果為 0，而進(jìn)行 2／ ，整型量 2先被轉(zhuǎn)化為實(shí)型。 (1)算術(shù)表達(dá)式中的各個數(shù)據(jù)量 (常量或變量 )的類型一般應(yīng)該一致。 A. .AND． B. .NOT． C. .OR. D. .EQV. 答案 :B 前言 第二十二講 計算機(jī)程序設(shè)計語言 (之二 ) 一、 內(nèi)容提要： 本講主要講述 FORTRAN的語句 二、 重點(diǎn)難點(diǎn)： 根據(jù)所講語句對簡單的程序能夠判斷輸出結(jié)果 三、 內(nèi)容講解： 三、賦值語句 三、賦值語句 賦值語句的一般格式為： 變量名 =表達(dá)式 其中，連接變量名和表達(dá)式的符號 “=” 稱為賦值號。 FORTRAN有五個邏輯運(yùn)算符，它們是 ： 邏輯與 .AND．兩個邏輯型量都為 “ 真 ” 時，其值為 “ 真 ” ，否則為 “ 假 ” ； 邏輯或 .OR. 兩個邏輯型量都為 “ 假 ” 時，其值為 “ 假 ” ，否則為 “ 真 ” ； 邏輯非 .NOT．一個邏輯型量為 “ 真 ” 時，其值為 “ 假 ” ，否則為 “ 真 ” ； 邏輯等 .EQV. 兩個邏輯型量等值時，其值為 “ 真 ” ，否則為 “ 假 ” ； 邏輯不等 .NEQV. 兩個邏輯型量不等值時，其值為 “ 真 ” ，否則為 “ 假 ” 。 FORTRAN有六個關(guān)系運(yùn)算符，用于比較兩個表達(dá)式相等或不等，其優(yōu)先級相同。 (五 )各種運(yùn)算符及其運(yùn)算的優(yōu)先級 1．算術(shù)運(yùn)算符。 【例題 25】在 FORTRAN中的 IN 隱含規(guī)則是指以字母 I， J， K， L， M， N中的任一個字母打頭命名的變量都是（）變量。 3)用隱含說明語句 IMPLICIT 語句，可以將程序中以某一字母開頭的所有變量指定為所需類型。 1)IN隱含規(guī)則。 (1)變量的類型與常量相對應(yīng)，分為整型變量、實(shí)型變量、雙精度實(shí)型變量、復(fù)型變量、邏輯型變量與字符串變量。 (6)字符型常量，也稱為字符串。 (4)復(fù)型常量，簡稱復(fù)數(shù)。 (3)雙精度實(shí)型常量，或稱雙精度實(shí)數(shù)。一個整數(shù)可采用正、負(fù)號和數(shù)字字符表示，正號可以省略。 當(dāng)數(shù)組的下標(biāo)下限為 1時，可以省略說明下標(biāo)下限。例如： CHARACTER*8 OUT(10) 數(shù)組 OUT 每個元素的長度都是 8，即每個元素都可以存放 8個字符。 ， XYZ(1， 15) XYZ(20， 0)， XYZ(20， 1)， 例如