【文章內(nèi)容簡介】 0 CONTINUE PRINT *, LINE2 END [例 ]從 10個書名中查找有 FORTRAN的書名 CHARACTER*7 NAME, BOOK*30 NAME=?FORTRAN? DO 10, I=1, 10 READ *, BOOK IF (INDEX(BOOK, NAME) .NE. 0) PRINT *, BOOK 10 CONTINUE END [例 ]從一篇文章中查出包含多少個 CHINA。假設文章有 K行，每行 80個字符。 CHARACTER LINE*80, WORD*5 PARAMETER (WORD=?CHINA?) N=0 READ *, K DO 10, I=1, K READ *, LINE J=1 20 L=INDEX(LINE(J:80), WORD) IF (L .EQ. 0) THEN J=81 ELSE N=N+1 J=J+L+51 END IF IF (J .LE. 76) GOTO 20 10 CONTINUE PRINT *, ?THE NUMBER OF CHINA IS?, N END 習題 1. 用雙精度數(shù)據(jù)計算 sinx=xx3/3!+x5/5!…+( 1)n1*x2n1/(2n1)!。直到第 n項的絕對值小于 1015為止。 2. 輸入一個單詞，將它按逆序打印出來（如輸入 FORTRAN應打印NARTROF）。 3. 打印出以下圖案，要求用字符型變量。 * *** ***** ******* ********* ******* ***** *** * 4. 輸入 10個國家名，將其中按字母順序在最前面的打印出來。 第七章 數(shù)組 數(shù)組是 一種數(shù)據(jù)結構，每個數(shù)組代表一組具有同一類型的變量，把數(shù)組中所包含的變量稱為數(shù)組元素。在程序中通過說明語句聲明數(shù)組。例如： INTEGER A(1:6) 每個變量都在內(nèi)存中占有一個獨立的存儲單元。例如： INTEGER A1, A2, A3, A4, A5, A6 這六個變量所代表的六個存儲單元在內(nèi)存中的位置是彼此獨立、互不相關的。 從終端讀入六個數(shù)放到這六個存儲單元中，則需要用以下輸入語句： READ (*, *) A1, A2, A3, A4, A5, A6 從這六個數(shù)中找出最小數(shù)，則需要以下一系列語句： MIN=A1 IF (A2 .LT. MIN) MIN=A2 IF (A3 .LT. MIN) MIN=A3 IF (A4 .LT. MIN) MIN=A4 IF (A5 .LT. MIN) MIN=A5 IF (A6 .LT. MIN) MIN=A6 數(shù)組是由一組相同類型的變量組成的，每個元素當然也在內(nèi)存中占用一個存儲單元。與 A A … 、 A6不同的是， A數(shù)組的這六個存儲單元在內(nèi)存中是一個接著一個排列、彼此緊密相關的。數(shù)組名 A是六個存儲單元的總名字。 同一個數(shù)組中的各個元素用不同的下標來區(qū)別，它們的表示形式為A(1)、 A(2)、 A(3)、 A(4)、 A(5)、 A(6)，下標放在緊跟在數(shù)組名后的一對圓括號內(nèi)。在內(nèi)存中 A(2)元素的位置必定緊挨在 A(1)之后， A(3)元素的位置緊挨在 A(2)之后，其它依次類推。 只要給出數(shù)組名和下標值就可以確定該數(shù)組元素在內(nèi)存中的位置從而對其進行存取。在程序中通過改變下標值的方法來引用數(shù)組中不同的存儲單元。 例如，可以通過以下語句從終端給前面說明的 A數(shù)組中的六個變量賦值： DO 10, I=1, 6 READ (*, *) A(I) 10 CONTINUE 通過以下語句找出它們之中最小的那個數(shù)： IP=1 MIN=A(IP) DO 20, I=2, 6 IF (A(I) .LT. MIN) THEN IP=I MIN=A(IP) END IF 20 CONTINUE 通過以上例子可以看到，數(shù)組的使用將使程序變得簡潔、靈活、易讀，它是程序設計中一種十分有用的工具。使用數(shù)組可以使許多復雜的算法得以實現(xiàn)，這些算法用簡單變量是無法實現(xiàn)的。 數(shù)組的說明和數(shù)組元素的引用 使用數(shù)組必須在類型說明語句或在 DIMENSION語句中先對數(shù)組進行說明。 說明數(shù)組的一般形式如下： 類型說明或 DIMENSION 數(shù)組說明符 , … 其中數(shù)組說明符的形式如下： 數(shù)組名 (維說明符 , …) 維說明符的組成形式如下： 下標下界 : 下標上界 用類型語句說明數(shù)組 數(shù)組通常在類型說明語句中說明 ： REAL IA(1:10), ND(80:99), W(1:3, 1:2) INTEGER NUM(1:0), A(0:2, 0:1, 0:3) 用 DIMENSION語句說明數(shù)組 在上一小節(jié)中說明的 IA、 ND、 W、 NUM、 A數(shù)組也可以用以下語句說明： DIMENSION IA(10), ND(80:99), W(3,2) DIMENSION NUM(1:0), A(0:2,0:1,0:3) INTEGER A REAL IA, ND DIMENSION語句用來說明數(shù)組，數(shù)組的類型則根據(jù)數(shù)組名的第一個字母由隱含類型規(guī)則來決定，否則應該在類型語句中對數(shù)組名進行顯示說明。例如，以上 IA、 ND是實型數(shù)組，所以應該在 REAL語句中說明，而 W則可以不在 REAL語句中說明，因為按隱含類型規(guī)則，名字 W的隱含類型就是實型；A數(shù)組（整型）應該在 INTEGER語句中說明，而NUM數(shù)組則可以不必另行說明。 數(shù)組元素的引用 數(shù)組元素的引用形式： 數(shù)組名 (下標 , ...) 數(shù)組的邏輯結構和存儲結構 R E A L I A ( 1 : 1 0 ) , W ( 1 : 3 , 1 : 2 )I N T E G E R A ( 0 : 2 , 0 : 1 , 0 : 3 )I A ( 1 )I A ( 2 )I A ( 3 )I A ( 4 )I A ( 8 )I A ( 5 )I A ( 6 )I A ( 7 )I A ( 9 )I A ( 1 0 )I A 數(shù) 組 在 內(nèi) 存 中 排 列 示 意 圖W ( 1 , 1 )W ( 2 , 1 )W ( 3 , 1 )W ( 1 , 2 )W ( 2 , 2 )W ( 3 , 2 )第 1 列 上 的 元 素第 2 列 上 的 元 素W 數(shù) 組 在 內(nèi) 存 中 排 列 示 意 圖A ( 0 , 0 , 0 )A ( 1 , 0 , 0 )A ( 2 , 0 , 0 )A ( 0 , 1 , 0 )A ( 1 , 1 , 0 )A ( 2 , 1 , 0 )A ( 0 , 0 , 1 )A ( 1 , 0 , 1 )A ( 2 , 0 , 1 )A ( 0 , 1 , 1 )A ( 1 , 1 , 1 )A ( 2 , 1 , 1 )A ( 0 , 0 , 2 )A ( 1 , 0 , 2 )A ( 2 , 0 , 2 )A ( 0 , 1 , 2 )A ( 1 , 1 , 2 )A ( 2 , 1 , 3 )A ( 2 , 1 , 2 )A ( 0 , 0 , 3 )A ( 1 , 0 , 3 )A ( 1 , 1 , 3 )A ( 2 , 0 , 3 )A ( 0 , 1 , 3 )第 0 頁 上 的 元 素第 1 頁 上 的 元 素第 2 頁 上 的 元 素第 3 頁 上 的 元 素A 數(shù) 組 在 內(nèi) 存 中 排 列 示 意 圖A ( 0 , 0 , 0 ) A ( 0 , 1 , 0 )A ( 1 , 0 , 0 ) A ( 1 , 1 , 0 )A ( 2 , 0 , 0 ) A ( 2 , 1 , 0 )A ( 0 , 0 , 1 ) A ( 0 , 1 , 1 )A ( 1 , 0 , 1 ) A ( 1 , 1 , 1 )A ( 2 , 0 , 1 ) A ( 2 , 1 , 1 )A ( 0 , 0 , 2 ) A ( 0 , 1 , 2 )A ( 1 , 0 , 2 ) A ( 1 , 1 , 2 )A ( 2 , 0 , 2 ) A ( 2 , 1 , 2 )A ( 0 , 0 , 3 ) A ( 0 , 1 , 3 )A ( 1 , 0 , 3 ) A ( 1 , 1 , 3 )A ( 2 , 0 , 3 ) A ( 2 , 1 , 3 )I N T E G E R A ( 0 : 2 , 0 : 1 , 0 : 3 )第 0 頁第 1 頁第 2 頁第 3 頁 數(shù)據(jù)的輸入和輸出 假定有以下數(shù)組說明語句： REAL W(3, 2) INTEGER A(10) 將以 A數(shù)組和 W數(shù)組為例介紹對數(shù)組進行輸入和輸出操作的三種方式。 利用 DO循環(huán)對數(shù)組進行輸入和輸出 從終端鍵盤輸入十個數(shù)，按順序逐個放入 A(1)到A(10)中 DO 10, I=1, 10 READ (*, *) A(I) 10 CONTINUE 把 A(1)、 A(3)、 A(5)、 A(7)、 A(9)輸出到終端屏幕上。 DO 20 I=1, 10, 2 WRITE (*, *) A(I) 20 CONTINUE 雙重循環(huán)將從終端讀入數(shù)據(jù)賦給 W數(shù)組中各元素 DO 10 I=1, 3 DO 20 J=1, 2 READ (*, *) W(I, J) 20 CONTINUE 10 CONTINUE 按列的順序輸出 W數(shù)組中的元素值： DO 30, I=1, 2 DO 40, J=1, 3 WRITE (*, *) W(J, I) 40 CONTINUE 30 CONTINUE 按 A數(shù)組元素排列的逆序打印數(shù)組元素的值： N=10 DO 20, I=N, 1, 1 WRITE (*, *) A(I) 20 CONTINUE 打印出 A數(shù)組中前五個元素的值： N=5 DO 20, I=1, N WRITE (*, *) A(I) 20 CONTINUE 每行輸出五個元素的值 : DO 20, I=1, 10, 5 WRITE (*, *) A(I), A(I+1), A(I+2), A(I+3), A(I+4) 20 CONTINUE 在輸入輸出語句中用數(shù)組名來輸入輸出整個數(shù)組 FORTRAN規(guī)定在輸入輸出語句中可以出現(xiàn)數(shù)組名。如： WRITE (*, *) A 相當于 : WRITE (*, *) A(1), A(2), A(3), A(4), …, A(10) 輸入輸出語句中的數(shù)組名可以是任意維數(shù)的。例如以上說明的 3*2的 W數(shù)組是二維的，可以用以下語句輸出 W數(shù)組： WRITE (*, *) W 相當于： WRITE (*, *) W(1, 1), W(2, 1), W(3, 1), W(1, 2), W(2, 2), W(3, 2) 在輸入輸出語句中使用隱含 DO循環(huán) 以下輸出語句的輸出項中包含了一個隱含的 DO循環(huán)，它將輸出 A數(shù)組中 A(1)到 A(5)元素。 N=5 WRITE (*, *) (A(I), I=1, N) 相當于： WRITE (*, *) A(1), A(2), A(3), A(4), A(5) 下面的輸出語句將輸出 A數(shù)組中下標為奇數(shù)的五個元素的值： WRITE (*, *) (A(I), I=1, 10, 2) 相當于： WRITE (*, *) A(1), A(3), A(5), A(7), A(9) 下面的輸出語句在每次循環(huán)時將同時輸出下標的值