山东建筑大学
a=”I am a student!”
program ex0413
character(len=20) string string = \ write(*,*) string
string(6:) = \重设设定从第6个字符之后的字符串 write(*,*) string end 执行结果： Good morning. Good evening.
注意：Fortran的命令不区分大小写，但是在字符串中是区分大小写的。 关于字符串的有关函数，请查阅相关的帮助。 2.2.5 逻辑变量（LOGICAL）
语法：logical a
注释：逻辑变量的值为“true”和“false”。逻辑变量输出值为”T”和”F” a=.true. a=.false.
逻辑变量用于程序的逻辑判断语句，一般并不输出。
READ命令
语法：read(*,*) a
program ex0417 integer a
read(*,*) a ! 由键盘读入一个整数 write(*,*) a ! 写出读进变量a的内容 end
Read命令用于实时接受用户从键盘输入数据。Read命令配合输入格式可以方便读取文件中的数据。有关格式命令参考帮助文件。
格式化输入（FORMAT）命令
13
数值分析程序设计——Fortran基础
2.5.1 格式化输出概论
Format命令用来设置输出格式，看一个例子：
program ex0420 integer a a=100
write(*,100) a ! 使用行代码100地方设定的格式来输出变数a 100 format(I4)
! 最前面的100是行代码, 把这一行程序代码给一个编号 end
程序的执行结果使用4个字符宽输出整数，前面没有多余的空格。 Format命令中可以使用很多的格式控制描述。下面列出所有格式命令的功能（[]中的选项可以省略）：
Aw——以w个字符宽来输出字符串；
BN——定义文本框中的空位为没有东西，在输入时才需要使用； BZ——定义文本框中的空位为0，在输入时才需要使用；
Dw.d——以w个字符宽输出指数类型的浮点数，小数部分占用d个字符宽； EW.d[Ee]——以w个字符宽输出指数类型的浮点数，小数部分占用d个字符宽，指数部分占用e个字符；
Enw.d[Ee]——以指数类型输出浮点数； Esw.d[Ee]——以指数类型输出浮点数；
Fw.d——以w个字符宽输出浮点数，小数部分占用d个字符宽； Gw.d[Ee]——以w个字符宽输出任何种类的数据； Iw[.m]——以w个字符宽输出整数，最少输出m个数字； Lw——以w个字符宽输出T或F的真假值； nX——把输出的位置向右跳过n个位置； /——代表换行；
：——在没有更多数据时结束输出； 下面看一个例子：
14
山东建筑大学
program ex0421 integer a real b complex c logical d character(len=20) e a=10 b=12.34 c=(1,2) d=.true. e=\
write(*,\ a ! 用I来格式化整数 write(*,\ ! 用F来格式化浮点数 write(*,\ ! complex也是浮点数 write(*,\ ! 用L来输出logical write(*,\ ! 用A来输出字符串 end
上例将输出格式写在Write命令内，下面的例子采用Format命令规定输出格式：
PROGRAM ex0422 INTEGER A REAL B COMPLEX C LOGICAL D CHARACTER*(20) E
15
数值分析程序设计——Fortran基础
A=10 B=12.34 C=(1,2) D=.true. E=\
WRITE(*,100) A ! 用I来格式化整数 WRITE(*,200) B ! 用F来格式化浮点数 WRITE(*,300) C ! complex也是浮点数 WRITE(*,400) D ! 用L来输出logical WRITE(*,500) E ! 用A来输出字符串 100 FORMAT(1X,I5) 200 FORMAT(1X,F5.2) 300 FORMAT(1X,F4.1,F4.1) 400 FORMAT(1X,L3) 500 FORMAT(1X,A10)
END
详细的输出格式使用方法，参考相关帮助。
2.5.2 详论格式化输出
格式化输出的控制字符非常丰富，但是常用的并不多，所以不需要记住每一个控制字符。一般来说，“I、F、E、A、X”是最常用的几个格式，最好能记住他们的用法。
【Iw[.m]】——以w个字符的宽度输出整数[至少输出m个数字] write(*,”(I5)”) 100
100 !采用5个字符宽输出，100前补两个空白 write(*,”(I3)”) 10000
*** ！设置的输出文本框不足，输出3个*以示警告 write(*,”(I5.3)”) 10
010 !强迫输出
16
相关推荐：
loading