Fortran程序設(shè)計(第4章數(shù)據(jù)的輸入與輸出)課件

第四章數(shù)據(jù)的輸入與輸出4.1整型數(shù)的輸入輸出4.2實型數(shù)的輸入輸出4.3復(fù)型數(shù)的輸入輸出4.4邏輯型數(shù)的輸入輸出4.5字符型數(shù)據(jù)的輸入輸出4.6雙精度數(shù)的輸入輸出4.7其他格式編輯符第四章數(shù)據(jù)的輸入與輸出4.1整型數(shù)的輸入輸出1輸入輸出的三種不同的格式：1．表控格式的輸入輸出2．有格式的輸入輸出3．無格式的輸入輸出要素：1．在什么外部設(shè)備上輸入或輸出2．用什么格式輸入輸出3．輸入輸出哪些數(shù)據(jù)輸入與輸出編輯符輸入輸出的三種不同的格式：輸入與輸出編輯符2常用輸入設(shè)備：鍵盤、卡片機、磁盤常用輸出設(shè)備：顯示器、打印機、磁盤如：READ（*，*）XWRITE（*，*）X一般形式：READ(<設(shè)備號>,<格式說明>)<輸入表>READ<格式說明>,<輸入表>WRITE(<設(shè)備號>,<格式說明>)<輸出表>PRINT<格式說明>,<輸出表>格式說明：*、格式字符表達式作用：精確地說明每一個數(shù)據(jù)應(yīng)該怎樣輸入或輸出，包括類型、小數(shù)點位置、有效位數(shù)、輸出結(jié)果的形式常用輸入設(shè)備：鍵盤、卡片機、磁盤31．I編輯符控制輸出：功能：用于整型數(shù)據(jù)的輸入輸出格式： Iw Iw.m rIw w—輸入輸出數(shù)據(jù)字段寬度

m—無符號整數(shù)，表示數(shù)據(jù)輸出時最小含有的位數(shù)，它不包括符號位。

在輸出時，m>位數(shù)，則在整數(shù)之前補0，使寬度為m；若m<位數(shù)，則按照實際數(shù)輸出結(jié)果。 r—為重復(fù)系數(shù)§4.1整型數(shù)的輸入輸出1．I編輯符控制輸出：§4.1整型數(shù)的輸入輸出4

例1．設(shè)

J=10，K=-12，L=123

WRITE(*,

‘(I3，I5，I7)’)J,K,L□10□□-12□□□□123例1．設(shè)

J=10，K=-12，L=123□5注意：

1．數(shù)字在指定的區(qū)域內(nèi)右端對齊，不足w則左邊補空格。

2．負數(shù)的符號也包含在字段寬度內(nèi)。

3．如果應(yīng)輸出的列數(shù)超過了規(guī)定的字段寬度，則不輸出有效數(shù)據(jù)，以w個*填充。注意：6

例2．在上例中，如果

J=-100，則結(jié)果為：***□□-12□□□□123

例3．如果將格式串改為： “（I3，I5.4，I7.5）”則輸出：□10-0012□□00123

例4．如果L=123456□10-0012□123456

！！Iw.m：m<位數(shù)，則按照實際數(shù)輸出例2．在上例中，如果J=-100，則結(jié)果為：7

例5．

如下表所示：數(shù)據(jù) 格式 輸出結(jié)果-150 I5 □-1501234 I6.5 □012344357 I7.3 □□□4357-2468 I4 ****注意：利用I編輯符輸出時，應(yīng)注意選擇的w的值不能太小，以免出現(xiàn)字段寬度不夠現(xiàn)象。一般選擇w稍大一些。例5．

如下表所示：注意：利用I編輯符輸出時，8例6．如將上例1中的格式串修改為

print“(2I3，I4)”,i,j,k則輸出結(jié)果會變?yōu)椋?□10-12□123例6．如將上例1中的格式串修改為92．I編輯符控制輸入：

[r]Iww—控制數(shù)據(jù)所占的列數(shù)。w個字符只能是數(shù)字，正、負號和空格。

w>位數(shù)，則在左邊用0補齊，使寬度為w；若w<位數(shù)，則前面的w個有效。輸入時空格按0處理。2．I編輯符控制輸入：10例7．READ（*，‘(I4,I5)’）I，J

