数据有格式输入输出

1、第八讲第八讲 数据有格式输入、输出数据有格式输入、输出第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.1 8.1 数据有格式输入输出概述数据有格式输入输出概述8.1 8.1 数据有格式输入输出概述数据有格式输入输出概述l输入输出数据是否输入输出数据是否简洁简洁、直观直观、醒目醒目、规范规范, ,是反映程序质量的一项重要指标。是反映程序质量的一项重要指标。l示例示例: :某程序需输入某程序需输入3 3个学生个学生4 4门课成绩数据门课成绩数据, ,共输入共输入1212个数据个数据, ,有两种输入方式：有两种输入方式： 78.5 85 58 98 75 88.5 99 45.5 84.5

2、 69.5 77 8278.5 85 58 98 75 88.5 99 45.5 84.5 69.5 77 82 数学数学 物理物理 化学化学 英语英语 输入第输入第1 1位同学四门课成绩：位同学四门课成绩：78.5 85.0 58.0 98.078.5 85.0 58.0 98.0 输入第输入第2 2位同学四门课成绩位同学四门课成绩: 75.0 88.5 99.0 45.5: 75.0 88.5 99.0 45.5 输入第输入第3 3位同学四门课成绩位同学四门课成绩: 84.5 69.5 77.0 82.0: 84.5 69.5 77.0 82.0l示例示例: :某程序要输出某程序要输出3

3、3个学生个学生4 4门课成绩数据门课成绩数据, ,共输出共输出1212个数据个数据, ,有两种输出方式：有两种输出方式： 78.50000 85.00000 58.00000 98.00000 75.00000 78.50000 85.00000 58.00000 98.00000 75.00000 88.50000 99.00000 45.50000 84.50000 69.50000 88.50000 99.00000 45.50000 84.50000 69.50000 77.00000 82.00000 77.00000 82.00000 数学数学 物理物理 化学化学 英语英语 第第1

4、 1位同学成绩位同学成绩: 78.5 85.0 58.0 98.0: 78.5 85.0 58.0 98.0 第第2 2位同学成绩位同学成绩: 75.0 88.5 99.0 45.5: 75.0 88.5 99.0 45.5 第第3 3位同学成绩位同学成绩: 84.5 69.5 77.0 82.0: 84.5 69.5 77.0 82.0输入分类输入分类输入提示输入提示简洁直观简洁直观醒目规范醒目规范第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.2 8.2 格式说明与格式编辑符格式说明与格式编辑符 READ( READ(* *,100) m,n,100) m,n WRITE( WR

5、ITE(* *,200) m+n,m-n,200) m+n,m-n 100 FORMAT(I3,I3) 100 FORMAT(I3,I3) 200 FORMAT(1X,m+n=,I4,m-n=,I4) 200 FORMAT(1X,m+n=,I4,m-n=,I4) END END READ( READ(* *,(I3,I3),(I3,I3) ) m,n) m,n WRITE( WRITE(* *,(1X,(1X,m+n=,I4,m-n=,I4)m+n=,I4,m-n=,I4) ) ) m+n,m-nm+n,m-n END END 输入：输入：987432987432。 输出：输出：m+n=141

6、9m-n=m+n=1419m-n=555555。示例示例格式说明格式说明编辑符编辑符8.2 8.2 格式说明与格式编辑符格式说明与格式编辑符第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.28.2格式说明与格式编辑符格式说明与格式编辑符/ /格式说明格式说明l数据有格式输入输出需要给出相关的格式说明。数据有格式输入输出需要给出相关的格式说明。lFORMATFORMAT语句提供输入输出数据的格式说明信息。语句提供输入输出数据的格式说明信息。lFORMATFORMAT语句既不是执行语句语句既不是执行语句, ,也不是说明语句。也不是说明语句。lFORMATFORMAT语句可出现在说明语句之

7、后语句可出现在说明语句之后,END,END语句之前任何位置。语句之前任何位置。l格式说明表是关键字格式说明表是关键字FORMATFORMAT之后的括号部分。之后的括号部分。l格式说明表由若干格式编辑符组成，编辑符由格式说明表由若干格式编辑符组成，编辑符由“,”,”分隔。分隔。l格式说明表可嵌入到输入输出语句中，取代格式说明表可嵌入到输入输出语句中，取代FORMATFORMAT语句。语句。l格式说明一般使用格式说明一般使用FORMATFORMAT语句，简单格式使用嵌入方式。语句，简单格式使用嵌入方式。lFORMATFORMAT语句语法描述：语句语法描述： FORMAT FORMAT FORMAT

