数据的输入输出上课用定稿.pptx

《数据的输入输出上课用定稿.pptx》由会员分享，可在线阅读，更多相关《数据的输入输出上课用定稿.pptx（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1一、格式输出一、格式输出 Fortran规定用指定的规定用指定的“格式编辑符格式编辑符”来实现有格来实现有格式输入输出。式输入输出。1.I编辑符编辑符Iw或或Iw.m（w字宽，字宽，m最少字位）最少字位）write(*,100)100,-30,12100format(1x,i3,i5,i5.4)end format语句为非执行语句，可出现在程序单位语句语句为非执行语句，可出现在程序单位语句（program,function)之后和之后和end语句之前的任何位置。语句之前的任何位置。（但为阅读方便，一般统一放在程序最后）（但为阅读方便，一般统一放在程序最后）输出输出 100-300012用于整

2、型数据的输入输出，用于整型数据的输入输出，Integer第七章 数据的输入、输出第1页/共28页2说明说明：1 1）数字在指定区域内向右靠齐；）数字在指定区域内向右靠齐；2 2）如果输出的列数超过字宽，字宽内充满）如果输出的列数超过字宽，字宽内充满“*”；3 3）m m不包括负号所占列，输出列数超过不包括负号所占列，输出列数超过m m，按实际列输出。按实际列输出。要输出的数要输出的数要输出的数要输出的数编辑符编辑符编辑符编辑符输出结果输出结果输出结果输出结果说明说明说明说明16401640I5I5 16401640左补空格左补空格左补空格左补空格736736I7.4I7.407360736输出

3、输出输出输出4 4 4 4位数字位数字位数字位数字87368736I8.3I8.387368736按数据实际按数据实际按数据实际按数据实际位数输出位数输出位数输出位数输出-67896-67896I5I5*w w w w不够大不够大不够大不够大第2页/共28页32.F编辑符编辑符Fw.d（w字宽，字宽，d小数位数）小数位数）write(*,100)7.42,-194.31,0.12100format(1x,f6.3,f10.2,f4.1)end输出输出 7.420-194.310.1用于实数编辑用于实数编辑，Fixed point number第3页/共28页4说明说明：1 1）小数点占一列，数

4、字在指定区域内向右靠齐；）小数点占一列，数字在指定区域内向右靠齐；2 2）数据的小数部分字宽若小于）数据的小数部分字宽若小于d d则右端补则右端补0 0，大于，大于d d则多出则多出 的下一位按的下一位按“四舍五入四舍五入”处理；处理；3 3）如果输出的列数超过字宽，字宽内充满）如果输出的列数超过字宽，字宽内充满“*”；4 4）容易）容易“大数印错，小数印丢大数印错，小数印丢”。要输出的数要输出的数要输出的数要输出的数编辑符编辑符编辑符编辑符输出结果输出结果输出结果输出结果说明说明说明说明18.518.5F6.2F6.2 18.5018.50第二位小数补第二位小数补第二位小数补第二位小数补0

5、0 0 01875.4781875.478F9.2F9.21875.481875.48多余小数四舍五入多余小数四舍五入多余小数四舍五入多余小数四舍五入-78567.83-78567.83F9.3F9.3*w w w w位数不够位数不够位数不够位数不够0.000678570.000678576 6F10.4F10.40.00070.0007截去了有效数字截去了有效数字截去了有效数字截去了有效数字第4页/共28页53.E编辑符编辑符Ew.d（w字宽，字宽，dE前数字部分小数位数）前数字部分小数位数）write(*,100)7.42,-194.31,0.12100format(1x,e11.3,e1

6、0.2,e8.1)end输出输出.742e+01-.19e+03.1e+00用于实数编辑，以标准指数形式输出，用于实数编辑，以标准指数形式输出，Exponent第5页/共28页6说明说明：1 1）指数部分含）指数部分含e e占占4 4列，数字在指定区域内向右靠齐；列，数字在指定区域内向右靠齐；2 2）小数点及前面的负号各占一列（有的系统还有）小数点及前面的负号各占一列（有的系统还有0 0）；）；3 3）小数部分字宽若小于）小数部分字宽若小于d d则右端补则右端补0 0，大于，大于d d则多出的下一则多出的下一位按位按“四舍五入四舍五入”处理；处理；4 4）如果输出的列数超过字宽，字宽内充满）如

