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
使用道具 举报
fcode 发表于 2021-11-19 09:51 你的知识该更新了。 [mw_shl_code=fortran,true]Program ex0515 implicit none
青衣巷 发表于 2021-11-19 14:20 刚学建议买比较新的书,放弃年代久远的那种。
本版积分规则 发表回复 回帖后跳转到最后一页
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-15 02:45
Powered by Tencent X3.4
© 2013-2024 Tencent