第十章文件與設(shè)備

1、05/06第二學期第二學期 第十二章第十二章 文件與設(shè)備文件與設(shè)備05/06第二學期第二學期12.1 12.1 概述概述l程序離不開數(shù)據(jù)，有效組織數(shù)據(jù)輸入是設(shè)計和編寫程序的基本要求。程序離不開數(shù)據(jù)，有效組織數(shù)據(jù)輸入是設(shè)計和編寫程序的基本要求。l從鍵盤輸入數(shù)據(jù)和向屏幕輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較小的情況，從鍵盤輸入數(shù)據(jù)和向屏幕輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較小的情況，不能與其它軟件或程序交換數(shù)據(jù)信息。不能與其它軟件或程序交換數(shù)據(jù)信息。l從文件輸入輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較大的情況，便于同其它軟從文件輸入輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較大的情況，便于同其它軟件或程序交換數(shù)據(jù)信息。件或程序交換數(shù)據(jù)信息。l使用鍵盤

2、屏幕組織數(shù)據(jù)，程序示例使用鍵盤屏幕組織數(shù)據(jù)，程序示例。l使用文件形式組織數(shù)據(jù)，程序示例使用文件形式組織數(shù)據(jù)，程序示例。l復習：程序設(shè)計中的四個重要方面復習：程序設(shè)計中的四個重要方面數(shù)據(jù)的組織、數(shù)據(jù)的傳遞、程序的優(yōu)化和數(shù)據(jù)的保存數(shù)據(jù)的組織、數(shù)據(jù)的傳遞、程序的優(yōu)化和數(shù)據(jù)的保存12.1 概述第十二章第十二章 文件與設(shè)備文件與設(shè)備05/06第二學期第二學期12.1 12.1 概述概述/ /示例示例1 1l程序離不開數(shù)據(jù)，有效組織數(shù)據(jù)輸入是設(shè)計和編寫程序的基本要求。程序離不開數(shù)據(jù)，有效組織數(shù)據(jù)輸入是設(shè)計和編寫程序的基本要求。l從鍵盤輸入數(shù)據(jù)和向屏幕輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較小的情況，從鍵盤輸入數(shù)據(jù)和向屏

