Fortran Coder

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

[求助] 语法

[复制链接]

7

帖子

3

主题

0

精华

入门

F 币
38 元
贡献
23 点
跳转到指定楼层
楼主
发表于 2021-11-18 23:03:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
下面的程序中,data是个数据类型吗   后面的/0/是什么意思呢?
[Fortran] 纯文本查看 复制代码
program ex0515
implicit none
integer i
integer n
parameter (n=10)
data i /0/
10 write(*,'(1x,a3,i2)')  'i=' ,i
   i=i+1
   if(i < n) goto 10
stop
end


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

250

帖子

2

主题

0

精华

宗师

F 币
1731 元
贡献
872 点

规矩勋章

沙发
发表于 2021-11-19 08:06:23 | 只看该作者
data语句是赋值

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

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

板凳
发表于 2021-11-19 09:51:42 | 只看该作者
你的知识该更新了。
[Fortran] 纯文本查看 复制代码
Program ex0515
  implicit none
  integer :: i = 0
  integer , parameter :: n = 10
  Do i = 1 , N
    write(*,'(1x,"i=",i2)') i
  End Do
End Program ex0515

7

帖子

3

主题

0

精华

入门

F 币
38 元
贡献
23 点
地板
 楼主| 发表于 2021-11-19 14:03:19 | 只看该作者
fcode 发表于 2021-11-19 09:51
你的知识该更新了。
[mw_shl_code=fortran,true]Program ex0515
  implicit none

好的,可是我才刚学

81

帖子

0

主题

0

精华

专家

F 币
471 元
贡献
232 点

规矩勋章新人勋章元老勋章

QQ
5#
发表于 2021-11-19 14:20:14 | 只看该作者
Everglow_ 发表于 2021-11-19 14:03
好的,可是我才刚学

刚学建议买比较新的书,放弃年代久远的那种。
彼岸,有永恒的守候...

7

帖子

3

主题

0

精华

入门

F 币
38 元
贡献
23 点
6#
 楼主| 发表于 2021-11-20 16:54:24 | 只看该作者
青衣巷 发表于 2021-11-19 14:20
刚学建议买比较新的书,放弃年代久远的那种。

新的书有什么推荐吗?
我现在看的是彭国伦老师的Fortran95程序设计,确实年代久远了。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-25 21:43

Powered by Tencent X3.4

© 2013-2024 Tencent

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