7、果输出的列数超过字宽，字宽内充满“*”；5 5）要有足够字宽。）要有足够字宽。第6页/共28页7要输出的数要输出的数要输出的数要输出的数编辑符编辑符编辑符编辑符输出结果输出结果输出结果输出结果说明说明说明说明123.45123.45E12.4E12.4.1235.1235e+03e+03第第第第5 5 5 5位小数四舍五入位小数四舍五入位小数四舍五入位小数四舍五入-0.005-0.005E11.3E11.3 -.500-.500e-02e-02小数右端补小数右端补小数右端补小数右端补0 0 0 0876.53876.53E8.3E8.3*w w w w不够大不够大不够大不够大7621.2762

8、1.2E15.6EE15.6E3 3.762120.762120e+004e+004指数为三位数指数为三位数指数为三位数指数为三位数 实数输出既可用实数输出既可用F编辑符，也可用编辑符，也可用E编辑符号，但整编辑符号，但整数输出只能用数输出只能用I编辑符。编辑符。复数格式输出需要两个实数编辑符。复数格式输出需要两个实数编辑符。write(*,100)(2.2,3.4),(0.0,-5.8)100format(1x,f6.3,f6.3,e10.2,e10.2)end输出输出 2.200 3.400.00e+00-.58e+01第7页/共28页84.G编辑符编辑符Gw.d（w字宽，字宽，d有效位数

9、）有效位数）在在 用用F格式，格式，F格式后格式后4列留空。列留空。G编编辑辑符符虽虽然然可可以以避避免免F格格式式“大大数数印印错错、小小数数印印丢丢”和和E格格式式不不直直观观的的弊弊病病，但但其其输输出出时时无无法法事事先先获获知知F输输出出的的小小数数位位数数，输输出出样样式式也也零零乱乱无无规规律律，故故不不推推荐荐使用。使用。要输出的数要输出的数要输出的数要输出的数编辑符编辑符编辑符编辑符输出结果输出结果输出结果输出结果说明说明说明说明0.02340.0234G12.4G12.4.2340.2340e-01e-010.11010d d3467.343467.34G12.4G12.4

10、3467.3467.1010d d346.734346.734G12.5G12.5346.73346.73100.10.1根据实数大小决定用根据实数大小决定用F型或型或E型格式输出型格式输出第8页/共28页95.D编辑符编辑符Dw.d（w字宽，字宽，d小数位数）小数位数）write(*,100)1.378675893D+02,1784.5D-03100format(1x,d18.10,f11.7)end输出输出.1378675893d+031.7845000 双精度数编辑符，使用方法与双精度数编辑符，使用方法与E编辑符相仿。双编辑符相仿。双精度数也可以用精度数也可以用F编辑符输出。编辑符输出。

11、6.L编辑符编辑符Lw（w字宽）字宽）write(*,100).true.,.false.100format(1x,l4,l7)end输出输出 TF用于双精度数据的输出，用于双精度数据的输出，Double Precision用于逻辑型数据的输出，用于逻辑型数据的输出，Logical第9页/共28页107.A编辑符编辑符Aw（w字宽，无字宽，无w按实际长度输出）按实际长度输出）write(*,100)China,NewYork,Fortran100format(1x,a6,a3,a)end输出输出 ChinaNewFortran8.撇号编辑符撇号编辑符write(*,100)3,5.6,Limi

12、n100format(1x,x=,i3,y=,f6.3,a,student)end输出输出 x=3y=5.600Liminstudent用于字符型数据输出用于字符型数据输出用来插入所需的字符串用来插入所需的字符串第10页/共28页119.H编辑符编辑符用来输出字符常量（不推荐使用）。用来输出字符常量（不推荐使用）。write(*,100)3,5.6,Liminwrite(*,200)100format(1x,2Hx=,i3,2Hy=,f6.3,a,8Hstudent)200format(1x,Hello,15HHappy New Year!)end输出输出 x=3y=5.600Liminstu

