| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 11373 人关注过本帖
标题:如何计算1+1/2-1/3+1/4-1/5……+1/100的结果?
只看楼主 加入收藏
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
 问题点数:0 回复次数:11 
如何计算1+1/2-1/3+1/4-1/5……+1/100的结果?

不知该如何实现+和-,请各位大侠指点指点!谢谢!
计算1+1/2-1/3+1/4-1/5……+1/100的结果?

搜索更多相关主题的帖子: 结果 
2006-05-27 01:08
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 
1+(-1)^2*(1/2)+(-1)^3*(1/3)+.....+(-1)^100*(1/100)
2006-05-27 05:56
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
得分:0 
谢谢您的提示,我编写了如下程序,结果为0.311828,但不知对不对?
set talk off
clea
x=2
s=1
n=-1
for x=1 to 100
s=s+(1/x)*(-1)^x
next
?s
return
2006-05-27 09:57
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
if mod(i,2)=0
加语句
else
减语句
endif

2006-05-27 13:06
wanpj
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-5-19
收藏
得分:0 
b=0
for a=1 to 99
if mod(a,2)=0
b=b/(a+1)
else
b=b/(a-1)
endif
endfor
b=b/100
?b

爱过的人,我从不曾拥有。爱过的心,没有任何请求 所以,我有一千个伤心的理由
2006-05-27 17:14
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
s=1
for i=2 to 100
s=s+1/i*iif(mod(i,2)=0,1,-1)
endfor
?str(s,18,16)

答案:1.3118278206898050

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-27 23:15
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 

楼主的程序略有问题!
主要是for x=2

2006-05-28 06:45
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
得分:0 

是的,我也检查到了,问题出在那里!谢谢您!

2006-05-28 12:41
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
你的问题是1/1+1/2-1/3+....+1/100=?
很显然从第2项开始,数据的符号是正负相间的;而你给的程序是从第1项开始正负相间了,且初始值为1,变成1-1+1/2-1/3+...+1/100,比要求的结果少1。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-28 18:06
bokachan
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-5-21
收藏
得分:0 
2006-05-29 15:19
快速回复:如何计算1+1/2-1/3+1/4-1/5……+1/100的结果?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.076334 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved