使用Fortran语言计算取鸡蛋问题

weinihou · 发表于 2017-6-16 19:30:21

river 发表于 2017-6-16 16:14
赶快上一个不同的版本，让大家学习下

这，样，啊……

正好也没有心情做手头其他工作，所以就真的做做了

calculate_egg

run_cal_egg

因为看到有“至少”嘛，碰到第一个满足的就 exit 跳出循环了

river · 发表于 2017-6-16 19:58:00

weinihou 发表于 2017-6-16 19:30
这，样，啊……

正好也没有心情做手头其他工作，所以就真的做做了

果然mod函数更简单

river · 发表于 2017-6-17 22:57:27

weinihou 发表于 2017-6-16 19:30
这，样，啊……

正好也没有心情做手头其他工作，所以就真的做做了

我用GrADS的gs脚本也实现了这个功能，哈哈

i=63
while(i<=10000)
if(math_mod(i,2)=1&math_mod(i,4)=1&math_mod(i,5)=1&math_mod(i,8)=1&math_mod(i,6)=3)
say i
endif
i=i+63
endwhile
;

复制代码

huangbi_h · 发表于 2017-6-19 14:26:43

感谢楼主分享，楼主辛苦了

jin_defence · 发表于 2017-6-20 07:45:20

weinihou 发表于 2017-6-16 19:30
这，样，啊……

正好也没有心情做手头其他工作，所以就真的做做了

简洁，清晰，赞

jin_defence · 发表于 2017-6-20 07:47:08

river 发表于 2017-6-17 22:57
我用GrADS的gs脚本也实现了这个功能，哈哈

相当可以，赞

		自动登录	找回密码
密码			立即注册

[源代码] 使用Fortran语言计算取鸡蛋问题