Re: [問題] 計算機概論強者..關於符點數和fortran程式
※ 引述《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
→
11/05 22:14, , 1F
11/05 22:14, 1F
→
11/06 10:27, , 2F
11/06 10:27, 2F
→
11/06 11:29, , 3F
11/06 11:29, 3F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 4 篇)：