3、幕輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較小的情況，不能與其它軟件或程序交換數(shù)據(jù)信息。不能與其它軟件或程序交換數(shù)據(jù)信息。l從文件輸入輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較大的情況，便于同其它軟從文件輸入輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較大的情況，便于同其它軟件或程序交換數(shù)據(jù)信息。件或程序交換數(shù)據(jù)信息。l使用鍵盤屏幕組織數(shù)據(jù)，程序示例使用鍵盤屏幕組織數(shù)據(jù)，程序示例。l使用文件形式組織數(shù)據(jù)，程序示例使用文件形式組織數(shù)據(jù)，程序示例。12.1 概述第十二章第十二章 文件與設(shè)備文件與設(shè)備! !使用鍵盤屏幕組織數(shù)據(jù)使用鍵盤屏幕組織數(shù)據(jù) PROGRAM exam1PROGRAM exam1 PARAMETER(n=5) PARAMETER(

4、n=5) REAL REAL ：score(n),sum=0.0,avescore(n),sum=0.0,ave READ( READ(* *, ,* *) (score(I),I=1,n) (score(I),I=1,n)!score=(/78.5,55.0,85.5,90.0,68.5/)!score=(/78.5,55.0,85.5,90.0,68.5/) DO I=1,n DO I=1,n sum=sum+score(I) sum=sum+score(I) ENDDO ENDDO ave ave=sum/n=sum/n WRITE( WRITE(* *, ,* *) ) 學生成績有：學

5、生成績有： WRITE( WRITE(* *,100) (score(I),I=1,n),100) (score(I),I=1,n) WRITE( WRITE(* *,200) ave,200) ave 100 FORMAT(1X,F5.1, 100 FORMAT(1X,F5.1,：,),) 200 FORMAT(1X, 200 FORMAT(1X,平均分數(shù)平均分數(shù)：,F5.1),F5.1) END END 78.5,55.0,85.5,90.0,68.578.5,55.0,85.5,90.0,68.5 學生成績有：學生成績有： 78.5, 55.0, 85.5, 90.0, 78.5, 55

6、.0, 85.5, 90.0, 68.568.5 平均分數(shù)：平均分數(shù)： 75.575.5程序文件程序文件exam1.f90exam1.f90鍵盤鍵盤屏幕屏幕05/06第二學期第二學期12.1 12.1 概述概述/ /示例示例2 2l程序離不開數(shù)據(jù)，有效組織數(shù)據(jù)輸入是設(shè)計和編寫程序的基本要求。程序離不開數(shù)據(jù)，有效組織數(shù)據(jù)輸入是設(shè)計和編寫程序的基本要求。l從鍵盤輸入數(shù)據(jù)和向屏幕輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較小的情況，從鍵盤輸入數(shù)據(jù)和向屏幕輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較小的情況，不能與其它軟件或程序交換數(shù)據(jù)信息。不能與其它軟件或程序交換數(shù)據(jù)信息。l從文件輸入輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較大的情況，便于同其它軟從

7、文件輸入輸出數(shù)據(jù)，適用于數(shù)據(jù)量比較大的情況，便于同其它軟件或程序交換數(shù)據(jù)信息。件或程序交換數(shù)據(jù)信息。l使用鍵盤屏幕組織數(shù)據(jù)，程序示例使用鍵盤屏幕組織數(shù)據(jù)，程序示例。l使用文件形式組織數(shù)據(jù)，程序示例使用文件形式組織數(shù)據(jù)，程序示例。12.1 概述第十二章第十二章 文件與設(shè)備文件與設(shè)備! !使用文件形式組織數(shù)據(jù)使用文件形式組織數(shù)據(jù) PROGRAM exam2PROGRAM exam2 PARAMETER(max=100) PARAMETER(max=100) REAL REAL ：score(max),n,sum=0.0,avescore(max),n,sum=0.0,ave OPEN(1,FILE

8、=exam2.in)OPEN(1,FILE=exam2.in) OPEN(2,FILE=exam2.out) OPEN(2,FILE=exam2.out) READ(1,READ(1,* *) n) n IF (n=max) THEN IF (n=max) THEN READ(1,READ(1,* *) (score(I),I=1,n) (score(I),I=1,n) DO I=1,n DO I=1,n sum=sum+score(I) sum=sum+score(I) ENDDO ENDDO ave ave=sum/n=sum/n WRITE(2,WRITE(2,* *) ) 學生成績有：

9、學生成績有： WRITE(2,100) (score(I),I=1,n) WRITE(2,100) (score(I),I=1,n) WRITE(2,200) ave WRITE(2,200) ave 100 FORMAT(1X,F5.1, 100 FORMAT(1X,F5.1,：,),) 200 FORMAT(1X, 200 FORMAT(1X,平均分數(shù)：平均分數(shù)：,F5.1),F5.1) ELSE ELSE PRINT PRINT* *,數(shù)據(jù)太多數(shù)據(jù)太多, ,超出空間要求。超出空間要求。 ENDIFENDIF ENDEND 5 5 78.5,55.0,85.5,90.0,68.5 78.5

10、,55.0,85.5,90.0,68.5 學生成績有：學生成績有： 78.5, 55.0, 85.5, 90.0, 78.5, 55.0, 85.5, 90.0, 68.568.5 平均分數(shù)：平均分數(shù)： 75.575.5程序文件程序文件exam2.f90exam2.f90輸入數(shù)據(jù)文件輸入數(shù)據(jù)文件exam2.inexam2.in 輸出數(shù)據(jù)文件輸出數(shù)據(jù)文件exam2.outexam2.out 05/06第二學期第二學期12.2 12.2 物理設(shè)備與邏輯設(shè)備物理設(shè)備與邏輯設(shè)備l物理設(shè)備物理設(shè)備: :計算機外部硬件設(shè)備，如：磁盤、磁帶、鍵盤、顯示器等。計算機外部硬件設(shè)備，如：磁盤、磁帶、鍵盤、顯示器等

11、。文件中數(shù)據(jù)被存儲在某個外部設(shè)備上。文件中數(shù)據(jù)被存儲在某個外部設(shè)備上。l邏輯設(shè)備邏輯設(shè)備: :在程序中使用的設(shè)備描述符號。在程序中使用的設(shè)備描述符號。l物理設(shè)備與邏輯設(shè)備之關(guān)系物理設(shè)備與邏輯設(shè)備之關(guān)系: :一個物理設(shè)備可定義多個邏輯設(shè)備，一一個物理設(shè)備可定義多個邏輯設(shè)備，一個邏輯設(shè)備可與多個不同物理設(shè)備連接。個邏輯設(shè)備可與多個不同物理設(shè)備連接。l外部文件外部文件: :在物理設(shè)備上建立的文件。設(shè)備描述符為一個整數(shù)，稱為在物理設(shè)備上建立的文件。設(shè)備描述符為一個整數(shù)，稱為設(shè)備號，通過設(shè)備號，通過OPENOPEN語句指定。語句指定。* *為標準設(shè)備號。為標準設(shè)備號。如圖如圖12-212-2所示所示。提

12、示：其它物理設(shè)備還有：工程掃描儀、數(shù)字化儀、數(shù)字化板、電分提示：其它物理設(shè)備還有：工程掃描儀、數(shù)字化儀、數(shù)字化板、電分機、激光照排機、三維掃描儀、三維測量儀、筆式和噴墨式繪圖儀、機、激光照排機、三維掃描儀、三維測量儀、筆式和噴墨式繪圖儀、磁鼓、光盤存儲器陣列和各類傳感器。每臺外部設(shè)備都有相應的驅(qū)磁鼓、光盤存儲器陣列和各類傳感器。每臺外部設(shè)備都有相應的驅(qū)動程序，外部設(shè)備通過接口和計算機相連。動程序，外部設(shè)備通過接口和計算機相連。12.2 物理設(shè)備與邏輯設(shè)備第十二章第十二章 文件與設(shè)備文件與設(shè)備05/06第二學期第二學期12.2 12.2 物理設(shè)備與邏輯設(shè)備物理設(shè)備與邏輯設(shè)備/ /示例示例1 1l

13、物理設(shè)備物理設(shè)備: :計算機外部硬件設(shè)備，如：磁盤、磁帶、鍵盤、顯示器等。計算機外部硬件設(shè)備，如：磁盤、磁帶、鍵盤、顯示器等。文件中數(shù)據(jù)被存儲在某個外部設(shè)備上。文件中數(shù)據(jù)被存儲在某個外部設(shè)備上。l邏輯設(shè)備邏輯設(shè)備: :在程序中使用的設(shè)備描述符號。在程序中使用的設(shè)備描述符號。l物理設(shè)備與邏輯設(shè)備之關(guān)系物理設(shè)備與邏輯設(shè)備之關(guān)系: :一個物理設(shè)備可定義多個邏輯設(shè)備，一一個物理設(shè)備可定義多個邏輯設(shè)備，一個邏輯設(shè)備可與多個不同物理設(shè)備連接。個邏輯設(shè)備可與多個不同物理設(shè)備連接。l外部文件外部文件: :在物理設(shè)備上建立的文件。設(shè)備描述符為一個整數(shù)，稱為在物理設(shè)備上建立的文件。設(shè)備描述符為一個整數(shù)，稱為設(shè)備號

14、，通過設(shè)備號，通過OPENOPEN語句指定。語句指定。* *、0 0、5 5、6 6為標準設(shè)備號。為標準設(shè)備號。 外部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖外部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖12-212-2所示所示。l內(nèi)部文件內(nèi)部文件: :在內(nèi)存上建立的文件。設(shè)備描述符為字符型變量名、字符在內(nèi)存上建立的文件。設(shè)備描述符為字符型變量名、字符型數(shù)組名、字符數(shù)組元素名、子串名。型數(shù)組名、字符數(shù)組元素名、子串名。 內(nèi)部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖內(nèi)部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖12-212-2所示所示。12.2 物理設(shè)備與邏輯設(shè)備第十二章第十二章 文件與設(shè)備文件與設(shè)

15、備內(nèi)部文件名內(nèi)部文件名, ,邏輯設(shè)備名邏輯設(shè)備名CHARACTERCHARACTER* *40 str1,str240 str1,str2str1=str1=125,250,375125,250,375READ(READ(str1str1, ,* *) i,j,k) i,j,kWRITE(WRITE(str2str2,100) i,j,k,i+j+k,100) i,j,k,i+j+k內(nèi)部文件名內(nèi)部文件名, ,邏輯設(shè)備名邏輯設(shè)備名str1=str1=125,250,375125,250,375str2=str2=i=125 j=250 k=375 i=125 j=250 k=375 i+j+k=

16、750i+j+k=750物理設(shè)備：內(nèi)存儲器物理設(shè)備：內(nèi)存儲器05/06第二學期第二學期12.2 12.2 物理設(shè)備與邏輯設(shè)備物理設(shè)備與邏輯設(shè)備/ /示例示例2 2l物理設(shè)備物理設(shè)備: :計算機外部硬件設(shè)備，如：磁盤、磁帶、鍵盤、顯示器等。計算機外部硬件設(shè)備，如：磁盤、磁帶、鍵盤、顯示器等。文件中數(shù)據(jù)被存儲在某個外部設(shè)備上。文件中數(shù)據(jù)被存儲在某個外部設(shè)備上。l邏輯設(shè)備邏輯設(shè)備: :在程序中使用的設(shè)備描述符號。在程序中使用的設(shè)備描述符號。l物理設(shè)備與邏輯設(shè)備之關(guān)系物理設(shè)備與邏輯設(shè)備之關(guān)系: :一個物理設(shè)備可定義多個邏輯設(shè)備，一一個物理設(shè)備可定義多個邏輯設(shè)備，一個邏輯設(shè)備可與多個不同物理設(shè)備連接。個

17、邏輯設(shè)備可與多個不同物理設(shè)備連接。l外部文件外部文件: :在物理設(shè)備上建立的文件。設(shè)備描述符為一個整數(shù)，稱為在物理設(shè)備上建立的文件。設(shè)備描述符為一個整數(shù)，稱為設(shè)備號，通過設(shè)備號，通過OPENOPEN語句指定。語句指定。* *、0 0、5 5、6 6為標準設(shè)備號。為標準設(shè)備號。 外部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖外部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖12-212-2所示所示。l內(nèi)部文件內(nèi)部文件: :在內(nèi)存上建立的文件。設(shè)備描述符為字符型變量名、字符在內(nèi)存上建立的文件。設(shè)備描述符為字符型變量名、字符型數(shù)組名、字符數(shù)組元素名、子串名。型數(shù)組名、字符數(shù)組元素名、子串名。 內(nèi)部文件、邏輯

18、設(shè)備、物理設(shè)備及其相互關(guān)系如圖內(nèi)部文件、邏輯設(shè)備、物理設(shè)備及其相互關(guān)系如圖12-212-2所示所示。12.2 物理設(shè)備與邏輯設(shè)備第十二章第十二章 文件與設(shè)備文件與設(shè)備PARAMETER(max=100)PARAMETER(max=100)REAL:score(max),N,sum=0.0,avREAL:score(max),N,sum=0.0,ave eOPEN(1,FILE=OPEN(1,FILE=exam2.inexam2.in) )OPEN(2,FILE=OPEN(2,FILE=exam2.outexam2.out) )READ(1,READ(1,* *) N) NREAD(1,READ

19、(1,* *) (score(I),I=1,N) (score(I),I=1,N)WRITE(2,WRITE(2,* *) ) 學生成績有：學生成績有：WRITE(2,100) (score(I),I=1,N)WRITE(2,100) (score(I),I=1,N)WRITE(2,200) aveWRITE(2,200) avePRINTPRINT* *,程序運行正常結(jié)束。程序運行正常結(jié)束。ENDEND外部文件名外部文件名, ,邏輯設(shè)備號邏輯設(shè)備號外部文件名外部文件名, ,邏輯設(shè)備號邏輯設(shè)備號物理設(shè)備：磁盤物理設(shè)備：磁盤 外部輸入文件：外部輸入文件：exam2.inexam2.in 5 5

20、78.5,55.0,85.5,90.0,68.5 78.5,55.0,85.5,90.0,68.5 外部輸出文件：外部輸出文件：exam2.outexam2.out 學生成績有：學生成績有： 78.5, 55.0, 85.5, 90.0, 78.5, 55.0, 85.5, 90.0, 68.568.5 平均分數(shù)：平均分數(shù)： 75.575.505/06第二學期第二學期12.3 12.3 文件文件/ /概述概述l文件文件: :存放在某種存儲設(shè)備上的一組數(shù)據(jù)集合，由文件存放在某種存儲設(shè)備上的一組數(shù)據(jù)集合，由文件名唯一標識。名唯一標識。l文件由若干記錄組成。沒有記錄的文件為空文件。文件由若干記錄組成

21、。沒有記錄的文件為空文件。l文件操作（讀、寫）以記錄為單位。從文件中一次輸入文件操作（讀、寫）以記錄為單位。從文件中一次輸入一個記錄，向文件中一次輸出一個記錄。一個記錄，向文件中一次輸出一個記錄。l通過通過READREAD和和PRINTPRINT語句從文件中輸入輸出數(shù)據(jù)。語句從文件中輸入輸出數(shù)據(jù)。l文件分外部文件和內(nèi)部文件兩種文件。文件分外部文件和內(nèi)部文件兩種文件。概述概述外部文件外部文件內(nèi)部文件內(nèi)部文件文件標識文件標識12.3 文件第十二章第十二章 文件與設(shè)備文件與設(shè)備05/06第二學期第二學期12.3 12.3 文件文件/ /外部文件外部文件l外部文件外部文件: :連接在計算機主機上的一類

22、設(shè)備連接在計算機主機上的一類設(shè)備( (如：鍵盤、顯如：鍵盤、顯示器、打印機等示器、打印機等) )或存放在外部存儲器上的文件。或存放在外部存儲器上的文件。l外部文件特點外部文件特點: :能長期保存大批量數(shù)據(jù)。能長期保存大批量數(shù)據(jù)。l在程序中使用外部文件，必須先用在程序中使用外部文件，必須先用OPENOPEN語句為外部文件指語句為外部文件指定設(shè)備號，建立外部文件與設(shè)備號之間的聯(lián)系。如：定設(shè)備號，建立外部文件與設(shè)備號之間的聯(lián)系。如： OPEN(1,FILE=exam2.in)OPEN(1,FILE=exam2.in) OPEN(2,FILE=exam2.out) OPEN(2,FILE=exam2.

23、out) READ(1, READ(1,* *) (score(I),I=1,N) (score(I),I=1,N) WRITE(2, WRITE(2,* *) ) 學生成績有：學生成績有： （示例示例）12.3 文件第十二章第十二章 文件與設(shè)備文件與設(shè)備概述概述外部文件外部文件內(nèi)部文件內(nèi)部文件文件標識文件標識05/06第二學期第二學期12.3 12.3 文件文件/ /內(nèi)部文件內(nèi)部文件l內(nèi)部文件內(nèi)部文件: :存放在內(nèi)存儲器上的文件。存放在內(nèi)存儲器上的文件。l內(nèi)部文件特點內(nèi)部文件特點: :保存小批量數(shù)據(jù)，不能長期保存。保存小批量數(shù)據(jù)，不能長期保存。l內(nèi)部文件作用內(nèi)部文件作用: :一般用于少量二進

24、制數(shù)據(jù)與字符型數(shù)據(jù)相一般用于少量二進制數(shù)據(jù)與字符型數(shù)據(jù)相互轉(zhuǎn)換，以及字符串和合并或截取。如：互轉(zhuǎn)換，以及字符串和合并或截取。如： PROGRAM exam4PROGRAM exam4 CHARACTER CHARACTER* *40 str1,str240 str1,str2 str1=125,250,375 str1=125,250,375 READ(str1, READ(str1,* *) i,j,k) i,j,k WRITE(str2,100) i,j,k,i+j+k WRITE(str2,100) i,j,k,i+j+k100 FORMAT(i=,I3, j=,I3, k=,I3, i

25、+j+k=,I3)100 FORMAT(i=,I3, j=,I3, k=,I3, i+j+k=,I3) PRINT PRINT* *,i,j,k,i,j,k PRINT PRINT* *,str2,str2 END END12.3 文件第十二章第十二章 文件與設(shè)備文件與設(shè)備概述概述外部文件外部文件內(nèi)部文件內(nèi)部文件文件標識文件標識05/06第二學期第二學期12.3 12.3 文件文件/ /文件標識文件標識l每個文件有一個唯一的文件標識，用于文件的識別和存取。每個文件有一個唯一的文件標識，用于文件的識別和存取。l外部文件標識為文件名，符合外部文件標識為文件名，符合windowswindows命名規(guī)

26、則。命名規(guī)則。l內(nèi)部文件標識為字符型變量名、字符型數(shù)組名、字符型數(shù)內(nèi)部文件標識為字符型變量名、字符型數(shù)組名、字符型數(shù)組元素名、字符子串名組元素名、字符子串名。 PROGRAM exam4PROGRAM exam4 CHARACTER CHARACTER* *40 str1,str240 str1,str2 str1=125,250,375 str1=125,250,375 READ(str1, READ(str1,* *) i,j,k) i,j,k WRITE(str2,100) i,j,k,i+j+k WRITE(str2,100) i,j,k,i+j+k100 FORMAT(i=,I3,

27、j=,I3, k=,I3, i+j+k=,I3)100 FORMAT(i=,I3, j=,I3, k=,I3, i+j+k=,I3) PRINT PRINT* *,i,j,k,i,j,k PRINT PRINT* *,str2,str2 END END12.3 文件第十二章第十二章 文件與設(shè)備文件與設(shè)備概述概述外部文件外部文件內(nèi)部文件內(nèi)部文件文件標識文件標識05/06第二學期第二學期12.3 12.3 文件文件/ /外部文件外部文件/ /示例示例l外部文件外部文件: :連接在計算機主機上的一類設(shè)備連接在計算機主機上的一類設(shè)備( (如：鍵盤、顯如：鍵盤、顯示器、打印機等示器、打印機等) )或存放

28、在外部存儲器上的文件。或存放在外部存儲器上的文件。l外部文件特點外部文件特點: :能長期保存大批量數(shù)據(jù)。能長期保存大批量數(shù)據(jù)。l在程序中使用外部文件，必須先用在程序中使用外部文件，必須先用OPENOPEN語句為外部文件指語句為外部文件指定設(shè)備號，建立外部文件與設(shè)備號之間的聯(lián)系。如：定設(shè)備號，建立外部文件與設(shè)備號之間的聯(lián)系。如： OPEN(1,FILE=exam2.in)OPEN(1,FILE=exam2.in) OPEN(2,FILE=exam2.out) OPEN(2,FILE=exam2.out) READ(1, READ(1,* *) (score(I),I=1,N) (score(I)

29、,I=1,N) WRITE(2, WRITE(2,* *) ) 學生成績有：學生成績有： （示例示例）12.3 文件第十二章第十二章 文件與設(shè)備文件與設(shè)備PROGRAM exam3PROGRAM exam3 INTEGER fac INTEGER fac ! !輸出數(shù)據(jù)至顯示器輸出數(shù)據(jù)至顯示器, ,設(shè)備號可以是設(shè)備號可以是* *或或6 6 WRITE( WRITE(* *, ,( (輸入一個整數(shù)輸入一個整數(shù)N N：) )!WRITE(6,!WRITE(6,* *) ) 輸入一整數(shù)輸入一整數(shù)N N： ! !從鍵盤輸入數(shù)據(jù)從鍵盤輸入數(shù)據(jù), ,設(shè)備號可以是設(shè)備號可以是* *或或5 5 READ( R

30、EAD(* *, ,* *) N ) N ! !或者或者READ(5,READ(5,* *) N) N ! !使用使用OPENOPEN語句打開一個外部文件語句打開一個外部文件, ,設(shè)備號為設(shè)備號為1 1 OPEN(UNIT=1,FILE= OPEN(UNIT=1,FILE=factor.datfactor.dat,STATUS,STATUS=NEW)=NEW) fac fac=1=1 DO I=1,N DO I=1,N fac=fac fac=fac* *I I ! !向設(shè)備號為向設(shè)備號為1 1的外部文件輸出數(shù)據(jù)的外部文件輸出數(shù)據(jù), ,有格式輸出有格式輸出 WRITE(1,WRITE(1,(I

31、3,(I3,!=!=,I7),I7) I,fac) I,fac ENDDO ENDDO ! !關(guān)閉設(shè)備號為關(guān)閉設(shè)備號為1 1的邏輯設(shè)備的邏輯設(shè)備 CLOSE(1)CLOSE(1) ! !向顯示器輸出數(shù)據(jù)向顯示器輸出數(shù)據(jù) WRITE(6,WRITE(6,* *) ) 程序運行結(jié)束。程序運行結(jié)束。ENDEND概述概述外部文件外部文件內(nèi)部文件內(nèi)部文件文件標識文件標識05/06第二學期第二學期12.4 12.4 外部文件分類外部文件分類/ /概述概述l外部文件也稱磁盤數(shù)據(jù)文件，簡稱文件。外部文件也稱磁盤數(shù)據(jù)文件，簡稱文件。l有兩種存儲格式和兩種存取方式有兩種存儲格式和兩種存取方式u順序存取順序存取方式

32、方式。u直接存取直接存取方式方式。u文本存儲格式。文本存儲格式。u二進制存儲格式。二進制存儲格式。u提示：提示：文本格式文件：源程序文件、文本格式文件：源程序文件、.txt.txt文件及所有可以文件及所有可以用普通文本編輯器讀取編輯的文件（用普通文本編輯器讀取編輯的文件（.scr.dxf.scr.dxf) )二進制格式文件二進制格式文件: :需要專門程序讀取的文件需要專門程序讀取的文件（.psd.tiff.jpg.gif.bmp.dwg.psd.tiff.jpg.gif.bmp.dwg) )概述概述存儲格式存儲格式存取方式存取方式文件定位文件定位12.4 外部文件分類第十二章第十二章 文件與設(shè)

33、備文件與設(shè)備05/06第二學期第二學期12.4 12.4 外部文件分類外部文件分類/ /存儲格式存儲格式l存儲格式是指文件中數(shù)據(jù)的存儲規(guī)則和組織結(jié)構(gòu)。存儲格式是指文件中數(shù)據(jù)的存儲規(guī)則和組織結(jié)構(gòu)。l文本存儲格式：又分為文本存儲格式：又分為有格式、無格式。有格式、無格式。 。l有格式存儲格式：有格式存儲格式：文件中數(shù)據(jù)以字符形式文件中數(shù)據(jù)以字符形式(ASCII(ASCII碼碼) )存放存放, ,以回車符以回車符(CR)(CR)和換行符和換行符(LF)(LF)作為字符行的結(jié)束標志。在作為字符行的結(jié)束標志。在OPENOPEN語句中用語句中用FORMFORM選項指定選項指定FORMATTEDFORMAT

34、TED，可缺省。，可缺省。OPEN(UNIT=1,FILE=exam2.in,FORM=FORMATTED)OPEN(UNIT=1,FILE=exam2.in,FORM=FORMATTED)OPEN(UNIT=2,FILE=exam2.out)OPEN(UNIT=2,FILE=exam2.out)l無格式存儲格式：無格式存儲格式：文件中數(shù)據(jù)以二進制形式存放。在文件中數(shù)據(jù)以二進制形式存放。在OPENOPEN語句中用語句中用FORMFORM選項指定選項指定UNFORMATTEDUNFORMATTED。OPEN(UNIT=1,FILE=exam2.in,FORM=UNFORMATTED)OPEN(U

35、NIT=1,FILE=exam2.in,FORM=UNFORMATTED)OPEN(UNIT=2,FILE=exam2.out,FORM=UNFORMATTED)OPEN(UNIT=2,FILE=exam2.out,FORM=UNFORMATTED)l二進制存儲格式：二進制存儲格式：文件中數(shù)據(jù)以真正的二進制編碼形式文件中數(shù)據(jù)以真正的二進制編碼形式( (在內(nèi)存的存儲形式在內(nèi)存的存儲形式) )存放。在存放。在OPENOPEN語句中用語句中用FORMFORM選項指定選項指定BINARYBINARY。OPEN(UNIT=1,FILE=exam2.in,FORM=BINARY)OPEN(UNIT=1,F

36、ILE=exam2.in,FORM=BINARY)OPEN(UNIT=2,FILE=exam2.out,FORM=BINARY)OPEN(UNIT=2,FILE=exam2.out,FORM=BINARY)12.4 外部文件分類第十二章第十二章 文件與設(shè)備文件與設(shè)備概述概述存儲格式存儲格式存取方式存取方式文件定位文件定位05/06第二學期第二學期12.4 12.4 外部文件分類外部文件分類/ /存取方式存取方式l存取方式是指對文件中數(shù)據(jù)讀寫方式存取方式是指對文件中數(shù)據(jù)讀寫方式, ,也稱文件訪問方式。也稱文件訪問方式。l有兩種存取方式：有兩種存取方式：順序存取和直接存取。順序存取和直接存取。l順

37、序存取文件記錄長度可不同順序存取文件記錄長度可不同, ,直接存取文件記錄長度相同。直接存取文件記錄長度相同。l順序存取方式：順序存取方式：在進行存取操作時只能從第在進行存取操作時只能從第1 1個記錄開始按個記錄開始按存儲順序依次進行存儲順序依次進行, ,即在程序中要讀寫第即在程序中要讀寫第N N個數(shù)據(jù)時個數(shù)據(jù)時, ,必須先必須先讀寫前面的讀寫前面的N-1N-1個數(shù)據(jù)個數(shù)據(jù), ,讀寫時可使用讀寫時可使用REWINDREWIND或或BACKSPACEBACKSPACE語語句改變文件指針位置句改變文件指針位置( (讀寫位置讀寫位置) )。在。在OPENOPEN語句中用語句中用ACCESSACCESS

38、選選項指定項指定SEQUENTIALSEQUENTIAL，對有格式文件可缺省。，對有格式文件可缺省。 OPEN(UNIT=1,FILE=exam2.in,ACCESS=SEQUENTIAL)OPEN(UNIT=1,FILE=exam2.in,ACCESS=SEQUENTIAL) OPEN(UNIT=2,FILE=exam2.out) OPEN(UNIT=2,FILE=exam2.out)l直接存取方式：直接存取方式：在進行存取操作時可以讀寫任意一個記錄在進行存取操作時可以讀寫任意一個記錄( (數(shù)據(jù)數(shù)據(jù)),),也稱隨機存取方式也稱隨機存取方式。 OPEN(UNIT=1,FILE=exam2.in

39、,ACCESS=DIRECT,RECL=4OPEN(UNIT=1,FILE=exam2.in,ACCESS=DIRECT,RECL=40)0) OPEN(UNIT=2,FILE=exam2.out,ACCESS=DIRECT,RECL=OPEN(UNIT=2,FILE=exam2.out,ACCESS=DIRECT,RECL=40)40)12.4 外部文件分類第十二章第十二章 文件與設(shè)備文件與設(shè)備概述概述存儲格式存儲格式存取方式存取方式文件定位文件定位05/06第二學期第二學期12.4 12.4 外部文件分類外部文件分類/ /文件定位文件定位l每一個文件都有一個隱含的指針每一個文件都有一個隱含

40、的指針, ,稱為文件指針稱為文件指針, ,文件指針指向文文件指針指向文件中的一個記錄件中的一個記錄, ,來控制文件的來控制文件的當前讀寫位置。當前讀寫位置。l文件打開后文件打開后, ,文件指針指向第一文件指針指向第一個記錄。個記錄。l文件指針指向的記錄稱為當前記文件指針指向的記錄稱為當前記錄。文件指針指向第一個記錄位錄。文件指針指向第一個記錄位置置, ,稱為文件的起始位置稱為文件的起始位置, ,文件指文件指針指向最后一個記錄位置針指向最后一個記錄位置, ,稱為稱為文件的結(jié)束位置。文件的結(jié)束位置。l對于順序文件對于順序文件, ,在讀寫前在讀寫前, ,要對文要對文件指針進行定位件指針進行定位, ,

41、對于直接文件對于直接文件, ,在讀寫過程中在讀寫過程中, ,要對文件指針進要對文件指針進行定位。行定位。l在文件數(shù)據(jù)的讀寫過程中在文件數(shù)據(jù)的讀寫過程中, ,只對只對文件指針指向的當前記錄進行讀文件指針指向的當前記錄進行讀寫寫( (存?。?。存取）。12.4 外部文件分類第十二章第十二章 文件與設(shè)備文件與設(shè)備數(shù)據(jù)文件數(shù)據(jù)文件文件指針文件指針記錄記錄1 1記錄記錄2 2 記錄記錄i i 記錄記錄n n概述概述存儲格式存儲格式存取方式存取方式文件定位文件定位05/06第二學期第二學期12.5 12.5 文件基本操作文件基本操作/ /文件打開文件打開l在讀寫文件數(shù)據(jù)前，需通過在讀寫文件數(shù)據(jù)前，需通過OP

42、ENOPEN語句將文件打開。建立邏語句將文件打開。建立邏輯設(shè)備符輯設(shè)備符( (文件編號文件編號) )與磁盤上的外部文件之間的關(guān)系。與磁盤上的外部文件之間的關(guān)系。l一般格式：一般格式： OPEN(OPEN(UNIT=UNIT=,FILE=,FILE=,ACCESS=,ACCESS= ,FORM= ,FORM=,RECL=,RECL=,ERR=,ERR= 文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞指針反繞指針回退指針回退12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備05/06第二學期第二學期12.5 12.5 文件基本操作

43、文件基本操作/ /文件關(guān)閉文件關(guān)閉l文件讀寫操作結(jié)束后，可通過文件讀寫操作結(jié)束后，可通過CLOSECLOSE語句將文件關(guān)閉。取消語句將文件關(guān)閉。取消邏輯設(shè)備符邏輯設(shè)備符( (文件編號文件編號) )與磁盤上的外部文件之間的關(guān)系。與磁盤上的外部文件之間的關(guān)系。CLOSECLOSE語句可缺省。語句可缺省。l一般格式：一般格式： CLOSE(CLOSE(Unit=Unit= ,ERR=,ERR=) 12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞指針反繞指針回退指針回退05/06第二學期

44、第二學期12.5 12.5 文件基本操作文件基本操作/ /文件結(jié)束文件結(jié)束l文件在操作過程中文件在操作過程中, ,可強制在文件內(nèi)當前記錄位置后置文件可強制在文件內(nèi)當前記錄位置后置文件結(jié)束標志。使用結(jié)束標志。使用ENDFILEENDFILE語句可強制設(shè)置文件結(jié)束標志語句可強制設(shè)置文件結(jié)束標志, ,文文件結(jié)束標志后的記錄被清除。件結(jié)束標志后的記錄被清除。l一般格式：一般格式： ENDFILEENDFILE (UNIT=(UNIT= ,ERR=,ERR= 12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查

45、詢文件查詢指針反繞指針反繞指針回退指針回退05/06第二學期第二學期12.5 12.5 文件基本操作文件基本操作/ /文件輸入文件輸入l文件打開后文件打開后, ,從文件輸入數(shù)據(jù)。使用從文件輸入數(shù)據(jù)。使用READREAD語句完成數(shù)據(jù)輸入。語句完成數(shù)據(jù)輸入。l一般格式：一般格式： READREAD(UNIT=(UNIT=,FMT=,FMT= ,END=,END= , ,ERR=ERR= ,REC=,REC= ） 12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞指針反繞指針回退指針回退

46、05/06第二學期第二學期12.5 12.5 文件基本操作文件基本操作/ /文件輸出文件輸出l文件打開后文件打開后, ,向文件輸出數(shù)據(jù)。使用向文件輸出數(shù)據(jù)。使用WRITEWRITE語句完成數(shù)據(jù)輸出。語句完成數(shù)據(jù)輸出。l一般格式：一般格式：WRITE(WRITE(UNIT=UNIT=,FMT=,FMT= NML=NML=,ADVANCE=,ADVANCE=,ERR=ERR= ,IOSTAT=IO,IOSTAT=,REC=REC= ） 12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞

47、指針反繞指針回退指針回退05/06第二學期第二學期12.5 12.5 文件基本操作文件基本操作/ /文件查詢文件查詢l文件打開后文件打開后, ,在文件的存取操作過程中有時要查詢文件的有在文件的存取操作過程中有時要查詢文件的有關(guān)狀態(tài)和屬性關(guān)狀態(tài)和屬性, ,以便決定某種操作。使用以便決定某種操作。使用INQUIREINQUIRE語句完成語句完成屬性查詢。屬性查詢。l一般格式：一般格式：INQUIRE(UNIT=INQUIRE(UNIT=unitunitFILE=FILE=filefileIOLENGTH=IOLENGTH=iolengthiolength ,ACCESS=,ACCESS=acces

48、saccess,SEQUENTIAL=,SEQUENTIAL=sequentialsequential,DIRECT=,DIRECT=directdirect ,FORM=,FORM=formform,FORMATTED=,FORMATTED=formattedformatted,UNFORMATTED=,UNFORMATTED=unformattedunformatted ,BINARY=,BINARY=binarybinary,ACTION=,ACTION=actionaction,MODE=,MODE=modemode,READ=,READ=readread,W,WRITE=RITE=w

49、ritewrite ,READWRITE=,READWRITE=readwritereadwrite,BLANK,BLANK= =blankblank,BLOCKSIZE=,BLOCKSIZE=blocksizeblocksize ,CARRIAGECONTROL=,CARRIAGECONTROL=carriagecontrolcarriagecontrol,DELIM,DELIM= =delimdelim,ERR,ERR= =errerr,EXIST=EXIST=existexist ,IOFOCUS=,IOFOCUS=iofocusiofocus,IOSTAT,IOSTAT= =iosta

50、tiostat,NAME,NAME= =namename,NAMED=,NAMED=namednamed ,RECL=,RECL=reclrecl,NEXTREC=,NEXTREC=nextrecnextrec,RECORDTYPE=recordtype,RECORDTYPE=recordtype ,NUMBER=,NUMBER=numbernumber,PAD=,PAD=padpad ,POSITION=,POSITION=positionposition,SHARE=,SHARE=shareshare,OPENED=,OPENED=openedopened) ) 12.5 文件基本操作第十

51、二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞指針反繞指針回退指針回退05/06第二學期第二學期12.5 12.5 文件基本操作文件基本操作/ /指針反繞指針反繞l文件打開后文件打開后, ,在讀寫操作中有時要將當前文件指針位置指向在讀寫操作中有時要將當前文件指針位置指向文件起始位置文件起始位置( (稱為反繞稱為反繞, ,類似倒帶操作類似倒帶操作),),以便從起始位置以便從起始位置進行讀寫操作。使用進行讀寫操作。使用REWINDREWIND語句完成文件指針反繞操作。語句完成文件指針反繞操作。l一般格式：一

52、般格式：REWINDREWIND(Unit=(Unit=ERR=ERR=IOSTAT=IOSTAT=)12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞指針反繞指針回退指針回退05/06第二學期第二學期12.5 12.5 文件基本操作文件基本操作/ /指針回退指針回退l文件打開后文件打開后, ,在文件的存取操作過程中有時要將當前文件指在文件的存取操作過程中有時要將當前文件指針位置向后回退一個記錄位置。使用針位置向后回退一個記錄位置。使用BACKSPACEBACKSPACE語句完成文

53、語句完成文件指針回退操作。件指針回退操作。l一般格式：一般格式：BACKSPACEBACKSPACE(Unit=(Unit=ERR=ERR=IOSTAT=IOSTAT=) 12.5 文件基本操作第十二章第十二章 文件與設(shè)備文件與設(shè)備文件打開文件打開文件關(guān)閉文件關(guān)閉文件結(jié)束文件結(jié)束文件輸入文件輸入文件輸出文件輸出文件查詢文件查詢指針反繞指針反繞指針回退指針回退05/06第二學期第二學期12.6 12.6 使用外部設(shè)備使用外部設(shè)備l外部設(shè)備：外部設(shè)備：鍵盤、顯示器、終端、打印機、串行口、并行口等設(shè)備。鍵盤、顯示器、終端、打印機、串行口、并行口等設(shè)備。l象使用外部文件一樣使用這些外部設(shè)備。每一個外部

54、設(shè)備都有一個象使用外部文件一樣使用這些外部設(shè)備。每一個外部設(shè)備都有一個設(shè)備名設(shè)備名, ,類似于文件名。類似于文件名。如表如表12-112-1所示所示。l下面給出一些使用外部設(shè)備的下面給出一些使用外部設(shè)備的OPENOPEN語句：語句： ! !連接一臺打印機連接一臺打印機, ,程序中可從打印機輸出數(shù)據(jù)程序中可從打印機輸出數(shù)據(jù), ,設(shè)備號為設(shè)備號為1 1 OPEN(UNIT=1,FILE=PRN) OPEN(UNIT=1,FILE=PRN) ! !連接一個串行口連接一個串行口, ,程序中可從串行口輸出數(shù)據(jù)程序中可從串行口輸出數(shù)據(jù), ,設(shè)備號為設(shè)備號為2 2 OPEN(UNIT=2,FILE=COM1

55、) OPEN(UNIT=2,FILE=COM1) ! !連接一個并行口連接一個并行口, ,程序中可從并行口輸出數(shù)據(jù)程序中可從并行口輸出數(shù)據(jù), ,設(shè)備號為設(shè)備號為3 3 OPEN(UNIT=3,FILE=LPT1) OPEN(UNIT=3,FILE=LPT1) 12.6 使用外部設(shè)備第十二章第十二章 文件與設(shè)備文件與設(shè)備 設(shè)設(shè) 備備 名名 外部設(shè)備或部件外部設(shè)備或部件 CON Console(CON Console(終端、控制臺、標準輸出設(shè)備終端、控制臺、標準輸出設(shè)備) ) PRN Printer( PRN Printer(打印機打印機) ) COM1 Serial Port#1( COM1 S

56、erial Port#1(串行口串行口1)1) COM2 Serial Port#2( COM2 Serial Port#2(串行口串行口2)2) LPT1 Parallel Port#1( LPT1 Parallel Port#1(并行口并行口1)1) LPT2 Parallel Port#1( LPT2 Parallel Port#1(并行口并行口2)2) NUL NULL(NULL NUL NULL(NULL設(shè)備設(shè)備, ,忽略輸入輸出操作忽略輸入輸出操作) ) AUX Serial Port#1( AUX Serial Port#1(串行口串行口1)1) LINE1 Serial Por

57、t#1( LINE1 Serial Port#1(串行口串行口1)1) USER1 Standard Output( USER1 Standard Output(標準輸出標準輸出) ) ERR1 Standard error( ERR1 Standard error(標準錯誤信息標準錯誤信息) )05/06第二學期第二學期12.7 12.7 文件讀寫操作文件讀寫操作/ /有格式順序文件有格式順序文件l有格式順序文件有格式順序文件: :具有具有“FORMATTEDFORMATTED”和和“SEQUENTIALSEQUENTIAL”屬性的文件屬性的文件 。l有格式順序文件可用任何文本編輯器或有格式

58、順序文件可用任何文本編輯器或OPENOPEN、WRITEWRITE語句創(chuàng)建。屬于可視化文件。語句創(chuàng)建。屬于可視化文件。l有格式順序文件是由若干文本行組成有格式順序文件是由若干文本行組成, ,每個文本行是每個文本行是一個記錄一個記錄, ,記錄由回車符記錄由回車符(CR)(CR)和換行符和換行符(LF)(LF)結(jié)束結(jié)束, ,回回車符車符CR(ODH)CR(ODH)和換行符和換行符LF(OAH)LF(OAH)是記錄的結(jié)束標志。是記錄的結(jié)束標志。每個記錄長度每個記錄長度( (字節(jié)數(shù)字節(jié)數(shù), ,每個字符占一個字節(jié)每個字符占一個字節(jié)) )可以不可以不同同, ,默認最大記錄長度為默認最大記錄長度為13213

59、2個字節(jié)個字節(jié), ,可通過可通過RECLRECL選項選項指定最大記錄長度。指定最大記錄長度。l有格式順序文件讀寫操作與鍵盤、顯示器的讀寫操有格式順序文件讀寫操作與鍵盤、顯示器的讀寫操作類似作類似, ,不同的是需要用不同的是需要用OPENOPEN語句打開文件語句打開文件, ,指定設(shè)指定設(shè)備號備號, ,在在READREAD和和WRITEWRITE語句中指定設(shè)備號語句中指定設(shè)備號, ,而不是星號而不是星號“* *”。l程序示例程序示例。有格式順序文件有格式順序文件有格式直接文件有格式直接文件無格式順序文件無格式順序文件無格式直接文件無格式直接文件二進制順序文件二進制順序文件二進制直接文件二進制直接文件12.7 文件讀寫操作第十二章第十二章 文件與設(shè)備文件與設(shè)備05/06第二學期第二學期12.7 12.7 文件讀寫操作文件讀寫操作/ /有格式順序文件有格式順序文件/ /程序示例程序示例l有格式順序文件有格式順序文件: :具有具有“FORMATTEDFORMATTED”和和“SEQUENTIALSEQUENTIAL”屬性的文件屬性的文件 。l有格式順序文件可用任何文本編輯器或有格式順序文件可用任何文本編輯器或OPENOPEN、WRITEWRI