楚香饭 发表于 2014-11-24 22:26 非常感谢!!已经可以了!~ |
|
[Fortran] 查看源码 复制源码 i = 0
Do k1 = 1 , 100
if ... then ...
else if ... then
i = i + 1
A(i) = 1.1 * ...
end if
End Do |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-11-24 21:10