8、 (,/,/)8.2 8.2 格式说明与格式编辑符格式说明与格式编辑符示例示例格式说明格式说明编辑符编辑符第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.28.2格式说明与格式编辑符格式说明与格式编辑符/ /编辑符编辑符lFORTRAN 90FORTRAN 90提供了提供了2424个格式编辑符，如：个格式编辑符，如：I I、F F、E E、A A等。等。l格式编辑符分为两类：格式编辑符分为两类：可重复编辑符可重复编辑符、不可重复编辑符不可重复编辑符。 l可重复编辑符可重复编辑符可指定重复系数可指定重复系数, ,与与I/OI/O表中的一个表中的一个I/OI/O项对应。项对应。l不可重复

9、编辑符不可重复编辑符不可指定重复系数不可指定重复系数, ,不与输入输出项相对应。不与输入输出项相对应。 如：如：I I、F F、E E、A A等编辑符为等编辑符为可重复编辑符可重复编辑符。 如：如：X X、Q Q、/ /、 等编辑符为等编辑符为不可重复编辑符不可重复编辑符。 READ(READ(* *,100) num1, num2, price1, price2,100) num1, num2, price1, price2 100 FORMAT(2I3, F7.1, E8.2) 100 FORMAT(2I3, F7.1, E8.2) WRITE( WRITE(* *,200) num1,2

10、00) num1* *price1+num2price1+num2* *price2price2 200 FORMAT(1X,total prices=,E14.7) 200 FORMAT(1X,total prices=,E14.7) END END 输入：输入：1251252195234.57.52E+042195234.57.52E+04。 输出：输出：total prices=total prices=1.3483512E+071.3483512E+07。8.2 8.2 格式说明与格式编辑符格式说明与格式编辑符示例示例格式说明格式说明编辑符编辑符第八讲第八讲 数据有格式输入、输出数据有

11、格式输入、输出表表6-1 可重复编辑符可重复编辑符 格式格式 名称名称 功能功能 输入输入 输出输出 rIm.nrIm.n 整型编辑符整型编辑符 将整数按指定域宽输入输出将整数按指定域宽输入输出 rBm.nrBm.n 二进制编辑符二进制编辑符 将将2 2进制数按指定域宽输入输出进制数按指定域宽输入输出 rOm.nrOm.n 八进制编辑符八进制编辑符 将将8 8进制数按指定域宽输入输出进制数按指定域宽输入输出 rZm.nrZm.n 16 16进制编辑符进制编辑符 将将1616进制数按指定域宽输入输出进制数按指定域宽输入输出 rFm.d rFm.d 小数型实型编辑符小数型实型编辑符 将实数按指定域

12、宽输入输出将实数按指定域宽输入输出 rEm.dEerEm.dEe 指数型实型编辑符指数型实型编辑符 将实数按指定域宽输入输出将实数按指定域宽输入输出 rDm.d rDm.d 双精度实型编辑符双精度实型编辑符 将双精度数按指定域宽输入输出将双精度数按指定域宽输入输出 rENm.dEerENm.dEe 工程计数法编辑符工程计数法编辑符 将实数按工程计数法输入输出将实数按工程计数法输入输出 rESm.dEerESm.dEe 科学计数法编辑符科学计数法编辑符 将实数按科学计数法输入输出将实数按科学计数法输入输出 rAm rAm 字符型编辑符字符型编辑符 将字符串按指定域宽输入输出将字符串按指定域宽输入

13、输出 rLm rLm 逻辑型编辑符逻辑型编辑符 将逻辑值按指定域宽输入输出将逻辑值按指定域宽输入输出 rGm.dEerGm.dEe 通用编辑符通用编辑符 将任意类型数据按域宽输入输出将任意类型数据按域宽输入输出 第八讲第八讲 数据有格式输入、输出数据有格式输入、输出表表6-2 不可重复编辑符不可重复编辑符 格式格式 名称名称 功能功能 输入输入 输出输出 或或“ ” “ ” 撇号编辑符撇号编辑符 将字符串输出将字符串输出 nHnH H H编辑符编辑符 将将H H后后n n个字符输出个字符输出 Q Q 字符计数编辑符字符计数编辑符 获到输入记录中剩余字符数获到输入记录中剩余字符数 Tc, TLc

