任意输入一整数n(n>=0)，根据以下公式编程，求出s的值！！


S=1+1/(1+2)+1/(1+2+3)+…….+1/(1+2+3+4+……+n)

Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入")
If n = 0 Then Exit Sub
s = 0
For i = 1 To n
    t = 0
    For j = 1 To i
        t = t + j
    Next
    s = s + 1 / t
Next
Print "s="; s
End Sub

简单修改了一下，减掉一个循环。
Dim n As Integer
Private Sub Command1_Click()
n = InputBox("请输入")
If n = 0 Then Exit Sub
s = 0
t = 0
For i = 1 To n
t = t + i
s = s + 1 / t
Next
Print "s="; s
End Sub

pascal:
var
n,t,k,sum1:longint;
sum:real;
begin
read(n);
sum:=0;
sum1:=0;
for k:=1 to n do
begin
sum1=sum1+k;
sum=sum+1/sum1;
end;
writeln(sum:5);
readln;
end.
仅需一次循环。

我出一个类似的题：
输入任意整数n,求n!的值。

——VB——
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入n值：")
If n < 0 or fix(n) <> n Then Exit Sub
s = 1
For i = 1 To n
    s = s * i
Next
Print Cstr(n) + "!="; s
End Sub

——Pascal——
var i,n,s:longint;
begin
  readln(n);
  s:=1
  for i:=1 to n do s:=s*i;
  writeln(s);
end.

除了语法不一样，算理都是一样的。

怎么那么像我学的数学

引用:

原帖由 笨巧果 于 2006-10-2 22:48 发表
除了语法不一样，算理都是一样的。

我无语。。