fortran語(yǔ)言第5章共8章-資料下載頁(yè)
2025-05-10 14:03本頁(yè)面
【正文】 。其函數(shù)的結(jié)果值為字符在相應(yīng)處理系統(tǒng)中的字符序號(hào)，例如 IACHAR(′A′)的值為 65 IACHAR(′Z′)的值為 90 在 FORTRAN90中，允許 String所代表的字符長(zhǎng)度超過(guò) 1，此時(shí)只取第一個(gè)字符作為有效字符。例如， ICHAR(′ABC′)的值為 65。 (2)字符序號(hào)向字符轉(zhuǎn)化函數(shù) 其一般形式為： CHAR(I)和 ACHAR(I) 其中 I可以是整型常量、變量或表達(dá)式。其函數(shù)的結(jié)果值為序號(hào) I所對(duì)應(yīng)的字符。例如 ACHAR(65)的值為 ′A′ IACHAR(90)的值為 ′Z′ 字符處理應(yīng)用舉例 例 在讀入的一批單詞中，把以字母 ′B′開(kāi)頭的打印出來(lái)，直到輸入 ′ZZZ′結(jié)束。 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è)字符。收?qǐng)?bào)人則按相反的規(guī)律轉(zhuǎn)換得到原來(lái)的字符。例如，將字母 ′A′→′F′ ， ′B′→′G′ ， ′C′ →′H′ ，即將一個(gè)字母變成其后第五個(gè)字母。例如： ″HE IS IN BEIJING.″ 應(yīng)轉(zhuǎn)換為： ″MJ NX NS GJNONSL.″ 分析：可以這樣實(shí)現(xiàn)，取該字母的 ASCII代碼，加上5，再按其 ASCII碼轉(zhuǎn)換為另一個(gè)字母。為此可用IACHAR函數(shù) (或 ICHAR函數(shù) )和 ACHAR函數(shù) (或CHAR函數(shù) )。 IACHAR(′A′)=65， ACHAR(70)= ′F′。還有一個(gè)問(wèn)題要處理：當(dāng)字母為 ′V′時(shí)，加 5就超過(guò)了 ′Z′，故應(yīng)使之轉(zhuǎn)換為 ′A′，同理， ′W′→′B′ ，′X′→′C′ ， ′Y′→′D′ ， ′Z′→′E′ 。只對(duì)字母進(jìn)行轉(zhuǎn)換，對(duì)字母之外的字符維持原樣。 邏輯型數(shù)據(jù) 邏輯常量只有真和假兩種值： . .FALSE.。變量說(shuō)明的格式為： LOGICAL [ ( [ KIND = ] 類別值 ) ] [ [ ,屬性列表 ] :: ] 變量列表 邏輯型變量可以定義為 LOGICAL， LOGICAL(1)，LOGICAL(2)， LOGICAL(4) LOGICAL DOIT, DONT LOGICAL(2) :: IIS, IIF LOGICAL*4 :: FLAG1, FLAG2 例 當(dāng)某點(diǎn)的 X， Y坐標(biāo)落在下圖（圖 ）中四個(gè)方塊內(nèi)和方塊邊上時(shí)， Z=0，如在方塊外， Z=3。 INTEGER::Z LOGICAL::P,Q,R,S READ*,X,Y Z=3 P=X== Q=X== R=Y== S=Y== IF(().OR.().OR.()amp。 .OR.())Z=0 PRINT*,39。X=39。,X,39。Y=39。,Y,39。Z=39。,Z END 上機(jī)作業(yè) ，按從小到大順序輸出。 ，分別統(tǒng)計(jì)出其中的英文字母、空格、數(shù)字和其它字符的個(gè)數(shù)。 ，頂點(diǎn)為 X， Y， Z，其坐標(biāo)分別為（ ,） ,（ ,） ,（ ,） 。求三角形面積和三角形重心。 （提示：重心坐標(biāo) = ,利用復(fù)數(shù)計(jì)算） 3zyx ??謝謝觀看！ ? 更多網(wǎng)絡(luò)共享資源： ?
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1