14、, TRcTc, TLc, TRc 位置编辑符位置编辑符 指定输入输出记录中的位置指定输入输出记录中的位置 nXnX 位置编辑符位置编辑符 指定输入输出记录中的位置指定输入输出记录中的位置 SP, SS, S +SP, SS, S +号编辑符号编辑符 控制控制+ +号输出号输出 / / 斜杠编辑符斜杠编辑符 终止本记录终止本记录, ,开始下一记录开始下一记录 反斜杠编辑符反斜杠编辑符 下一记录接上一记录输出下一记录接上一记录输出 $ $ $编辑符编辑符 下一记录接上一记录输出下一记录接上一记录输出 ： 格式控制编辑符格式控制编辑符 无输出数据终止格式控制无输出数据终止格式控制 kPkP 比例因

15、子编辑符比例因子编辑符 设置设置F F和和E E编辑符指数比例因子编辑符指数比例因子 BN, BZ BN, BZ 空格替代编辑符空格替代编辑符 指定数字串中空格意义指定数字串中空格意义 第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.3 8.3 整数有格式输入输出整数有格式输入输出I I 编辑符可用于整数的有格式输入输出编辑符可用于整数的有格式输入输出, ,一般格式是：一般格式是： rIw.mrIw.m 其中：其中：r r为为I I编辑符重复次数。编辑符重复次数。即：即：rIw.mrIw.m 等价于等价于Iw.m,Iw.mIw.m,Iw.m,Iw.m,Iw.m 。 w w为整数输入输