輸入數(shù)據(jù)如下： □345□□415

輸入數(shù)據(jù)后按回車鍵，則I=345，J=415例7．READ（*，‘(I4,I5)’）I，J11例8．程序如下：

READ（*，‘（I3，I3，I3）’）I，J，K

?。∽⒁飧袷酱氖褂没?READ（*，‘（3I3）’）I，J，K如I=14，J=-25，K=234，按格式‘（I2，I4，I4）’輸入則應(yīng)為：14□-25□234例8．程序如下：12輸入數(shù)據(jù)格式結(jié)果說明－867I4－867負號記入w內(nèi)543□I45430空格按0處理□210I4210左端空格無意義23456I42345取前4位，多余無效例9．如下表所示：輸入數(shù)據(jù)格式結(jié)果說明－867I4－867負號記入w內(nèi)5413例10．

PROGRAMMAINWRITE（*，*）‘INPUTM=？’

READ（*，‘（I5）’）MWRITE（*，‘（A，I5）’）‘M=’，M!!A表示該位置輸出字符

N=M/10WRITE(*,‘(A,I6,A,I3)’)‘N=’,N,‘M=’,MEND例10．14運行結(jié)果：

INPUTM=？!!輸入數(shù)據(jù)4000 M=□4000 N=□□□400□M=***運行結(jié)果：151．編輯符格式

[r]Fw.d將數(shù)據(jù)按小數(shù)形式輸出

[r]Ew.d將數(shù)據(jù)按指數(shù)形式輸出

[r]Gw.d根據(jù)數(shù)據(jù)大小決定采用E或F格式

r—重復(fù)系數(shù)

w—字段寬度（總寬度）

