Fortran Coder

标题: 求助一个write()输出语句的格式 [打印本页]

作者: 渡箭 时间: 2015-8-13 18:27
标题: 求助一个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

0%KRR]R`MJTKE1X3T54W6HO.png (1.06 KB, 下载次数: 0)

输出效果

作者: fcode 时间: 2015-8-13 18:47

[Fortran] 纯文本查看 复制代码

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

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

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

作者: 渡箭 时间: 2015-8-13 19:16

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

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

无标题.png (71.47 KB, 下载次数: 0)

作者: fcode 时间: 2015-8-13 20:50
如果你还不懂得如何续行的话。请看看教科书。

作者: 渡箭 时间: 2015-8-13 22:00
谢谢，语法问题都解决了

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)