作者snowanimal (依然动物先生)
看板Fortran
标题Re: [问题] 计算机概论强者..关於符点数和fortran程式
时间Wed Nov 5 20:37:47 2008
※ 引述《latinboy (昵称)》之铭言：
: : 2.Fortran程式撰写：试写一程式，将1至500之间所有7的倍数之总和算出後，印出其结果。
: : 对於强的人应该蛮简单的吧
: : 需要乡民们的帮忙!!
: : 万事拜托啦!!!
: program copyfromptt
: implicit none
: integer i,sum
: sum = 0
: do i=1,2147483647
: if(i.GE.001)then
: if(i.LE.500)then
: if(mod(i,7).EQ.0)then
: sum=10*sum
: sum=sum+i*100
: sum=100*sum/1000
: sum=-4500*i/500+sum
: endif
: endif
: endif
: enddo
: print *, "ans=",sum
: end program
: 第2题有点难
不必这麽麻烦吧 = =
详细的语法自己写，这样才会有成就。
原理我口述一下就好：
第一种写法：
跑 x=7*n n为正整数，随便编一个号码为100好了，这样子x决对超过500。
当x小於500的时候回圈继续跑，当x大於五百就跳出回圈。
中间的累加？ 别问这麽简单的问题...
第二种写法：
跑一个500(n)次的回圈
x=n/7
用if ，当x等於正整数的时候就累加
当x不是正整数就继续跑回圈
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.124.105.26
1F：→ latinboy: 你的想法感觉都绕了一个弯 我这样子写当然是故意的.... 11/05 22:14
2F：→ snowanimal:我一直以为不直接把作业的code写出来是惯例 XDDD 11/06 10:27
3F：→ latinboy: 所以我没有"直接"写出"正常"的code XD 11/06 11:29