VFP 愛用者社區

一路飞羊 · 註冊時間: 2005-01-15 文章: 3 第 1 樓

我明天就要考试了~~可是这个我还不会~~请各位帮帮我~~谢了~~
请问这三个程序怎么编？

s=1+2+3...+n

s=n!

s=1!+2!+3!+...+n!
再次感谢~~~

horace · 發表於: 星期六一月 15, 2005 5:13 pm 文章主題:

s=0
for i=1 to n
s=s+i
endfor
------------------------------
s=1
for i=1 to n
s=s*i
endfor
----------------------------
s=0
for i=1 to n
s1 =1
for k=1 to i
s1 =s1*k
endfor
s =s+s1
endfor

一路飞羊 · 註冊時間: 2005-01-15 文章: 3 第 3 樓

谢谢你~~可是为什么运行的时候总是显示：找不到变量n???

andywilliams · 註冊時間: 2004-10-23 文章: 111 第 4 樓

s =0
@ 10,30 get s
read
clear
?s_add(s)
?s_multiply(s)
?s_x(s)

proc s_add
PARAMETERS MS
ans=0
for i = 1 to MS
ans = ans + i
next
return ans

proc s_multiply
PARAMETERS MS
PRIVATE MS,I
ans=1
for i = 1 to MS
ans = ans * i
next
return ans

proc s_x
PARAMETERS MSs
PRIVATE MSs, I
mans = 0
for I= 1 to mss
mans = mans + s_multiply(I)
next
return mans

不要臨時抱佛腳.. Evil or Very Mad

一路飞羊 · 註冊時間: 2005-01-15 文章: 3 第 5 樓

"不要臨時抱佛腳.. "一定一定~~~我会改的~~~
非常感谢你的解答~~~ Very Happy