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
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
Everglow_ 发表于 2021-11-19 14:03
好的,可是我才刚学
青衣巷 发表于 2021-11-19 14:20
刚学建议买比较新的书,放弃年代久远的那种。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |