7
3
0
入门
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
宗师
臭石头雪球
2033
12
5
论坛跑堂
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
fcode 发表于 2021-11-19 09:51 你的知识该更新了。 [mw_shl_code=fortran,true]Program ex0515 implicit none
81
专家
Everglow_ 发表于 2021-11-19 14:03 好的,可是我才刚学
青衣巷 发表于 2021-11-19 14:20 刚学建议买比较新的书,放弃年代久远的那种。
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-25 21:43
Powered by Tencent X3.4
© 2013-2024 Tencent