d—小數(shù)部分寬度§4.2實型數(shù)的輸入輸出1．編輯符格式§4.2實型數(shù)的輸入輸出16功能：用于實數(shù)編輯，小數(shù)形式的輸出(定點數(shù)：單精度實數(shù)，4個字節(jié)，7個有效數(shù)字)當實型數(shù)值小于0.0（負數(shù)）時，則w>=n+d+2當實型數(shù)值大于或等于0.0時，則w>=n+d+1用此來確定w的寬度F編輯符[r]Fw.d功能：用于實數(shù)編輯，小數(shù)形式的輸出(定點數(shù)：單精度實171）實數(shù)的輸入（三種方式）設(shè)a=1.2；b=45.67；c=-8.3527READ（*，’(F4.1,2F10.6)’）A，B，C（1）□□12□□4567□□□□□□-83527□□

！！不帶小數(shù)點

按w截取數(shù)據(jù)，由d決定小數(shù)點的位置，按右對齊，空格當01）實數(shù)的輸入（三種方式）18（2）□1.2□□□□□45.67□□□-8.3527

??！帶小數(shù)點

帶小數(shù)點，d不起作用，小數(shù)點記入w中（3）1.2，45.67，-8.3527（表控格式）

用自由格式，逗號分隔，每個字段長度必須<=wREAD（*，’(F4.1,2F10.6)’）A，B，C（2）□1.2□□□□□45.67□□□-8.3527 RE19如：□□256F5.1 25.6□256□ F5.1 256.0

注意：d可以為0，但不能省略。如下表所示：輸入數(shù)據(jù)格式說明結(jié)果□56787F6.2567.8712345F5.012345□314.5F6.2314.5□-12.5F6.2-12.5如：□□256F5.1 25.620注意：1．對于輸入語句，當輸入字段中不含小數(shù)點時，按右對齊先滿足小數(shù)要求，剩余部分作為整數(shù)。2．小數(shù)點在記錄的字段中出現(xiàn)，則以小數(shù)點為準讀入數(shù)據(jù)，并賦給所要求的變量，其編輯符中的d不起作用。3．當輸入記錄為單精度或雙精度指數(shù)形式，則轉(zhuǎn)為定點數(shù)形式賦值，字段的寬度不能超過給定寬度。注意：212）實數(shù)輸出：例：X=25.6 Y=-378.452 Z=873.2WRITE（*，’(F5.1,2F8.2)’）X，Y，Z結(jié)果：□25.6□-378.45□□873.202）實數(shù)輸出：22注意：1．

w包括數(shù)符和小數(shù)點的兩位2．

若數(shù)據(jù)小于w位，則左邊補空格3．

輸出的值時舍入，而不是截斷例：REAL*4::G，H，E，RG=12345.678;H=12345678.;E=-4.56E+1;R=-356.WRITE（*，’(4F8.2)’）G，H，E，RWRITE（*，’(4F10.1)’）G，H，E，REND注意：23結(jié)果：12345.68！！舍入，取2位小數(shù)********?。∷o描述符整數(shù)位不夠-45.60??！輸入時不帶小數(shù)點，小數(shù)點不占寬度-365.00！！輸出時小數(shù)點一定占寬度□□123456.712345678.0□□□□□-45.6□□□□-365.0說明：優(yōu)點，輸入時準備數(shù)據(jù)方便，和數(shù)學中實數(shù)的寫法相同，輸出時，數(shù)據(jù)便于閱讀。

缺點，必須預(yù)先知道輸出數(shù)據(jù)的范圍。結(jié)果：24Ew.d格式：數(shù)符+0+小數(shù)點+小數(shù)部分+E+符號+指數(shù)部分2位

3d4指數(shù)部分寬度固定4列，w>=d+3+4優(yōu)點：不必事先估計數(shù)的大小，能容納任意大小的數(shù)據(jù)。Ew.dEee—指定指數(shù)的寬度E編輯符Ew.dE編輯符25例：用E格式輸入A=103.6×10-5 B=3598.45×10-8

C=-67.24×102READ（*，100）A，B，C100FORMAT（E8.2，E12.4，E10.3）（1）

10360E-5359845□□E-8□□□-6724□E2

（2）

103.6E-5□3598.45E-8□□□-67.24E2

（3）

103.6E-5，3598.45E-8，-67.24E2例：用E格式輸入26例：用E格式輸出數(shù)據(jù)

X=-84.31 Y=3.141592 Z=0.0187WRITE（*，200）X，Y，Z200 FORMAT（E10.3，E13.6，E15.6）結(jié)果：

-0.843E+02□0.314159E+01□□□0.187000E-01例：用E格式輸出數(shù)據(jù)27規(guī)則：

1．w>d+7數(shù)據(jù)右對齊，左邊用空格填滿w位若w<d+7則顯示w個*，出錯。2．尾數(shù)部分正號省，負號則打印，記入w內(nèi)3．尾數(shù)位數(shù)>d四舍五入取d位尾數(shù)位數(shù)<d其后用0補齊注意：一般格式E16.7 7+7+2（2個空格，以便閱讀）規(guī)則：28功能：根據(jù)輸出實數(shù)大小決定用F或E格式輸出。較大或較小，自動按E格式Gw.d條件：1.abs（A）<0.1 2.abs（A）>10d

使用E格式輸入輸出條件：10d>abs（A）>=0.1

使用F格式輸入輸出G編輯符功能：G編輯符29A=758321.6G14.7 ABS（A）<107

用F格式 □□758321.6□□□□A=75.83216E+06 ABS（A）>107

用E格式□0.7583216E+08注意：采用F格式，d為全部數(shù)字的位數(shù)優(yōu)先滿足整數(shù)位A=758321.6G14.7 ABS（A）<1030輸入復(fù)數(shù)，用2Fw.d或‘（Fw.d，F(xiàn)w.d）’如：（F8.3，F(xiàn)5.2）1.3456，37.56 （1.3456，37.56）5768D-1，2.5E3 （0.577，2500.00） ！！無小數(shù)點，則認為時5.678*0.1§4.3復(fù)型數(shù)的輸入輸出輸入復(fù)數(shù)，用2Fw.d或‘（Fw.d，F(xiàn)w.d）’§4.331格式：rLw功能：邏輯值的輸入輸出規(guī)則：

輸出一個字母，在字段最右段，前面補空格輸入時按寬度讀取，以第一個字母作為邏輯值§4.4邏輯型數(shù)的輸入輸出格式：rLw§4.4邏輯型數(shù)的輸入輸出32格式1：[r]Aw1．字符型數(shù)據(jù)的輸入字符變量的長度L對格式起一定的作用

若w>L，僅保留右邊的L個字符 若w<L，右邊加L-w個空格例： CHARATERX*4，Y*10 READ（*，100）X，Y100FORMAT（A5，A7）

END輸入：BASICFORTRAN§4.5字符型數(shù)據(jù)的輸入輸出格式1：[r]Aw§4.5字符型數(shù)據(jù)的輸入輸出33結(jié)果：X=’ASIC’Y=’FORTRAN□□□’2.字符變量的輸出，輸出形式要有w個字符若w<L輸出左邊w個字符若w>L右對齊，左邊補w-L個空格

CHARATERX*4，Y*10X=’BASIC’Y=’FORTRAN’WRITE（*，’(A7,2X,A4)’）X，YEND結(jié)果：X=’ASIC’34輸出：□□□BASI□□FORT A72XA4格式2：ACHARATER*5A，B，CREAD（*，’(A,A,A)’）A，B，C WRITE（*，’(A,2X,A,2X,A)’）A，B，C END

輸入：ABC□DBASICFORMAT

結(jié)果：ABC□D□□BASIC□□FORMA輸出：□□□BASI□□FORT35例：如下表所示輸入：變量長度輸入串編輯符接收值說明4ABCDEFA6CDEF保留左邊4個5AB□CDA5AB□CD

6ABCDEA3ABC□□□右邊補3個空格7FORTRANAFORTRANW=7例：如下表所示輸入：變量長度輸入串編輯符接收值說明4ABCD36輸出：變量長度變量值編輯符輸出值說明6FORMATA2FO

5BASICA5BASIC

3NEWA6□□□NEW

7FORTRANAFORTRAN

輸出：變量長度變量值編輯符輸出值說明6FORMATA2FO

37格式：Dw.d數(shù)符+0+小數(shù)點+小數(shù)部分+E+符號+指數(shù)部分4位

3d6方法同E格式雙精度數(shù)有16位有效數(shù)字，則一般采用D27.16格式（9+16+2）§4.6雙精度數(shù)的輸入輸出格式：§4.6雙精度數(shù)的輸入輸出38注意：對于字符型數(shù)據(jù)的輸入：

1、在表控格式輸入的時候，輸入的字符串可以加上撇號，也可省略，撇號不起作用。

2、在有格式輸入的時候，輸入的字符串的時候不需要加上撇號，如果輸入帶撇號，則撇號算入W寬度。

注意：39一）X編輯描述符功能1：在輸出時產(chǎn)生空格

1．不需變量對應(yīng) 2.是不可重復(fù)的編輯符

nX

n<0左移光標n>0右移光標

K=123 L=2001 A=34.5 WRITE（*，’(I3,I4,F4.1)’）K，L，A

結(jié)果：123200134.5§4.7其他格式編輯符一）X編輯描述符§4.7其他格式編輯符40將格式串改為：‘（I3，2X，I4，3X，F(xiàn)4.1）’ !!X表示空格結(jié)果：123□□2001□□□34.5功能2：輸入時，表示跳過n個字符

READ（*，’(2X,F7.1)’）A

輸入：1234.51 A=34.51 ?。?2跳過將格式串改為：41二）其他編輯描述符1．撇號編輯符功能：輸入所需的字符串，描述字符串常量。2．H編輯符:描述字符串

nH<字符串>注意：1.N必定等于字符串長度，否則編譯出錯

2.字符串中空格有意義二）其他編輯描述符42

X=45.7 Y=289.7 WRITE（*，100）X，Y100FORMAT（2HX=，F(xiàn)5.1，4H□□Y=，F(xiàn)6.2）

END

結(jié)果：X=□45.7□□Y=289.70也可FORMAT（‘X=’，F(xiàn)5.1，‘□□Y=’，F(xiàn)6.2） X=45.7433．斜杠編輯描述符作用：結(jié)束本記錄的輸出并開始下一個記錄的輸出WRITE（*，’(5HABCDE,/,5HBCDEF,/,1X,5HCDEFG)’）結(jié)果如下所示：□ABCDEBCDEF□CDEFG注意：1.如兩個連續(xù)斜杠，在輸完前面記錄后，空一行再輸出

2.如在編輯符的最后出現(xiàn)一個斜杠在輸出完記錄后，再輸出一個空行3．斜杠編輯描述符44例：

WRITE（*，”（’XYZ’,’ABC’）”）

WRITE(*,”(’XYZ’,/,’ABC’)”) END

結(jié)果：XYZABCXYZABC例：45又如：改用格式串:“(’XYZ’,/1X,’ABC’)”XYZ□ABC改用格式串“（‘XYZ‘///1X，’ABC‘）”XYZ<空兩行>□ABC4．冒號編輯符

作用：結(jié)束前一個編輯符的功能。又如：4．冒號編輯符461．

變量個數(shù)A和編輯符個數(shù)B、類型上一一對應(yīng)，與X，H無關(guān)系A(chǔ)<B

則多余的編輯符不起作用A>B

多次重復(fù)使用格式說明，產(chǎn)生一個新的記錄Write語句和Format語句的相互作用1．

變量個數(shù)A和編輯符個數(shù)B、類型上一一對應(yīng)，與X，H無47例： READ（*，100）A，B，CFORMAT（10F8.3）

多出7個F8.3不用，不影響語句的執(zhí)行例： WRITE（*，100）IFORMAT（‘I=‘）

輸出I=，永不停止，原因是漏寫了I4編輯符例： READ（*，100）A，B，C482．用空格式語句來輸出一個空行，如：FORMAT（）此時，WRITE語句不應(yīng)有變量輸出3．遇到右括號或斜杠‘/‘編輯符，表示結(jié)束本記錄的輸出，但不意味著停止全部輸出，只要輸出列表中還有未輸出變量，將重復(fù)使用格式說明或斜杠右邊的格式說明組織輸出。4．FORMAT語句和WRITE語句的位置可以相鄰，也可在程序的任何一個地方。5．用表控格式輸出時，在WRITE語句中的輸出項可以包含字符串但在輸出時用到FORMAT語句，則不能再包含字符串，否則必須加以說明。2．用空格式語句來輸出一個空行，如：FORMAT（）49QUESTION？？？50QUESTION？？？50第四章數(shù)據(jù)的輸入與輸出4.1整型數(shù)的輸入輸出4.2實型數(shù)的輸入輸出4.3復(fù)型數(shù)的輸入輸出4.4邏輯型數(shù)的輸入輸出4.5字符型數(shù)據(jù)的輸入輸出4.6雙精度數(shù)的輸入輸出4.7其他格式編輯符第四章數(shù)據(jù)的輸入與輸出4.1整型數(shù)的輸入輸出51輸入輸出的三種不同的格式：1．表控格式的輸入輸出2．有格式的輸入輸出3．無格式的輸入輸出要素：1．在什么外部設(shè)備上輸入或輸出2．用什么格式輸入輸出3．輸入輸出哪些數(shù)據(jù)輸入與輸出編輯符輸入輸出的三種不同的格式：輸入與輸出編輯符52常用輸入設(shè)備：鍵盤、卡片機、磁盤常用輸出設(shè)備：顯示器、打印機、磁盤如：READ（*，*）XWRITE（*，*）X一般形式：READ(<設(shè)備號>,<格式說明>)<輸入表>READ<格式說明>,<輸入表>WRITE(<設(shè)備號>,<格式說明>)<輸出表>PRINT<格式說明>,<輸出表>格式說明：*、格式字符表達式作用：精確地說明每一個數(shù)據(jù)應(yīng)該怎樣輸入或輸出，包括類型、小數(shù)點位置、有效位數(shù)、輸出結(jié)果的形式常用輸入設(shè)備：鍵盤、卡片機、磁盤531．I編輯符控制輸出：功能：用于整型數(shù)據(jù)的輸入輸出格式： Iw Iw.m rIw w—輸入輸出數(shù)據(jù)字段寬度

m—無符號整數(shù)，表示數(shù)據(jù)輸出時最小含有的位數(shù)，它不包括符號位。

在輸出時，m>位數(shù)，則在整數(shù)之前補0，使寬度為m；若m<位數(shù)，則按照實際數(shù)輸出結(jié)果。 r—為重復(fù)系數(shù)§4.1整型數(shù)的輸入輸出1．I編輯符控制輸出：§4.1整型數(shù)的輸入輸出54

例1．設(shè)

J=10，K=-12，L=123

WRITE(*,

‘(I3，I5，I7)’)J,K,L□10□□-12□□□□123例1．設(shè)

J=10，K=-12，L=123□55注意：

1．數(shù)字在指定的區(qū)域內(nèi)右端對齊，不足w則左邊補空格。

2．負數(shù)的符號也包含在字段寬度內(nèi)。

3．如果應(yīng)輸出的列數(shù)超過了規(guī)定的字段寬度，則不輸出有效數(shù)據(jù)，以w個*填充。注意：56

例2．在上例中，如果

J=-100，則結(jié)果為：***□□-12□□□□123

例3．如果將格式串改為： “（I3，I5.4，I7.5）”則輸出：□10-0012□□00123

例4．如果L=123456□10-0012□123456

??！Iw.m：m<位數(shù)，則按照實際數(shù)輸出例2．在上例中，如果J=-100，則結(jié)果為：57

例5．

如下表所示：數(shù)據(jù) 格式 輸出結(jié)果-150 I5 □-1501234 I6.5 □012344357 I7.3 □□□4357-2468 I4 ****注意：利用I編輯符輸出時，應(yīng)注意選擇的w的值不能太小，以免出現(xiàn)字段寬度不夠現(xiàn)象。一般選擇w稍大一些。例5．

如下表所示：注意：利用I編輯符輸出時，58例6．如將上例1中的格式串修改為

print“(2I3，I4)”,i,j,k則輸出結(jié)果會變?yōu)椋?□10-12□123例6．如將上例1中的格式串修改為592．I編輯符控制輸入：

