Fortran Coder

查看: 14059|回复: 5
打印 上一主题 下一主题

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

[复制链接]

21

帖子

4

主题

0

精华

熟手

F 币
149 元
贡献
78 点

规矩勋章爱心勋章

跳转到指定楼层
楼主
发表于 2015-8-13 18:27:25 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
我要输出一行 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)

输出效果

输出效果
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2015-8-13 18:47:13 | 只看该作者
[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

21

帖子

4

主题

0

精华

熟手

F 币
149 元
贡献
78 点

规矩勋章爱心勋章

板凳
 楼主| 发表于 2015-8-13 19:14: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( ...

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

21

帖子

4

主题

0

精华

熟手

F 币
149 元
贡献
78 点

规矩勋章爱心勋章

地板
 楼主| 发表于 2015-8-13 19:16:40 | 只看该作者
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)

无标题.png

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

5#
发表于 2015-8-13 20:50:59 | 只看该作者
如果你还不懂得如何续行的话。请看看教科书。

21

帖子

4

主题

0

精华

熟手

F 币
149 元
贡献
78 点

规矩勋章爱心勋章

6#
 楼主| 发表于 2015-8-13 22:00:24 | 只看该作者
谢谢,语法问题都解决了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 08:56

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表