fortran 90 文件(文件的操作語句)

1、土木學(xué)院土木學(xué)院1第 十 三 章 文文 件件（FORTRANFORTRAN的文件操作）的文件操作）土木學(xué)院土木學(xué)院2說明：說明： 在實際應(yīng)用中，往往大量需要處理的數(shù)據(jù)是由專在實際應(yīng)用中，往往大量需要處理的數(shù)據(jù)是由專門人員來采集門人員來采集,并構(gòu)成以文件名來具體代表的數(shù)據(jù)并構(gòu)成以文件名來具體代表的數(shù)據(jù)文件（文件（比如大型有限元軟件的數(shù)據(jù)采集也是這樣的）比如大型有限元軟件的數(shù)據(jù)采集也是這樣的）; 文件名通常由三部分組成：文件名通常由三部分組成：存放的設(shè)備存放的設(shè)備、文件名本身文件名本身、文件類別文件類別； 如何從各種設(shè)備上獲取和保存不同類型的數(shù)據(jù)文如何從各種設(shè)備上獲取和保存不同類型的數(shù)據(jù)文件就是我

2、們在進(jìn)行科學(xué)計算時常常遇到的問題；件就是我們在進(jìn)行科學(xué)計算時常常遇到的問題； 我們現(xiàn)在主要以磁盤設(shè)備為例來介紹我們現(xiàn)在主要以磁盤設(shè)備為例來介紹FORTRAN對文件操作的語句對文件操作的語句(打開、關(guān)閉、定位、輸入和輸出打開、關(guān)閉、定位、輸入和輸出)土木學(xué)院土木學(xué)院3 FORTRAN的數(shù)據(jù)文件由記錄組成，也就是對文的數(shù)據(jù)文件由記錄組成，也就是對文件的存取是以件的存取是以記錄記錄為單位進(jìn)行的；為單位進(jìn)行的； 記錄：長度不超過規(guī)定范圍的數(shù)字或文本記錄：長度不超過規(guī)定范圍的數(shù)字或文本的集合的集合; Fortran的的數(shù)據(jù)文件按存取方式可劃分為：數(shù)據(jù)文件按存取方式可劃分為：1. 順序存取文件（順序文件）

3、順序存取文件（順序文件） 其存取操作必須從頭到尾順序進(jìn)行；其存取操作必須從頭到尾順序進(jìn)行；2. 直接存取文件（直接文件或隨機(jī)文件）直接存取文件（直接文件或隨機(jī)文件） 在程序的執(zhí)行過程中對任意一個指定的在程序的執(zhí)行過程中對任意一個指定的 記錄進(jìn)行操作記錄進(jìn)行操作(讀和寫讀和寫)。記記 錄錄文文 件件土木學(xué)院土木學(xué)院4 FORTRAN中中數(shù)據(jù)文件的存儲形式數(shù)據(jù)文件的存儲形式：1. 字符形式字符形式（ASCII） 稱之為稱之為“有格式存放有格式存放” FORMATTED2. 二進(jìn)制數(shù)代碼形式二進(jìn)制數(shù)代碼形式 稱之為稱之為“無格式存放無格式存放” UNFORMATTED土木學(xué)院土木學(xué)院5本章主要內(nèi)容：

4、本章主要內(nèi)容： 有格式順序存取文件；有格式順序存取文件； 有格式直接存取文件；有格式直接存取文件； 無格式文件的存??；無格式文件的存取； 文件操作語句；文件操作語句； 有關(guān)文件操作的程序舉例。有關(guān)文件操作的程序舉例。土木學(xué)院土木學(xué)院613.1有格式順序存取文件有格式順序存取文件 我們已經(jīng)知道：我們已經(jīng)知道：READ語句是完成數(shù)據(jù)輸入語句是完成數(shù)據(jù)輸入任務(wù)的。任務(wù)的。 從鍵盤輸入一行數(shù)據(jù)（以從鍵盤輸入一行數(shù)據(jù)（以Enter鍵作為確鍵作為確認(rèn)），這就形成了一個認(rèn)），這就形成了一個“記錄記錄”。 從鍵盤輸入一行數(shù)據(jù)時，必須與指定的格從鍵盤輸入一行數(shù)據(jù)時，必須與指定的格式對應(yīng)（式對應(yīng)（格式編輯符與輸入

