作者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