主题：请教一道题
天水
[专家分：320] 发布于 2005-07-09 17:46:00
用pascal怎么编: S=1+1/2+1/3+...1/n 输入n,程序算出S.
谢谢
回复列表 （共14个回复）
沙发
zcyspace [专家分：150] 发布于 2005-07-09 18:59:00
我用的是C.
int n,i,s=o;
cin>>n;
for(i=1;i<=n;i++)
{
s+=i/2;
}
cout<<s<<"\n";
板凳
zcyspace [专家分：150] 发布于 2005-07-09 20:30:00
对不起刚才粗心把for循环写错了。
double s=0;
for(i=1;i<=n;i++)
{
s+=1/i;
}
3 楼
天水 [专家分：320] 发布于 2005-07-09 21:17:00
我不懂C语言,但还是谢谢楼你zcyspace,如果有pascal就更好了,谢谢.
4 楼
zcyspace [专家分：150] 发布于 2005-07-09 22:24:00
sorry,我对pascal一窍不通。我建议你学一下C++语言或C#，我保证你不会后悔的。
5 楼
impala [专家分：110] 发布于 2005-07-10 00:22:00
program calc_s;
var n, i : integer;
s : real;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('s=',s);
end.
6 楼
sunnyfish [专家分：250] 发布于 2005-07-10 13:26:00
2楼定义s的时候为int,要改一下!
7 楼
davidw017 [专家分：4170] 发布于 2005-07-10 15:23:00
5 楼的应该差不多
8 楼
天水 [专家分：320] 发布于 2005-07-22 17:37:00
怎么那么少人啊 救命啊
9 楼
kero [专家分：0] 发布于 2005-07-22 23:50:00
5楼的正确
10 楼
XVenus [专家分：20] 发布于 2005-07-22 23:52:00
5楼的应该已经可以了呀
我来回复
您所在位置：