5、的數(shù)據(jù)類型以格式編輯符與輸入的數(shù)據(jù)類型以及寬度及寬度），否則就會出錯），否則就會出錯(或報錯或報錯)。土木學(xué)院土木學(xué)院713.1有格式順序存取文件有格式順序存取文件 Read(* *,100) A,B C=A+B Write(* *,200) A= ,A, B= ,B Write(* *,200) C= ,C100 Format(2F6.1)200 Format(1X,2(A,F7.2) End輸入：輸入：_10.1_20.4輸出：輸出：A=_10.10_B=_20.40C=_30.50從鍵盤接收從鍵盤接收數(shù)據(jù)，經(jīng)過數(shù)據(jù)，經(jīng)過處理，然后處理，然后輸出顯示輸出顯示土木學(xué)院土木學(xué)院8 Read(*

6、,100) A,B C=A+B Write(*,200) A= ,A, B= ,B Write(*,200) C= ,C 100Format(2F6.1) 200Format(1X,2(A,F7.2) End土木學(xué)院土木學(xué)院9土木學(xué)院土木學(xué)院1013.1有格式順序存取文件有格式順序存取文件 下面我們就介紹如何從文件中獲得數(shù)據(jù)：下面我們就介紹如何從文件中獲得數(shù)據(jù)：(例如例如:從文件從文件F1.DAT中讀取數(shù)據(jù)中讀取數(shù)據(jù),經(jīng)過處理經(jīng)過處理后后,將結(jié)果保存在將結(jié)果保存在F2.DAT中中)1. 準(zhǔn)備數(shù)據(jù)文件準(zhǔn)備數(shù)據(jù)文件(可以在各種編輯器中完成可以在各種編輯器中完成,輸入格式及寬度與程序要求的一致輸入格

7、式及寬度與程序要求的一致),數(shù)據(jù)文數(shù)據(jù)文件名的后綴為件名的后綴為 * *.DAT(也可以是也可以是*.txt);2. 編寫數(shù)據(jù)輸入和數(shù)據(jù)處理文件編寫數(shù)據(jù)輸入和數(shù)據(jù)處理文件,最后將結(jié)最后將結(jié)果輸出到果輸出到F2.DAT中中.土木學(xué)院土木學(xué)院11土木學(xué)院土木學(xué)院12character*8 Fname1Integer U1U1=3Fname1=F1.DATOpen(Unit=U1,File=Fname1,Status=OLD, $ Access=Sequential,Form=Formatted)Read(U1,100) A,BC=A+BOpen(Unit=2,File=F2.DAT,Status=

8、New, $ Access=Sequential,Form=Formatted)Write(2,200) A=,A, B=, BWrite(2,200) C=,CClose (U1)Close(2) 100Format(2F6.1) 200Format(2(A,F7.2)End _123.1_123.2 F1.DAT的內(nèi)容A=_123.10 B=_123.20C=_246.30 F2.DAT的內(nèi)容數(shù)據(jù)數(shù)據(jù)輸出輸出數(shù)據(jù)輸數(shù)據(jù)輸入和數(shù)入和數(shù)據(jù)處理據(jù)處理注：注：該源文件與數(shù)據(jù)文件放在同一目錄中該源文件與數(shù)據(jù)文件放在同一目錄中土木學(xué)院土木學(xué)院13這是已被打開這是已被打開的數(shù)據(jù)文件的的數(shù)據(jù)文件的內(nèi)容內(nèi)容

9、土木學(xué)院土木學(xué)院14土木學(xué)院土木學(xué)院15 U1=2Open(Unit=2,File=F2.DAT,Status=New, $ Access=Sequential,Form=Formatted) do 10 I=1,30 write(*,*) 請輸入學(xué)號、兩門成績請輸入學(xué)號、兩門成績 Read(*,*) N,A,B C=A+B Write(2,202) 學(xué)號：學(xué)號：, N,總成績總成績,C 10 continue Close(2) 100 Format(I2,F5.1,F5.1) 202 Format(A,I2,A,F7.1) End 輸入輸入30個學(xué)生的學(xué)號個學(xué)生的學(xué)號和兩門成績和兩門成績,最

10、后將總最后將總成績與學(xué)號輸出來成績與學(xué)號輸出來.土木學(xué)院土木學(xué)院16這是打開數(shù)據(jù)這是打開數(shù)據(jù)文件文件F2.DAT的內(nèi)容的內(nèi)容土木學(xué)院土木學(xué)院1713.1有格式順序存取文件有格式順序存取文件 打開文件打開文件(Open):是把一個設(shè)備號和一個文件名關(guān)是把一個設(shè)備號和一個文件名關(guān)聯(lián)起來聯(lián)起來,這樣在程序中將由設(shè)備號代替指定的文件這樣在程序中將由設(shè)備號代替指定的文件;Unit=ie 代表代表設(shè)備號設(shè)備號(099)File=ce 代表文件名代表文件名;Status=se 代表文件狀態(tài)代表文件狀態(tài):已經(jīng)存在已經(jīng)存在-Old; 新建新建-NewAccess=SD 代表文件的存取方式：代表文件的存取方式：D

11、irect:以直接方式存取以直接方式存??；Sequential: 以順序方式存取以順序方式存取;Form=fe 代表文件存放格式代表文件存放格式:Formatted-字符形式字符形式 在在Open中省略中省略Access和和Form,則表示打開文件為則表示打開文件為有格式順序存取文件有格式順序存取文件. Open(Unit=2,File=F2.DAT,Status=New, Access=Sequential,Form=Formatted)土木學(xué)院土木學(xué)院1813.1有格式順序存取文件有格式順序存取文件 關(guān)閉文件關(guān)閉文件(Close):解除設(shè)備號和一個文件名的關(guān)解除設(shè)備號和一個文件名的關(guān)聯(lián)聯(lián).

12、 CLOSE (設(shè)備號設(shè)備號) 一次只關(guān)閉一個設(shè)備號一次只關(guān)閉一個設(shè)備號;在程序中的在程序中的STOPEND語句都具有語句都具有Close的功能的功能 順序文件的輸入操作順序文件的輸入操作:READ(設(shè)備號設(shè)備號,格式說明格式說明,END=語句標(biāo)號語句標(biāo)號) 變量表變量表 順序文件的輸出操作順序文件的輸出操作: Write(設(shè)備號設(shè)備號,格式說明格式說明) 輸出項表輸出項表與與OPEN中中指定的設(shè)備指定的設(shè)備號相同號相同一般不寫一般不寫土木學(xué)院土木學(xué)院19舉例：讀出一個數(shù)據(jù)文件記錄舉例：讀出一個數(shù)據(jù)文件記錄,并把它顯示在屏幕上并把它顯示在屏幕上 Open (Unit=2,File=TAB.DA

13、T,Status=NEW $ Access=Sequential ,Form=Formatted) Do 10 X=1,10 Write(2,100) X, X* *X, X* *X* *X10 Continue Rewind(2) Write(* *, ,* *) X X* *X X* *X* *X20 Read(2,100, End=30) A,B,C Write(* *,200) A,B,C Goto 2030 Close(2)100 Format(3F7.1)200 Format(1X,3F9.2) End將文件指針重新設(shè)置在文件開頭（與設(shè)備號將文件指針重新設(shè)置在文件開頭（與設(shè)備號2連

14、接的文件的開頭）連接的文件的開頭）End=30表示一旦讀到文件結(jié)束標(biāo)志就不再進(jìn)行讀操作而轉(zhuǎn)到標(biāo)號為30的語句繼續(xù)執(zhí)行。土木學(xué)院土木學(xué)院20土木學(xué)院土木學(xué)院21這是打開數(shù)據(jù)這是打開數(shù)據(jù)文件文件TAB.DAT的內(nèi)容的內(nèi)容土木學(xué)院土木學(xué)院22 Integer N(30) Real A(30), B(30), C(30) Write(* *, ,* *) ) “請從鍵盤上輸入學(xué)號、兩門成績請從鍵盤上輸入學(xué)號、兩門成績 Do 300 i=1,30 Read(* *, ,101) N(I), A(I), B(I) 300 Continue Write(* *, ,* *) N,A,B U1=2 Open(

15、Unit=2,File=F2.DAT,Status=New, $ Access=Sequential,Form=Formatted) Do 10 I=1,30 C(I)=A(I)+B(I) write(2,150) N(I),c(I) 10 continue close(2) 101 format(I3,F5.1,F5.1) 150 format(I2,3x,F5.1) End 使用數(shù)組使用數(shù)組: :輸入輸入3030個學(xué)生的學(xué)號和兩個學(xué)生的學(xué)號和兩門成績門成績, ,最后將總最后將總成績與學(xué)號輸出來成績與學(xué)號輸出來. .土木學(xué)院土木學(xué)院23土木學(xué)院土木學(xué)院2413.1有格式順序存取文件有格式順序

16、存取文件 -順序文件輸入輸出的基本規(guī)則順序文件輸入輸出的基本規(guī)則 Read語句中各輸入項在類型上、格式說明上必須語句中各輸入項在類型上、格式說明上必須與輸出語句的輸出項按位置一一對應(yīng)；與輸出語句的輸出項按位置一一對應(yīng)； Open或或Rewind是從文件的第一個記錄開始輸入，是從文件的第一個記錄開始輸入，每執(zhí)行一次每執(zhí)行一次Read語句，總是從一個新的記錄開始語句，總是從一個新的記錄開始讀入；讀入； 在在Read語句讀文件記錄時，輸入項少于記錄中的語句讀文件記錄時，輸入項少于記錄中的數(shù)據(jù)項，則剩余數(shù)據(jù)被忽略輸入項多于記錄中數(shù)據(jù)項，則剩余數(shù)據(jù)被忽略輸入項多于記錄中的數(shù)據(jù)項，它將接著去讀下一個記錄的

17、數(shù)據(jù)項，它將接著去讀下一個記錄,直到所有項直到所有項都獲得數(shù)據(jù)或者遇上文件結(jié)束標(biāo)志為止；都獲得數(shù)據(jù)或者遇上文件結(jié)束標(biāo)志為止； 在程序設(shè)計中對一個順序文件不可能做到在程序設(shè)計中對一個順序文件不可能做到“重寫重寫前半部分而保留后半部分前半部分而保留后半部分”這樣的操作。這樣的操作。土木學(xué)院土木學(xué)院2513.1有格式順序存取文件有格式順序存取文件 -順序文件輸入輸出的基本規(guī)則順序文件輸入輸出的基本規(guī)則 一個一個WRITE語句總是開始一個新的記錄；語句總是開始一個新的記錄； 一般來說，對同一個文件在進(jìn)行寫操作之一般來說，對同一個文件在進(jìn)行寫操作之后要進(jìn)行讀操作時，必須先使用文件定位后要進(jìn)行讀操作時，必

18、須先使用文件定位語句，重新設(shè)置指針位置語句，重新設(shè)置指針位置 （Open語句、語句、 Rewind語句以及語句以及Backspace語句等）；語句等）； 也可以使用也可以使用表控輸入輸出語句表控輸入輸出語句對文件進(jìn)行對文件進(jìn)行格式輸入輸出，如：格式輸入輸出，如：WRITE(3,* *) N,M。Next土木學(xué)院土木學(xué)院2613.2 有格式直接存取文件有格式直接存取文件 直接存取可以直接存取可以任意確定任意確定需要讀寫記錄的位需要讀寫記錄的位置置; 直接存取只適用于直接存取只適用于磁盤文件磁盤文件; 其基本的操作與順序存取大致相同其基本的操作與順序存取大致相同,主要不主要不同的是同的是:Open

19、的說明、的說明、Read和和Write的控制的控制項不同。項不同。 下面以例說明下面以例說明土木學(xué)院土木學(xué)院2713.2有格式直接存取文件有格式直接存取文件主要語句主要語句: Open(12,File=Datb.Dat,Status=New,Access=Direct,Form=Formatted,Recl=16 ?)記錄的長度，以字節(jié)為單位。記錄的長度，以字節(jié)為單位。在直接存取文件中每個記錄在直接存取文件中每個記錄的長度是相等的，但真正寫的長度是相等的，但真正寫到文件中的實際字節(jié)的個數(shù)到文件中的實際字節(jié)的個數(shù)可以比說明的長度短。可以比說明的長度短。下面舉例：下面舉例：1 1）建立一個直接存取

20、文件；）建立一個直接存取文件；2 2）根據(jù)用戶輸入記錄號，輸）根據(jù)用戶輸入記錄號，輸 出該記錄。出該記錄。土木學(xué)院土木學(xué)院28 Parameter(N=10) Open(12,File=Datb.Dat,Status=New,$ Access=Direct,Form=Formatted,Recl=16 ) Do 10 I=1,N Write(12,100,Rec=I) I,Sqrt(Real(I) Continue Format(I3, E13.6) Close (12) Open(10,File=Datb.Dat,Status=old,$ Access=Direct,Form=Formatt

21、ed,Recl=16 ) Call Fromkey(k) Do 20 While(k .GE. 0) IF (k .LE.N .AND. K .GE. 1) THEN Read(10,100,Rec=K) IS, S Write(* *,200) IS,S ELSE Write(* *, ,* *) Input Error! Endif Call Fromkey(K) Continue Close (10)200 Format(1x,Sqrt of ,I2,IS:,F10.6) End Subroutine Fromkey(K) Write(*,*) Enter 0 to end: Write

22、(*,*) Enter a Number Read(*,*) K End1-10的開方值的開方值讀出該記錄后再用讀出該記錄后再用Write語句輸出到屏語句輸出到屏幕上幕上記錄的長度，以字節(jié)為單位。記錄的長度，以字節(jié)為單位。在直接存取文件中每個記錄的在直接存取文件中每個記錄的長度是相等的，但真正寫到文長度是相等的，但真正寫到文件中的實際字節(jié)的個數(shù)可以比件中的實際字節(jié)的個數(shù)可以比說明的長度短。說明的長度短。記錄號：是不可少的參記錄號：是不可少的參數(shù)，文件的第一個記錄數(shù)，文件的第一個記錄的記錄號為的記錄號為1土木學(xué)院土木學(xué)院29 Parameter(N=10)Open(12,File=Datb.Da

23、t,Status=New,Access=Direct,Form=Formatted,Recl=16 )Do 10 I=1,NWrite(12,100,Rec=I) I,Sqrt(Real(I) 10 Continue 100 Format(I3, E13.6) Close (12)Open(10,File=Datb.Dat,Status=old,Access=Direct,Form=Formatted,Recl=16 )Call Fromkey(k)Do 20 While(k .GE. 0)IF (k .LE.N .AND. K .GE. 1) THENRead(10,100,Rec=K) I

24、S, SWrite(*,200) IS,SELSEWrite(*,*) Input Error!EndifCall Fromkey(K)20 Continue Close (10)200 Format(1x,Sqrt of ,I2,IS:,F10.6) EndSubroutine Fromkey(K)Write(*,*) Enter 0 to end:Write(*,*) Enter a NumberRead(*,*) KEnd3位加位加13位為位為16位如果位如果Recl=13則則OverFlow土木學(xué)院土木學(xué)院30土木學(xué)院土木學(xué)院31這是打開數(shù)據(jù)文這是打開數(shù)據(jù)文件件Datb.DAT的的內(nèi)容

25、內(nèi)容土木學(xué)院土木學(xué)院3213.2有格式直接存取文件有格式直接存取文件 記錄長度說明記錄長度說明RECL=ie:該整形數(shù)表達(dá)式的該整形數(shù)表達(dá)式的值指定記錄的長度值指定記錄的長度，以字節(jié)為單位。在直，以字節(jié)為單位。在直接存取文件中每個記錄的長度是相等的，接存取文件中每個記錄的長度是相等的，但真正寫到文件中的實際字節(jié)的個數(shù)可以但真正寫到文件中的實際字節(jié)的個數(shù)可以比說明的長度短（不能超過說明長度）。比說明的長度短（不能超過說明長度）。 輸入和輸出語句中的輸入和輸出語句中的REC=記錄號：是不可記錄號：是不可少的參數(shù)，文件的第一個記錄的記錄號為少的參數(shù)，文件的第一個記錄的記錄號為1。在執(zhí)行在執(zhí)行Read

26、語句時，按格式讀入的記錄長語句時，按格式讀入的記錄長度必須小于或等于度必須小于或等于Open語句中說明的記錄語句中說明的記錄長度。長度。土木學(xué)院土木學(xué)院3313.2有格式直接存取文件有格式直接存取文件-直接存取文件輸入輸出的基本規(guī)則直接存取文件輸入輸出的基本規(guī)則 直接存取文件中每個記錄的長度必須相等，直接存取文件中每個記錄的長度必須相等，如果如果實際輸出的記錄長度不等，在操作時選取最大的實際輸出的記錄長度不等，在操作時選取最大的記錄長度作為文件每個記錄的長度記錄長度作為文件每個記錄的長度；記錄長度由；記錄長度由相應(yīng)的相應(yīng)的Format格式規(guī)定的輸出所占域?qū)拋頉Q定格式規(guī)定的輸出所占域?qū)拋頉Q定;

27、如果是原來已經(jīng)存在的（如果是原來已經(jīng)存在的（Old）數(shù)據(jù)文件，在）數(shù)據(jù)文件，在Open語句中說明的記錄長度必須應(yīng)與實際的記錄語句中說明的記錄長度必須應(yīng)與實際的記錄長度一致。長度一致。 用直接方式建立的文件可以采用順序方式打開并用直接方式建立的文件可以采用順序方式打開并進(jìn)行讀操作；用順序方式建立的文件（在記錄長進(jìn)行讀操作；用順序方式建立的文件（在記錄長度相等時），直接方式也可打開并進(jìn)行讀操作。度相等時），直接方式也可打開并進(jìn)行讀操作。Next土木學(xué)院土木學(xué)院3413.3無無格式格式文件的存取文件的存取 在實際應(yīng)用中，往往是有大量的數(shù)據(jù)是作為中間在實際應(yīng)用中，往往是有大量的數(shù)據(jù)是作為中間結(jié)果保存下

28、來（不是為了人們閱讀，而是用于計結(jié)果保存下來（不是為了人們閱讀，而是用于計算機(jī)繼續(xù)處理，而且只能保存在磁盤或磁帶上）。算機(jī)繼續(xù)處理，而且只能保存在磁盤或磁帶上）。這種數(shù)據(jù)是以這種數(shù)據(jù)是以二進(jìn)制二進(jìn)制數(shù)據(jù)格式存放的，需要時無數(shù)據(jù)格式存放的，需要時無需轉(zhuǎn)換就能直接使用；需轉(zhuǎn)換就能直接使用； 無格式文件的存放也是分為按順序方式和直接方無格式文件的存放也是分為按順序方式和直接方式兩種，在式兩種，在Open語句中的語句中的Form是：是： Form=unformatted土木學(xué)院土木學(xué)院3513.3無格式文件的存取無格式文件的存取 在進(jìn)行無格式輸入輸出時，操作與上基本相同，在進(jìn)行無格式輸入輸出時，操作與

29、上基本相同，但語句中但語句中沒有格式說明沒有格式說明這一項，如：這一項，如： Write(10) I,J Write(2,REC=K) I,J Read(10,END=100) 無格式文件只能進(jìn)行無格式讀或?qū)?，每?zhí)行一次無格式文件只能進(jìn)行無格式讀或?qū)?，每?zhí)行一次輸出、輸入語句就輸出或讀入一個記錄。輸出、輸入語句就輸出或讀入一個記錄。 讀文件的時候，輸入項表中各項的類型必須與寫讀文件的時候，輸入項表中各項的類型必須與寫記錄時輸出項表中各項的類型一一對應(yīng)。記錄時輸出項表中各項的類型一一對應(yīng)。Next土木學(xué)院土木學(xué)院3613.4 文件操作語句文件操作語句Open (說明項說明項);Close (說明

30、項說明項);Rewind (說明項說明項);Backspace (說明項說明項);它使指定設(shè)備號的文件指針回退一個記錄位置，通常它使指定設(shè)備號的文件指針回退一個記錄位置，通常用在順序文件存取中用在順序文件存取中Read (說明項說明項) 輸入項表輸入項表;Write (說明項說明項) 輸入項表輸入項表;Next土木學(xué)院土木學(xué)院3713.5 程序舉例程序舉例 integer a,b data a,b/2,3/ Open (Unit=2,File=T2a.DAT,Status=NEW,& &Access=Sequential ,Form=unFormatted) write(2) a,b close(2) end土木學(xué)院土木學(xué)院3813.5 程序舉例程序舉例土木學(xué)院土木學(xué)院3913.5 程序舉例程序舉例 Open (Unit=2,File=TAB.DAT,Status=NEW, $ Access=Sequential ,Form=unFormatted) Do 10 X=1,10 Write(2) X, X* *X, X* *X* *X 10 Continue Rewind(2) Write( (* *, ,* *) ) X X* *X X* *X* *X 20 Read(2,End=30) A,B,C Write( (* *