fortran語(yǔ)言第5章共8章(參考版)
2025-05-14 14:03本頁(yè)面
【正文】 求三角形面積和三角形重心。 ，分別統(tǒng)計(jì)出其中的英文字母、空格、數(shù)字和其它字符的個(gè)數(shù)。Z=39。Y=39。X=39。 INTEGER::Z LOGICAL::P,Q,R,S READ*,X,Y Z=3 P=X== Q=X== R=Y== S=Y== IF(().OR.().OR.()amp。 邏輯型數(shù)據(jù) 邏輯常量只有真和假兩種值： . .FALSE.。還有一個(gè)問(wèn)題要處理：當(dāng)字母為 ′V′時(shí)，加 5就超過(guò)了 ′Z′，故應(yīng)使之轉(zhuǎn)換為 ′A′，同理， ′W′→′B′ ，′X′→′C′ ， ′Y′→′D′ ， ′Z′→′E′ 。為此可用IACHAR函數(shù) (或 ICHAR函數(shù) )和 ACHAR函數(shù) (或CHAR函數(shù) )。例如，將字母 ′A′→′F′ ， ′B′→′G′ ， ′C′ →′H′ ，即將一個(gè)字母變成其后第五個(gè)字母。 PROGRAM CHAR_2 IMPLICIT NONE CHARACTER*10::WORD DO READ*,WORD IF(WORD==′ZZZ′)EXIT IF(WORD(1:1)==′B′)PRINT*,WORD END DO END PROGRAM CHAR_2 也可以用 INDEX函數(shù)： PROGRAM CHAR_2 IMPLICIT NONE CHARACTER*10::WORD DO READ*,WORD IF(WORD==′ZZZ′)EXIT IF(INDEX(WORD, ′B′)==1)PRINT*,WORD END DO END PROGRAM CHAR_2 例 翻譯密碼 為了保密，常不采用明碼電文，而用密碼電文，按事先約定的規(guī)律將一個(gè)字符轉(zhuǎn)換為另一個(gè)字符。其函數(shù)的結(jié)果值為序號(hào) I所對(duì)應(yīng)的字符。例如， ICHAR(′ABC′)的值為 65。例如 ADJUSTL(′ ABC ′)的值為 ′ABC ′ ADJUSTR(′ABC ′)的值為 ′ ABC′ (1)字符向字符序號(hào)轉(zhuǎn)化函數(shù) 其一般形式為： ICHAR(CH)和 IACHAR(CH) 其中 CH是長(zhǎng)度為 1的字符型常量和變量。例如， LGE(′ABC′, ′EFG′)的值為假。例如， INDEX(′FOLLOW ME′, ′ME′)的值為 8，因?yàn)?′ME′的第一個(gè)字符 M出現(xiàn)在 ′FOLLOW ME′的第 8個(gè)字符位置上； INDEX(′FOLLOW ME′, ′L O′)的值為 0。例如 TRIM(′ABC ′)的值為 ′ABC′ TRIM(′ ABC ′)的值為 ′ ABC′ 3．子串位置函數(shù) (INDEX) 其一般形式為： INDEX(String1, String2) 其中 String1， String2均為字符型，且類(lèi)別參數(shù)應(yīng)該一致。函數(shù) LEN_TRIM的值是把字符串去掉尾部空格后的長(zhǎng)度。 用于字符處理的內(nèi)部函數(shù) 1．求字符串長(zhǎng)度函數(shù) (LEN和 LEN_TRIM) LEN(String)和 LEN_TRIM(String) 其中 String為字符型常量、變量等字符串。 (3)若兩個(gè)字符串中字符個(gè)數(shù)不等時(shí)，則將較短的字符串后面補(bǔ)足空格后再比較。若所有字符完全相同，則兩表達(dá)式相等；否則，以第一次出現(xiàn)不同字符的比較結(jié)果為準(zhǔn)。 在進(jìn)行關(guān)系運(yùn)算時(shí)，遵循以下規(guī)律： (1)兩個(gè)單個(gè)字符比較，以它們的代碼值決定大小。 PROGRAM CHAR_1 IMPLICIT NONE CHARACTER(LEN=5)::A,B,C CHARACTER(LEN=11)::D A=′CHINA′ B=′JAPAN′ C=A D=A//′ ′//B PRINT*, A,B,C END PROGRAM CHAR_1 字符關(guān)系表達(dá)式 字符比較的規(guī)則是：一般按其 ASCII代碼的值 (見(jiàn)附錄 )進(jìn)行比較。該運(yùn)算符是一個(gè)雙目
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1