渡箭 发表于 2015-8-13 18:27:25

求助一个write()输出语句的格式

我要输出一行 Text Style Vv Justify MR 569629.1,3196640 7.5 0 230.00其中
569629.1,3196640 分别 是数组xsec(i,j)，ysec(i,j)中的数据组成的坐标，逗号不能省略
7.5为定值，0为定值，230.00为数组z(i,j)中的数据
我不知道怎么写这个输出语句
输出语句输出效果是这样的：
Text Style Vv Justify MR 569629.1,3196640 7.5 0 230.00




fcode 发表于 2015-8-13 18:47:13

Program www_fcode_cn
Implicit None
real :: xsec(3,3) = 569629.1, ysec(3,3) = 3196640. , z(3,3) = 230.
integer :: i = 1 , j = 1
Write( * , 100 ) xsec(i,j), nint(ysec(i,j)) , z(i,j)
100 format("Text Style Vv Justify MR ",f8.1,",",i7.7," 7.5 0 ",f6.2)
End Program www_fcode_cn

渡箭 发表于 2015-8-13 19:14:16

fcode 发表于 2015-8-13 18:47
Program www_fcode_cn
Implicit None
real :: xsec(3,3) = 569629.1, ysec( ...

谢谢！不过还是有点问题E:\无标题

渡箭 发表于 2015-8-13 19:16:40

fcode 发表于 2015-8-13 18:47
Program www_fcode_cn
Implicit None
real :: xsec(3,3) = 569629.1, ysec( ...

谢谢！不过还是有点问题
编译错误提示如下：

fcode 发表于 2015-8-13 20:50:59

如果你还不懂得如何续行的话。请看看教科书。

渡箭 发表于 2015-8-13 22:00:24

谢谢，语法问题都解决了
页: [1]
查看完整版本: 求助一个write()输出语句的格式