4
2
0
新人
9ZSVNN]5LS(K@X[H4NH2.png (26.36 KB, 下载次数: 306)
下载附件
2021-1-5 10:40 上传
LW3{_5QT9QVY5`1I)$)1HIE.png (5.54 KB, 下载次数: 329)
2021-1-5 10:41 上传
使用道具 举报
838
大宗师
01
ENTRY
OUTPUT
02
a
=
float
(
iter
)
/
10000
.
03
C
1000000
04
b
int
05
if
abs
-
.le.
1
.D
-08
then
06
WRITE
*
,
' ITER='
ITER
07
write
cFilename
'(i05.5,a4)'
c
'.txt'
08
Open
13
File
trim
09
do
420
k
Nz
10
Z
H
11
continue
12
Close
'ITER='
14
CALL
PRINT
15
endif
臭石头雪球
2038
5
论坛跑堂
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-4-21 21:45
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.