16、出域宽为整数输入输出域宽, ,即整数占连续字符个数。即整数占连续字符个数。 m m为输出最少位数。为输出最少位数。 .m.m项只对整数输出有效项只对整数输出有效, ,对输入无效。对输入无效。 程序示例：程序示例： INTEGER(2) i,j,kINTEGER(2) i,j,k READ( READ(* *,100) i,j,k,100) i,j,k 10 100 FORMAT(I4,2I5) FORMAT(I4,2I5) ！等价于！等价于FORMAT(I4,I5,I5)FORMAT(I4,I5,I5) WRITE( WRITE(* *,(1X, i+j+k=,I5) i+j+k,(1X, i

17、+j+k=,I5) i+j+k END END格式格式输入输入输出输出8.3 8.3 整数有格式输入输出整数有格式输入输出第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.3 8.3 整数有格式输入输出整数有格式输入输出/ /输入输入l输入数据间可按规定域宽紧密输入输入数据间可按规定域宽紧密输入, ,也可用逗号间隔输入也可用逗号间隔输入, ,不用空格。不用空格。l在域宽内在域宽内, ,数字前后数字前后, ,数字之间可出现空格数字之间可出现空格, ,这些空格这些空格一般一般被视为空。被视为空。 l在域宽内在域宽内, ,全为空格全为空格, ,输入整数为输入整数为0 0。 l在域宽内在域宽内

18、, ,输入数据不能超出范围输入数据不能超出范围, ,不能是非十进制整数。不能是非十进制整数。lI I编辑符要求输入表中对应变量的类型一般是整型编辑符要求输入表中对应变量的类型一般是整型, ,否则会产生错误。否则会产生错误。l示例示例： INTEGER(2) i,j,kINTEGER(2) i,j,k READ( READ(* *,100) i,j,k,100) i,j,k 10 100 FORMAT(I4,2I5) FORMAT(I4,2I5) ！等价于！等价于FORMAT(I4,I5,I5)FORMAT(I4,I5,I5) WRITE( WRITE(* *,(1X, 3I5) i,j,k,(

19、1X, 3I5) i,j,k END END 格式格式输入输入输出输出8.3 8.3 整数有格式输入输出整数有格式输入输出第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.3 8.3 整数有格式输入输出整数有格式输入输出/ /输入输入/ /示例示例l输入数据间可按规定域宽紧密输入输入数据间可按规定域宽紧密输入, ,也可用逗号间隔输入也可用逗号间隔输入, ,不用空格。不用空格。l在域宽内在域宽内, ,数字前后数字前后, ,数字之间可出现空格数字之间可出现空格, ,这些空格这些空格一般一般被视为空。被视为空。 l在域宽内在域宽内, ,全为空格全为空格, ,输入整数为输入整数为0 0。 l在

20、域宽内在域宽内, ,输入数据不能超出范围输入数据不能超出范围, ,不能是非十进制整数。不能是非十进制整数。lI I编辑符要求输入表中对应变量的类型一般是整型编辑符要求输入表中对应变量的类型一般是整型, ,否则会产生错误。否则会产生错误。l示例示例： INTEGER(2) i,j,kINTEGER(2) i,j,k READ 10,i,j,k READ 10,i,j,k 10 10 FORMAT(I4,2I5) FORMAT(I4,2I5) ！等价于！等价于FORMAT(I4,I5,I5)FORMAT(I4,I5,I5) PRINT (1X, i+j+k=,I5),i+j+k PRINT (1X

21、, i+j+k=,I5),i+j+k END END 格式格式输入输入输出输出8.3 8.3 整数有格式输入输出整数有格式输入输出输入数据：输入数据：l 123412345-6789123412345-6789l 12,12345-678912,12345-6789l12,34,12,34,5678956789l1234,1234,5678956789l 1 12 2123123- -7878l 1 1,12,123434- -67896789l 1 1,12,12345-345-67896789l1 12 2- -7878l123454321-6789123454321-6789l 2#11

22、12345-67892#1112345-6789l 1234543.2-67891234543.2-6789i i、j j、k k 值：值：li=1234,j=12345,k=-6789i=1234,j=12345,k=-6789li=12,j=12345,k=-6789i=12,j=12345,k=-6789li=12,j=34,k=5678i=12,j=34,k=5678li=1234,j=0,k=5678i=1234,j=0,k=5678li=12,j=123,k=-78i=12,j=123,k=-78li=1,j=1234,k=-678i=1,j=1234,k=-678l产生数据转换错

23、误产生数据转换错误li=12,j=0,k=-78i=12,j=0,k=-78 l产生数据转换错误产生数据转换错误, ,超出最大范围超出最大范围l产生数据转换错误产生数据转换错误, ,非十进制整数。非十进制整数。l产生数据转换错误产生数据转换错误, ,域宽内为实数域宽内为实数。第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.3 8.3 整数有格式输入输出整数有格式输入输出/ /输出输出l若域宽等于整数位数若域宽等于整数位数, ,则在域宽内输出该整数则在域宽内输出该整数, ,与后一数据无空格间隔。与后一数据无空格间隔。l若域宽大于整数位数若域宽大于整数位数, ,则在域宽内按右对齐输出该整

24、数则在域宽内按右对齐输出该整数, ,前补空格。前补空格。l若域宽小于整数位数若域宽小于整数位数, ,则表明域宽不足则表明域宽不足, ,无法输出数据无法输出数据, ,域宽内填充域宽内填充“* *”。l对于对于Iw.mIw.m格式格式,m,m表示输出最小位数。位数小于表示输出最小位数。位数小于m,m,补前导补前导0 0至至m m位。位。 l示例：示例： Integer I,j,kInteger I,j,k READ(READ(* *, ,* *) i,j,k) i,j,k 200 200 FORMAT(1X, i=,I4, j=,I4, k=,I4) FORMAT(1X, i=,I4, j=,I4

25、, k=,I4) WRITE( WRITE(* *,200) i,j,k,200) i,j,k END END8.3 8.3 整数有格式输入输出整数有格式输入输出输出：输出：l i=1234j=-123k=4567i=1234j=-123k=4567l i= i=10j=10j=- -12k=123412k=1234 l i= i=* * * * *j=j=- -12k=123412k=1234 l i= i=008j=-008j=-012k=1234012k=1234 输入：输入：l1234,-123,4567 1234,-123,4567 l10,-12,123410,-12,1234 l

26、12345,-12,1234 12345,-12,1234 l8,-12,1234 8,-12,1234 格式格式输入输入输出输出第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.4 8.4 实数有格式输入输出实数有格式输入输出F F 编辑符可用于小数型实数的有格式输入输出编辑符可用于小数型实数的有格式输入输出, ,一般格式是：一般格式是： rFw.drFw.d其中：其中：r r为为F F编辑符重复次数。编辑符重复次数。即：即：rFw.drFw.d 等价于等价于Fw.d,Fw.dFw.d,Fw.d, ,Fw.d,Fw.d。 w w为小数型实数输入输出域宽为小数型实数输入输出域宽, ,即

27、实数占连续字符个数。即实数占连续字符个数。 d d为小数位数。对于输入为小数位数。对于输入, ,无小数点无小数点, ,小数点由小数点由d d确定确定, ,有小数有小数点点, ,小数点由域宽内实际位置确定。对于输出小数点由域宽内实际位置确定。对于输出, ,输出数据域输出数据域宽包括一个小数点。宽包括一个小数点。 程序示例：程序示例： READ(READ(* *, ,* *) a,b) a,b WRITE( WRITE(* *,10) a,b,10) a,b 10 FORMAT(1X,a=,F7.3,b=,F7.3) 10 FORMAT(1X,a=,F7.3,b=,F7.3) END END8.4

28、 8.4 实数有格式输入输出实数有格式输入输出格式格式F F输出输出F F格式格式E E输入输入E E输出输出E Eu格式格式D D格式格式ENENu格式格式ESES第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.4 8.4 实数有格式输入输出实数有格式输入输出/ /输出输出F F8.4 8.4 实数有格式输入输出实数有格式输入输出l对正数对正数, ,若若w=t+d+1w=t+d+1, ,对负数对负数, ,若若w=t+d+2w=t+d+2, ,且且d=sd=s, ,则在域宽内输出该实数。则在域宽内输出该实数。l对正数对正数, ,若若w=t+d+1w=t+d+1, ,对负数对负数, ,

29、若若w=t+d+2w=t+d+2, ,且且dsds, ,则在域宽内左对齐输出则在域宽内左对齐输出该实数该实数, ,小数部分后续补小数部分后续补d-sd-s个个0 0。 l对正数对正数, ,若若w=t+d+1w=t+d+1, ,对负数对负数, ,若若w=t+d+2w=t+d+2, ,且且dsdt+d+1wt+d+1, ,对负数对负数, ,若若wt+d+2wt+d+2, ,则在域宽内右对齐输出该实数则在域宽内右对齐输出该实数, ,整数前补整数前补w-(t+d+1)w-(t+d+1)或或w-(t+d+2)w-(t+d+2)个空格个空格, ,小数部分按前面小数部分按前面3 3种情况处理种情况处理, ,

30、占占d d位位 。 l对正数对正数, ,若若wt+d+1wt+d+1, ,对负数对负数, ,若若wt+d+2wtdt, ,则在域宽内左对齐输出该实则在域宽内左对齐输出该实数数, ,小数部分后续补小数部分后续补d-td-t个个0 0。 l对正数对正数, ,若若w=d+5w=d+5, ,对负数对负数, ,若若w=d+6w=d+6, ,且且dtdd+5wd+5, ,对负数对负数, ,若若wd+6wd+6, ,则在域宽内右对齐输出该实数则在域宽内右对齐输出该实数, ,整整数前补数前补w-(d+5)-1w-(d+5)-1或或w-(d+6)-1w-(d+6)-1个空格个空格, ,小数部分按前面小数部分按前

31、面3 3种情况处理。种情况处理。 l对正数对正数, ,若若wd+5wd+5, ,对负数对负数, ,若若wd+6w Setting - Fortran - Project - Setting - Fortran - CompatibilityCompatibility选取选取Enable VMS CompatibilityEnable VMS Compatibility项。项。对于输出到文件的情形，在打开文件的对于输出到文件的情形，在打开文件的OPENOPEN语句中加语句中加上说明项上说明项CARRIAGECONTROL=FORTRANCARRIAGECONTROL=FORTRAN。这时每行记录

32、。这时每行记录的第一个字符被当作控制符，可能产生输出的数字或的第一个字符被当作控制符，可能产生输出的数字或字符被吃掉的情形。另外重叠印刷功能仅对于行式打字符被吃掉的情形。另外重叠印刷功能仅对于行式打印机有效，对于终端和文件的输出其效果是覆盖。印机有效，对于终端和文件的输出其效果是覆盖。问题问题说明说明8.11 8.11 纵向走纸控制纵向走纸控制第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.12 8.12 有格式输入输出应用举例有格式输入输出应用举例8.12 8.12 有格式输入输出应用举例有格式输入输出应用举例问题问题说明说明输入输入3 3个同学个同学4 4门课门课( (数学、物理

33、、化学、英语数学、物理、化学、英语) )成绩成绩, ,统计每个同学总成绩和平均统计每个同学总成绩和平均成绩成绩, ,计算每门课平均成绩计算每门课平均成绩, ,输出每个同学每门课成绩、总成绩和平均成绩输出每个同学每门课成绩、总成绩和平均成绩, ,以及以及数学、物理、化学、英语的平均成绩。数学、物理、化学、英语的平均成绩。 要求按以下格式输入成绩数据：要求按以下格式输入成绩数据： 数学数学 物理物理 化学化学 英语英语 输入第输入第1 1位同学四门课成绩：位同学四门课成绩：78.5 85.0 58.0 98.078.5 85.0 58.0 98.0 输入第输入第2 2位同学四门课成绩：位同学四门课

34、成绩：75.0 88.5 99.0 45.575.0 88.5 99.0 45.5 输入第输入第3 3位同学四门课成绩：位同学四门课成绩：84.5 69.5 77.0 82.084.5 69.5 77.0 82.0要求按以下格式输出有关数据：要求按以下格式输出有关数据： 数学数学 物理物理 化学化学 英语英语 总成绩总成绩 平均成绩平均成绩 第第1 1位同学成绩位同学成绩: 78.5 85.0 58.0 98.0 319.5 79.875: 78.5 85.0 58.0 98.0 319.5 79.875 第第2 2位同学成绩位同学成绩: 75.0 88.5 99.0 45.5 308.0 7

35、7.000: 75.0 88.5 99.0 45.5 308.0 77.000 第第3 3位同学成绩位同学成绩: 84.5 69.5 77.0 82.0 228.5 57.125: 84.5 69.5 77.0 82.0 228.5 57.125 数学平均成绩：数学平均成绩：79.33379.333分分 物理平均成绩：物理平均成绩：81.00081.000分分 化学平均成绩：化学平均成绩：78.00078.000分分 英语平均成绩：英语平均成绩：75.16775.167分分第八讲第八讲 数据有格式输入、输出数据有格式输入、输出8.12 8.12 有格式输入输出应用举例有格式输入输出应用举例/

36、/说明说明8.12 8.12 有格式输入输出应用举例有格式输入输出应用举例使用使用2222个实型变量保存有关数据。设：个实型变量保存有关数据。设：s11,s12,s13,s14s11,s12,s13,s14：分别存放第分别存放第1 1位同学位同学4 4门课成绩。门课成绩。total11,av11total11,av11：分别存放第分别存放第1 1位同学总成绩和平均成绩。位同学总成绩和平均成绩。s21,s22,s23,s24s21,s22,s23,s24：分别存放第分别存放第2 2位同学位同学4 4门课成绩。门课成绩。total21,av21total21,av21：分别存放第分别存放第2 2位

37、同学总成绩和平均成绩。位同学总成绩和平均成绩。s31,s32,s33,s34s31,s32,s33,s34：分别存放第分别存放第3 3位同学位同学4 4门课成绩。门课成绩。total31,av31total31,av31：分别存放第分别存放第3 3位同学总成绩和平均成绩。位同学总成绩和平均成绩。Av1,av2,av3,av4Av1,av2,av3,av4：分别存放数学、物理、化学和英语平均成绩。分别存放数学、物理、化学和英语平均成绩。（程序程序）问题问题说明说明第八讲第八讲 数据有格式输入、输出数据有格式输入、输出有格式输入输出应用程序有格式输入输出应用程序 PROGRAM statistic

38、 PROGRAM statistic WRITE( WRITE(* *,“(26X,“(26X,数学数学 物理物理 化学化学 英语英语)”)”) WRITE( WRITE(* *,“(1X,“(1X,输入第输入第1 1位同学四门课成绩：位同学四门课成绩：,)”),)”) READ( READ(* *, ,* *) s11,s12,s13,s14) s11,s12,s13,s14 WRITE( WRITE(* *,“(1X,“(1X,输入第输入第2 2位同学四门课成绩：位同学四门课成绩：,)”),)”) READ( READ(* *, ,* *) s21,s22,s23,s24) s21,s22

39、,s23,s24 WRITE( WRITE(* *,“(1X,“(1X,输入第输入第3 3位同学四门课成绩：位同学四门课成绩：,)”),)”) READ( READ(* *, ,* *) s31,s32,s33,s34) s31,s32,s33,s34 total11=s11+s12+s13+s14;av11=total11/4 total11=s11+s12+s13+s14;av11=total11/4 total21=s21+s22+s23+s24;av21=total21/4 total21=s21+s22+s23+s24;av21=total21/4 total31=s31+s32+s

40、33+s34;av31=total31/4 total31=s31+s32+s33+s34;av31=total31/4 av1=(s11+s21+s31)/3;av2=(s12+s22+s32)/3 av1=(s11+s21+s31)/3;av2=(s12+s22+s32)/3 av3=(s13+s23+s33)/3;av4=(s14+s24+s34)/3 av3=(s13+s23+s33)/3;av4=(s14+s24+s34)/3 WRITE( WRITE(* *,“(16X,“(16X,数学数学 物理物理 化学化学 英语英语 总成绩总成绩 平均成平均成绩绩)”)”) WRITE( WRITE(* *,200) 1,s11,s12,s13,s14,total11,av11,200) 1,s11,s12,s13,s14,total11,av11