13、dent Hello,HappyNewYear!nH（n字串长度，字串长度，n要准确无误）要准确无误）10.X编辑符编辑符用来在输出时产生空格。用来在输出时产生空格。nX（n空格个数）空格个数）write(*,100)3,5.6,-0.23100format(1x,i3,2x,f3.1,3x,f6.2)end输出输出 35.6-.23第11页/共28页1211.纵向走纸控制纵向走纸控制 Fortran规规定定将将输输出出的的第第一一个个字字符符作作为为纵纵向向走走纸纸标标记记，用用来来控控制制行行与与行行之之间间的的间间隔隔，打打印印从从第第二二个个字符开始。字符开始。控制符控制符控制符控制符

14、含义含义含义含义空格空格空格空格正常换行正常换行正常换行正常换行0 0 0 0一行隔一行一行隔一行一行隔一行一行隔一行1 1 1 1换页换页换页换页(隔隔隔隔64646464行行行行)+不换行（由本不换行（由本不换行（由本不换行（由本行开头叠打）行开头叠打）行开头叠打）行开头叠打）其它字符其它字符其它字符其它字符正常换行正常换行正常换行正常换行100100 FormatFormat语句语句语句语句输出结果输出结果输出结果输出结果说明说明说明说明format(1x,i3,i4)format(1x,i3,i4)24612342461234正常换行正常换行正常换行正常换行format(format(

15、i=,i3,i=,i3,j=,i4)j=,i4)i=246j=123i=246j=1234 4正常换行正常换行正常换行正常换行format(i=,i3,format(i=,i3,j=,i4)j=,i4)=246=246j=1234j=1234i i被吃掉，换行被吃掉，换行被吃掉，换行被吃掉，换行format(i3,i4)format(i3,i4)4612344612342 2被吃掉，换行被吃掉，换行被吃掉，换行被吃掉，换行format(4x,i3,i4)format(4x,i3,i4)24612342461234第一个第一个第一个第一个 被吃掉，换行被吃掉，换行被吃掉，换行被吃掉，换行form

