pascal求和，帮帮忙
pascal吧
全部回复
仅看楼主
level 1
兲煷説脕鮟wlk 楼主
输入正整数n,求s=1/2+2/3
+3
/4+···n/(n+1)的值
输入：3 输出;1.9167
用循环
O(∩_∩)O谢谢
2016年07月28日 01点07分 1
level 1
兲煷説脕鮟wlk 楼主
求大神指点( ⊙ o ⊙ )啊！[哈哈]
2016年07月28日 01点07分 2
level 1
黄金止手
var
s: ValReal; // = Extended
n, i: LongInt;
begin
s:=0.0;
RealLn(n);
for i:=n downto 1 do
s:=s+1.0*i/(i+1);
WriteLn(s:0:4);
end.
2016年07月30日 02点07分 3
1