作者latinboy (昵称)
看板Fortran
标题Re: [问题] 计算机概论强者..关於符点数和fortran程式
时间Sun Nov 2 17:54:13 2008
※ 引述《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)
1F：推 awer89:2不是只需要1~500 7倍数的总和? 应该不用如此吧 11/02 18:09
2F：推 cchs111113:嗯呀~1~500七倍数的总和~ 11/02 20:58
3F：推 blc:传说中的地雷(防抄作业)写法？ 11/02 22:11
4F：推 awer89:回圈2147483647次 跑好久... 11/02 22:56
5F：推 lunatear:好妙 真有趣.... 11/03 22:53