推 awer89:2不是只需要1~500 7倍數的總和? 應該不用如此吧 11/02 18:09
推 cchs111113:嗯呀~1~500七倍數的總和~ 11/02 20:58
推 blc:傳說中的地雷(防抄作業)寫法？ 11/02 22:11
推 awer89:迴圈2147483647次 跑好久... 11/02 22:56
推 lunatear:好妙 真有趣.... 11/03 22:53
※ 引述《cchs111113 (0(一.一)0)》之銘言：
: ※ [本文轉錄自 Wanted 看板]
: 作者: cchs111113 (0(一.一)0) 看板: Wanted
: 標題: [問題] 計算機概論強者..關於符點數和fortran程式
: 時間: Sun Nov 2 16:56:04 2008
: OH~計概要了我的命
: 有兩題需要求救一下
: 1.試將-17.25表示為32位元的符點數
1100000110001010000.......................(尾巴補0到滿32位)
: 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題有點難
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 116.59.131.124
※ 編輯: latinboy 來自: 116.59.131.124 (11/02 17:59)