16、at(0,i3,i4)format(0,i3,i4)24612342461234隔一行打印隔一行打印隔一行打印隔一行打印write(*,100)246,1234第12页/共28页1312.重复系数重复系数使用重复系数来规定重复使用的编辑符。使用重复系数来规定重复使用的编辑符。下面的下面的format语句等价：语句等价：format(1x,i3,i3,i3,f6.2,f6.2)format(1x,3i3,2f6.2)format(1x,i3,2x,f6.2,2x,i3,2x,f6.2,2x)format(1x,2(i3,2x,f6.2,2x)13.斜杠编辑符斜杠编辑符用于结束本行记录输出，开始下

17、一行记录输出。用于结束本行记录输出，开始下一行记录输出。write(*,100)5,4.2,6,7.8100format(1x,i3,f6.2/1x,i3,f6.2/)输出输出 54.20 67.80 (空一行）空一行）中间空一行需用中间空一行需用两个连续斜杠两个连续斜杠第13页/共28页14二、二、write和和format语句的相互作用语句的相互作用1.如果输出项的个数少于输出量编辑符个数，多余的如果输出项的个数少于输出量编辑符个数，多余的 编辑符不起作用，但紧邻的非输出量编辑符除外，编辑符不起作用，但紧邻的非输出量编辑符除外，输出直到下一个输出量编辑符之前为止。输出直到下一个输出量编辑符

18、之前为止。write(*,100)5,4.2100format(1x,i3,f6.2,2x,end,i3,f6.2)end输出输出 54.20end 2.如果输出项的个数多于输出量编辑符个数，重新使如果输出项的个数多于输出量编辑符个数，重新使 用格式说明，但用格式说明，但开始新记录开始新记录。write(*,100)5,4.2,2,7.8100format(1x,i3,f6.2)输出输出 54.20 27.80同同format(1x,i3,f6.2/1x,i3,f6.2)，但不同但不同format(2(1x,i3,f6.2)第14页/共28页153.如果在格式说明中含有重复编辑符组，当格式说明

19、如果在格式说明中含有重复编辑符组，当格式说明 用完后，用完后，只有最后一个编辑符组（含重复系数）及只有最后一个编辑符组（含重复系数）及 其后面的编辑符被重复使用。其后面的编辑符被重复使用。write(*,100)5,6,4.2,7.8,2,9.3,9.2,3100format(1x,2(i2,2x),2(f4.1,2x),i3)end输出输出 564.27.82 9.39.2 34.如果有输出量，但在格如果有输出量，但在格 式说明中无相应编辑符，式说明中无相应编辑符，则输出永不停止。则输出永不停止。write(*,100)5100format(1x,i=)输出不停的输出不停的“I=”5.可以用

20、可以用format()输出空行，输出空行，相应相应write语句应无输出量。语句应无输出量。6.右边两对右边两对write和和 format作用相同。作用相同。write(*,100)i=,5write(*,200)5 100format(1x,a,i3)200format(1x,i=,i3)end第15页/共28页16三、格式输入三、格式输入 Fortran用用read和和format语语句句的的联联合合来来实实现现格格式式输输入入。各各编编辑辑符符含含义义与与输输出出时时相相同同，但但输输入入时时不不必必考考虑虑纵向走纸控制。纵向走纸控制。1.整数的输入整数的输入read(*,100)i,

21、j100format(i4,i5)输入输入 34-56结果结果 i=34,j=-56注意：注意：在字段宽度内，在字段宽度内，空格按空格按0处理。处理。（错误！）（错误！）2.实数、复数和双实数、复数和双 精度数的输入精度数的输入read(*,100)x,y,z100format(2f4.2,e6.2)输入输入 1346-5.17843e3结果结果 x=13.46,y=-5.1,z=78430注意：注意：输入数据可带可不带输入数据可带可不带小数点，自带小数点优先，小数点，自带小数点优先，但输入数据小数点占列。但输入数据小数点占列。第16页/共28页17complex xread(*,100)x1

22、00format(2f4.2)输入输入 134617.4结果结果 x=(13.46,17.4)复数输入两实数复数输入两实数real*8 x,yread(*,100)x,y100format(f12.10,d12.10)输入输入 13.4617445d14.57d2 结果结果 x=134.617445,y=457D,E,F,G编辑符作用相同编辑符作用相同3.逻辑型数据的输入逻辑型数据的输入logical a,b,cread(*,100)a,b,c100format(l6,2l4)输入输入.true.ttfcftt 结果结果 a=.true.,b=.true.c=.false.注意注意数据可以是数

23、据可以是.true.、.false.,也可以是也可以是T、F开头的任开头的任何字符串。何字符串。第17页/共28页184.字符型数据的输入字符型数据的输入（1）格式输入字符）格式输入字符不用带撇号，不用带撇号，字符串常量间字符串常量间没有分隔没有分隔 标记。标记。（2）输入字串与字符变量长度不同时。字串短时右补空）输入字串与字符变量长度不同时。字串短时右补空 格，字串长时格，字串长时向右看齐，左边截去。向右看齐，左边截去。（3）推荐使用不带长度说明的推荐使用不带长度说明的A编辑符，编辑符，此时变量根据此时变量根据 长度自动选值。长度自动选值。character*4 w,x,y,z*5read(

24、*,100)w,x,y,z100format(a5,a3,2a)输入输入 chinanewwanghello 结果结果hinaw,newx,wangy,hellz第18页/共28页195.其他说明其他说明1）X编辑符表示在读输入编辑符表示在读输入 记录时向右跳过若干列。记录时向右跳过若干列。2）如果格式说明符已用完，）如果格式说明符已用完，但还有未输入变量，则重复但还有未输入变量，则重复 使用编辑符，但应重开一行使用编辑符，但应重开一行 记录。记录。3）斜杠编辑符表示本记录）斜杠编辑符表示本记录 输入结束，并接着输入第二输入结束，并接着输入第二 个记录。个记录。read(*,100)i,j10

25、0format(1x,i3,2x,i3)输入 1234567890结果 i=234,j=789read(*,100)i,jread(*,200)m,n100format(i3)200format(i3/i3)输入 1234567890 1234567890 1234567890 1234567890 结果 i=123,j=123 m=123,n=1234）可以将）可以将format语句中括语句中括 号中的格式说明放在号中的格式说明放在write、print和和read语句中，但说语句中，但说 明内容不宜过长。明内容不宜过长。read(*,(2i3)i,j write(*,(1x,2i3)10,

26、20 print(1x,2i3),10,20第19页/共28页20上机目的：上机目的：1.掌握各种格式编辑符的作用；掌握各种格式编辑符的作用；2.熟悉格式语句与格式输入输出语句的相互作用。熟悉格式语句与格式输入输出语句的相互作用。上机内容：上机内容：1.调试课本中的所有程序；调试课本中的所有程序；2.习题第习题第6、10题。题。第20页/共28页练习题：1.阅读下列FORTRAN 77程序：READ(*,100)IA,I IF(IA.GE.125)THEN I=I+10 ELSE I=I-10 END IF WRITE(*,*)I 100 FORMAT(I2，I1)END在执行这个程序时，如果

27、在键盘上输入256,2后，则运行结果I的值 。答案：-4第21页/共28页2.阅读下列FORTRAN 77程序：READ(*,200)P,Q,X WRITE(*,200)X 200 FORMAT(1X,3(2X,F3.1)END在执行这个程序时，如果由键盘输入1234567890123456789，则最后输出的X的值为 。3.阅读下列FORTRAN 77程序：READ(*,100)I,J,K WRITE(*,200)K 100 FORMAT(3I4)200 FORMAT(1X,I4)END在执行这个程序时，如果从键盘输入12 34 5 6 749845，则输出的K值为 。答案：2.*3.506

28、0第22页/共28页4.阅读下列FORTRAN 77程序：LOGICAL X,Y READ(*,100)X,Y WRITE(*,*)X,Y 100 FORMAT(1X,L4,6X,L3)END如果在执行这个程序时由键盘输入.TRUE.FALSETAB，则该程序执行后输出的X值为 ，Y值为 。5.阅读下列FORTRAN 77程序：CHARACTER X*4，Y*5，Z*4 X=YOUR Y=GIRLS Z=BOYS WRITE(*,100)X,Y,Z 100 FORMAT(1X,A3,A4,A2)END 上述程序运行后，输出的X,Y,Z的值为 。答案：4.T,T 5.YOUGIRLBO第23页/

29、共28页6.设有下列格式输入语句：READ(*,100)X,Y,Z 100 FORMAT(1X,F3.1,2X,F4.1,3X,F2.1)END在执行这个程序时由键盘输入35678912521356789，则读入后X的值为 ，Y的值为 ，Z的值为 。7.阅读下列FORTRAN 77程序：READ(*,100)M,N X=MOD(M,N)/N WRITE(*,*)100 FORMAT(1X,I2,2X,I2)END 如果在执行这个程序时由键盘输入1248048965，则运行后输出的X值 。答案：6.56.7 125.2 6.7 7.0.0第24页/共28页8.阅读下列FORTRAN 77程序：R

30、EAD(*,100)M,N IF(M.LE.N)N=M WRITE(*,100)N 100 FORMAT(1X,I3,26X,I4)END如果在执行这个程序时由键盘输入.123456 789，则该程序执行后输出的N值为 。9.阅读下列FORTRAN 77程序：L;OGICAL X,P,Q READ(*,100)P,Q X=.NOT.P.AND.P.OR.Q WRITE(*,*)X 100 FORMAT(2L6)END 如果在执行这个程序时由键盘输入.TRUE.FTRUE，则运行后输出的X值为 。答案：8.789 9.F第25页/共28页10.以下程序的运行结果是 。CHARACTER*5 STR DO 10 I=3,1,-1 STR=DO 20 J=1,2*I-1 STR(J:J)=*20 CONTINUE WRITE(*,*)STR 10 CONTINUE END答案：*第26页/共28页11.以下程序的运行结果是 。CHARACTER C*6，T*1 C=ABCDEF I=1 J=LEN(C)10 T=C(I:I)C(I:I)=C(J:J)C(J:J)=T I=I+1 J=J-1 IF(I.LT.J)GOTO 10 WRITE(*,*)C END答案：FEDCBA第27页/共28页感谢您的观看。第28页/共28页