[r]Iww—控制數(shù)據(jù)所占的列數(shù)。w個字符只能是數(shù)字，正、負號和空格。

w>位數(shù)，則在左邊用0補齊，使寬度為w；若w<位數(shù)，則前面的w個有效。輸入時空格按0處理。2．I編輯符控制輸入：60例7．READ（*，‘(I4,I5)’）I，J

輸入數(shù)據(jù)如下： □345□□415

輸入數(shù)據(jù)后按回車鍵，則I=345，J=415例7．READ（*，‘(I4,I5)’）I，J61例8．程序如下：

READ（*，‘（I3，I3，I3）’）I，J，K

！！注意格式串的使用或 READ（*，‘（3I3）’）I，J，K如I=14，J=-25，K=234，按格式‘（I2，I4，I4）’輸入則應(yīng)為：14□-25□234例8．程序如下：62輸入數(shù)據(jù)格式結(jié)果說明－867I4－867負號記入w內(nèi)543□I45430空格按0處理□210I4210左端空格無意義23456I42345取前4位，多余無效例9．如下表所示：輸入數(shù)據(jù)格式結(jié)果說明－867I4－867負號記入w內(nèi)5463例10．

PROGRAMMAINWRITE（*，*）‘INPUTM=？’

READ（*，‘（I5）’）MWRITE（*，‘（A，I5）’）‘M=’，M!!A表示該位置輸出字符

