【正文】 性 ， 在計算機內(nèi)存中占有不同的存儲長度 ， 存儲的方式不同 ， 具有不同類型的運算 。 如 read*,a,b read是關(guān)鍵字 。只有了解并掌握了這些基本要素，才可能正確自如地使用該種語言。 Fortran的字符集 二、 FORTRAN標識符 第一節(jié) FORTRAN常量 標識符 即 名稱 ，是用來在程序中 標識有關(guān)實體 （如：變量、符號常量、函數(shù)、程序單元、公用塊、數(shù)組、模塊和形參等）。 但是 ， 不主張這樣做 ， 因為 使用關(guān)鍵字作為實體名稱會到導致程序難以理解和閱讀 。 Fortran常量包括 整型、實型、復型、字符型和邏輯型五種內(nèi)部類型常量 和 一種特殊的常量 ——符號常量 ，下面分別介紹它們的表示方法及其注意事項。 .m n代表整數(shù)部分， m代表小數(shù)部分， 不允許出現(xiàn)非數(shù)值字符（如逗號、頓號和空格等） 。 177。有效數(shù)字部分和指數(shù)部分的數(shù)字遵循整數(shù)和小數(shù)形式實數(shù)的要求。 1. 數(shù)字部分的絕對值小于 1（即小數(shù)點前面的數(shù)字必須為 0），且小數(shù)點后第一個數(shù)字必須為一個非 0的數(shù)字 。 三、 FORTRAN常量 復型常量 復型常量是采用 圓括號將兩個以逗號分割的 實數(shù)或整數(shù)括起來 表示的。 字符串本身中含有單引號或雙引號的處理： 例如要將 I′m a student 作為一個字符串來處理，為了區(qū)分′ 是字符串中的字符還是定界符，可采用兩種方式表示： ， ″ I ′ m a student″ ′ He said:I am feeling well. ′ ， ′ I′′ m a student′ He said:I39。 Fortran90支持 C字符串，所謂 C字符串就是 C語言中的字符串。C. 通過 C字符串可表示任何可輸出的字母字符、專用字符、圖形字符和控制字符。 需要注意的是：邏輯值 兩邊的小數(shù)點“ .”必須有 ；邏輯值中字母 不區(qū)分大小寫 ?？梢杂妙愋驼f明語句定義符號常量的類型。 parameter (g=) t=10 v=g*t print *, v End 該語句定義了符號常量 g，在該語句所在的程序單元內(nèi)， g都代表 ，和常量一樣進行運算。 但為避免誤解，在實際中要盡量避免使用這些有一定意義的符號名作為變量名。其一般形式為 CHARACTER ? n 變量名表 其中 n為正整數(shù)。這是一種個別指定各字符變量長度的方法。 該規(guī)則又稱為 I~N規(guī)則 。 （ 3） I~N規(guī)則具有一定的副作用 ， 如隱含說明與強制說明一同使用時 ， 變量類型不清晰 ， 因此一般不提倡使用 ， 可以通過在程序變量說明之前加入： implicit none語句來取消 I~N規(guī)則 。 例如： character(8) a*10,b,c*13 ！定義了三個字符型變量，根據(jù)上面的原則可知 a的長度為 10， b的長度為 8， c的長度為 13。 計算機語言中提到的函數(shù)是對數(shù)學等學科中函數(shù)的計算機實現(xiàn)，它 實際上是具有獨立功能的程序模塊 。mod(m,n)自變量為兩個： m、 n。 （ 7） 要注意 Fortan語言中函數(shù)名與數(shù)學中函數(shù)名的差異 ，如 Fortran語言中 log(x)，相當于數(shù)學的自然對數(shù)，即 lnx。如 SIN()， SIN(*)， SIN(x+y)(x， y為實型變量 )均是正確的。 整型 ?實型 ?雙精度型 ?復型 低 高 高級類型 類型的轉(zhuǎn)換是按表達式的運算順序進行的 例： 1/2 值為 0， *1/ 值為 1/2* 值為 數(shù)據(jù)類型的轉(zhuǎn)換是從左到右進行的，在遇到不同 類型的數(shù)據(jù)時才開始轉(zhuǎn)換。 例如數(shù)學表達式： 應寫成： (((a+b)**2+(ab)**2)**3+c)+8。但必須注意，在作不同類型數(shù)據(jù)的混合運算時，其類型的轉(zhuǎn)換是在運算過程中逐步進行的，只有在作某種具體的運算而又遇到兩個運算對象的類型不一致時才進行轉(zhuǎn)換，并不是將整個式中的不同類型量全部轉(zhuǎn)換成同一類型后再作表達式的計算。 又例如，為了計算并輸出級數(shù) 1 0 0131211 ???? ?的值，編制了如下的 FORTRAN程序： S = DO 10 N = 1,100 S = S + 1/N WRITE(?, ?)?S = ?, S END 這個程序沒有任何語法錯誤 ， 但當這個程序輸入到計算機后 ， 經(jīng)過編譯和連接 ， 最后運行的結(jié)果為 S=。 一般格式為： 變量名 =表達式 作用是： 將一個確定的值（右邊表達式的值即常量）賦給左邊變量， 即將表達式的值存放到變量所對應的存儲單元。 輸入輸出是計算機內(nèi)存與外部設(shè)備交換數(shù)據(jù)的過程 。 第六節(jié) 表控輸入語句 例： READ *, a, b, m, n 如果 a,b為實型， m,n為整型，可以從鍵盤輸入以下數(shù)據(jù)： ， ， 24， 10 ↙ （數(shù)據(jù)間用逗號分隔） 或 24 10 ↙ （數(shù)據(jù)間用空格分隔） 則 a=， b=， m=24， n=10。 READ語句讀取前 4個數(shù)后，程序?qū)⒗^續(xù)執(zhí)行下一條語句。 例如： m=123， n=456，輸入語句為： READ *, m,n 如果輸入數(shù)據(jù)為： 1□ 23， 456 ↙ 鍵入數(shù)據(jù)時不小心輸入了一個空格，則執(zhí)行結(jié)果為 m=1， n=23，顯然不是想要的數(shù)據(jù)。 第七節(jié) 表控輸出語句 變量名，表達式或常量 四、表控輸出的特點： ⒈系統(tǒng)自動地分別為每一個不同類型的數(shù)據(jù)規(guī)定所占的列數(shù)和表數(shù)形式。 數(shù)（例如 IBM— PC為 7位 )，或?qū)崝?shù)的數(shù)值小于 1，則在 輸出時會自動轉(zhuǎn)換成規(guī)范化的指數(shù)形式輸出 。,y z=x。 一個程序單位中可以有多個 STOP語句，執(zhí)行到任一個 STOP語句處時，程序即停止運行 。 分析 ：用 n代表原三位整數(shù)， n n n3分別代表其個位、十位、百位， m代表反向的數(shù)。c=39。,I end 2. 已知 U=100v, R1=20Ω， R2=50 Ω, R0=100 Ω 。, ve, 39。以上結(jié)果取小數(shù)點后兩位，對第三位四舍五入。 write(*,*) 39。 program exam3 parameter(pi=) h=20210. R= vc=7900.*sqrt(R)/sqrt(h+R) ve=vc*sqrt() c=*pi*(h+R) t=c/vc vc=int(vc*3600./1000.*100.+)/100. ve=int(ve*3600./1000.*100.+)/100. t=int(t/60.*100.+)/100. write(*,*) 39。area=39。解決此問題的關(guān)鍵在于如何將 n拆分成 3，這可以通整除與求余運算來完成。 STOP 1111 或 STOP ’ERROR1’ 其中， 1111和 ERROR1為輸出信息，供調(diào)試程序和辨別流程用。y=z print*,39。 ★ 表控輸出結(jié)果因不同計算機而異！ PRINT *, 或 WRITE(*,*) 四、表控輸出的特點： 例 分析下列程序的結(jié)果 implicit none integer m , n read * , m , n , n , m m=m+n n=m+n print * , m , n end 當輸入 7 8 9 10時 輸出結(jié)果為 ? 19 28 例 ： 輸入三個實數(shù) ， 輸出最大值和最小值 read * , x1 , x2 , x3 maxnum=max(x1 , x2 , x3) minum=min(x1 , x2 , x3) print * , 最大的數(shù)是 , maxnum write（ * , *） 最小的數(shù)是 “ , minum end 從鍵盤輸入 ， ， 輸出結(jié)果為： 最大的數(shù)是 最小的數(shù)是 例： 交換 x和 y的值 implicit none real x,y,z print*,39。當要輸出的數(shù)據(jù)位數(shù)不夠時，左端以空格補齊。若變量為實型，而輸入數(shù)據(jù)為整型，則系統(tǒng)自動將輸入數(shù)據(jù)轉(zhuǎn)換為實型再賦值給實型變量。 READ(*,*) i, j READ(*,*) a, b 輸入 3， 10， ， ↙ 第一個 READ語句讀入前兩個數(shù)，即 i=3， j=10，而第二個READ語句并不會從這一輸入行剩余的數(shù)據(jù)中讀數(shù)，所以 a，b未被賦值。 (2)輸入數(shù)據(jù)可分為多行輸入，直到輸入全部數(shù)據(jù)。 第六節(jié) 表控輸入語句 FORTRAN提供了三種類型的輸入輸出格式： (1)表控格式輸入、輸出 :它是 FORTRAN輸入、輸出中最簡單的一種方式，是按系統(tǒng)隱含的標準格式輸入輸出。 對變量的賦值過程是“覆蓋”過程，指的是在變量對應的存貯單元中用新的值去替換原有的值。 問題出在什么地方呢 ？ 問題出在標號為 10的這個語句中 ， 在賦值號(=)右邊的算術(shù)表達式中 ， 根據(jù)運算順序 ， 首先計算1/N， 但當 N1時 ， 由于 1和 N均為整型量 ， 其運算結(jié)果總是為 0， 因為這是一個整型除法 ， 只有當 N=1時， 其和不為 0而等于 1。 在這個例子中， A與 B為實型變量， I與 K為整型變量。 當分子小于分母時結(jié)果一律為 0。