N=M/10WRITE(*,‘(A,I6,A,I3)’)‘N=’,N,‘M=’,MEND例10．64運行結(jié)果：

INPUTM=？!!輸入數(shù)據(jù)4000 M=□4000 N=□□□400□M=***運行結(jié)果：651．編輯符格式

[r]Fw.d將數(shù)據(jù)按小數(shù)形式輸出

[r]Ew.d將數(shù)據(jù)按指數(shù)形式輸出

[r]Gw.d根據(jù)數(shù)據(jù)大小決定采用E或F格式

r—重復(fù)系數(shù)

w—字段寬度（總寬度）

d—小數(shù)部分寬度§4.2實型數(shù)的輸入輸出1．編輯符格式§4.2實型數(shù)的輸入輸出66功能：用于實數(shù)編輯，小數(shù)形式的輸出(定點數(shù)：單精度實數(shù)，4個字節(jié)，7個有效數(shù)字)當實型數(shù)值小于0.0（負數(shù)）時，則w>=n+d+2當實型數(shù)值大于或等于0.0時，則w>=n+d+1用此來確定w的寬度F編輯符[r]Fw.d功能：用于實數(shù)編輯，小數(shù)形式的輸出(定點數(shù)：單精度實671）實數(shù)的輸入（三種方式）設(shè)a=1.2；b=45.67；c=-8.3527READ（*，’(F4.1,2F10.6)’）A，B，C（1）□□12□□4567□□□□□□-83527□□

??！不帶小數(shù)點

按w截取數(shù)據(jù)，由d決定小數(shù)點的位置，按右對齊，空格當01）實數(shù)的輸入（三種方式）68（2）□1.2□□□□□45.67□□□-8.3527

??！帶小數(shù)點

帶小數(shù)點，d不起作用，小數(shù)點記入w中（3）1.2，45.67，-8.3527（表控格式）

用自由格式，逗號分隔，每個字段長度必須<=wREAD（*，’(F4.1,2F10.6)’）A，B，C（2）□1.2□□□□□45.67□□□-8.3527 RE69如：□□256F5.1 25.6□256□ F5.1 256.0

注意：d可以為0，但不能省略。如下表所示：輸入數(shù)據(jù)格式說明結(jié)果□56787F6.2567.8712345F5.012345□314.5F6.2314.5□-12.5F6.2-12.5如：□□256F5.1 25.670注意：1．對于輸入語句，當輸入字段中不含小數(shù)點時，按右對齊先滿足小數(shù)要求，剩余部分作為整數(shù)。2．小數(shù)點在記錄的字段中出現(xiàn)，則以小數(shù)點為準讀入數(shù)據(jù)，并賦給所要求的變量，其編輯符中的d不起作用。3．當輸入記錄為單精度或雙精度指數(shù)形式，則轉(zhuǎn)為定點數(shù)形式賦值，字段的寬度不能超過給定寬度。注意：712）實數(shù)輸出：例：X=25.6 Y=-378.452 Z=873.2WRITE（*，’(F5.1,2F8.2)’）X，Y，Z結(jié)果：□25.6□-378.45□□873.202）實數(shù)輸出：72注意：1．

w包括數(shù)符和小數(shù)點的兩位2．

若數(shù)據(jù)小于w位，則左邊補空格3．

輸出的值時舍入，而不是截斷例：REAL*4::G，H，E，RG=12345.678;H=12345678.;E=-4.56E+1;R=-356.WRITE（*，’(4F8.2)’）G，H，E，RWRITE（*，’(4F10.1)’）G，H，E，REND注意：73結(jié)果：12345.68！！舍入，取2位小數(shù)********?。∷o描述符整數(shù)位不夠-45.60??！輸入時不帶小數(shù)點，小數(shù)點不占寬度-365.00！！輸出時小數(shù)點一定占寬度□□123456.712345678.0□□□□□-45.6□□□□-365.0說明：優(yōu)點，輸入時準備數(shù)據(jù)方便，和數(shù)學中實數(shù)的寫法相同，輸出時，數(shù)據(jù)便于閱讀。

缺點，必須預(yù)先知道輸出數(shù)據(jù)的范圍。結(jié)果：74Ew.d格式：數(shù)符+0+小數(shù)點+小數(shù)部分+E+符號+指數(shù)部分2位

3d4指數(shù)部分寬度固定4列，w>=d+3+4優(yōu)點：不必事先估計數(shù)的大小，能容納任意大小的數(shù)據(jù)。Ew.dEee—指定指數(shù)的寬度E編輯符Ew.dE編輯符75例：用E格式輸入A=103.6×10-5 B=3598.45×10-8

C=-67.24×102READ（*，100）A，B，C100FORMAT（E8.2，E12.4，E10.3）（1）

10360E-5359845□□E-8□□□-6724□E2

（2）

103.6E-5□3598.45E-8□□□-67.24E2

（3）

103.6E-5，3598.45E-8，-67.24E2例：用E格式輸入76例：用E格式輸出數(shù)據(jù)

X=-84.31 Y=3.141592 Z=0.0187WRITE（*，200）X，Y，Z200 FORMAT（E10.3，E13.6，E15.6）結(jié)果：

-0.843E+02□0.314159E+01□□□0.187000E-01例：用E格式輸出數(shù)據(jù)77規(guī)則：

1．w>d+7數(shù)據(jù)右對齊，左邊用空格填滿w位若w<d+7則顯示w個*，出錯。2．尾數(shù)部分正號省，負號則打印，記入w內(nèi)3．尾數(shù)位數(shù)>d四舍五入取d位尾數(shù)位數(shù)<d其后用0補齊注意：一般格式E16.7 7+7+2（2個空格，以便閱讀）規(guī)則：78功能：根據(jù)輸出實數(shù)大小決定用F或E格式輸出。較大或較小，自動按E格式Gw.d條件：1.abs（A）<0.1 2.abs（A）>10d

使用E格式輸入輸出條件：10d>abs（A）>=0.1

使用F格式輸入輸出G編輯符功能：G編輯符79A=758321.6G14.7 ABS（A）<107

用F格式 □□758321.6□□□□A=75.83216E+06 ABS（A）>107

用E格式□0.7583216E+08注意：采用F格式，d為全部數(shù)字的位數(shù)優(yōu)先滿足整數(shù)位A=758321.6G14.7 ABS（A）<1080輸入復(fù)數(shù)，用2Fw.d或‘（Fw.d，F(xiàn)w.d）’如：（F8.3，F(xiàn)5.2）1.3456，37.56 （1.3456，37.56）5768D-1，2.5E3 （0.577，2500.00） ?。o小數(shù)點，則認為時5.678*0.1§4.3復(fù)型數(shù)的輸入輸出輸入復(fù)數(shù)，用2Fw.d或‘（Fw.d，F(xiàn)w.d）’§4.381格式：rLw功能：邏輯值的輸入輸出規(guī)則：

輸出一個字母，在字段最右段，前面補空格輸入時按寬度讀取，以第一個字母作為邏輯值§4.4邏輯型數(shù)的輸入輸出格式：rLw§4.4邏輯型數(shù)的輸入輸出82格式1：[r]Aw1．字符型數(shù)據(jù)的輸入字符變量的長度L對格式起一定的作用

若w>L，僅保留右邊的L個字符 若w<L，右邊加L-w個空格例： CHARATERX*4，Y*10 READ（*，100）X，Y100FORMAT（A5，A7）

END輸入：BASICFORTRAN§4.5字符型數(shù)據(jù)的輸入輸出格式1：[r]Aw§4.5字符型數(shù)據(jù)的輸入輸出83結(jié)果：X=’ASIC’Y=’FORTRAN□□□’2.字符變量的輸出，輸出形式要有w個字符若w<L輸出左邊w個字符若w>L右對齊，左邊補w-L個空格

CHARATERX*4，Y*10X=’BASIC’Y=’FORTRAN’WRITE（*，’(A7,2X,A4)’）X，YEND結(jié)果：X=’ASIC’84輸出：□□□BASI□□FORT A72XA4格式2：ACHARATER*5A，B，CREAD（*，’(A,A,A)’）A，B，C WRITE（*，’(A,2X,A,2X,A)’）A，B，C END

輸入：ABC□DBASICFORMAT

結(jié)果：ABC□D□□BASIC□□FORMA輸出：□□□BASI□□FORT85例：如下表所示輸入：變量長度輸入串編輯符接收值說明4ABCDEFA6CDEF保留左邊4個5AB□CDA5AB□CD

6ABCDEA3ABC□□□右邊補3個空格7FORTRANAFORTRANW=7例：如下表所示輸入：變量長度輸入串編輯符接收值說明4ABCD86輸出：變量長度變量值編輯符輸出值說明6FORMATA2FO

5BASICA5BASIC

3NEWA6□□□NEW

7FORTRANAFORTRAN

輸出：變量長度變量值編輯符輸出值說明6FORMATA2FO

87格式：Dw.d數(shù)符+0+小數(shù)點+小數(shù)部分+E+符號+指數(shù)部分4位

3d6方法同E格式雙精度數(shù)有16位有效數(shù)字，則一般采用D27.16格式（9+16+2）§4.6雙精度數(shù)的輸入輸出格式：§4.6雙精度數(shù)的輸入輸出88注意：對于字符型數(shù)據(jù)的輸入：

1、在表控格式輸入的時候，輸入的字符串可以加上撇號，也可省略，撇號不起作用。

2、在有格式輸入的時候，輸入的字符串的時候不需要加上撇號，如果輸入帶撇號，則撇號算入W寬度。

注意：89一）X編輯