- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VF程序汇总
一、数学表达式:
1.编写一个求S=1+2+3…+100的程序
Clear
S=0
For i=1 to 100
S=S+i
Endfor
? “S=“,s
cancel
2.编写程序,其功能是:计算并输出下列多项式的值:
例如,若n=5,则应输出2.283333。
clear
s=0
input [n=] to n
for i=1 to n
s=s+1/i
endfor
? “S=“,s
return
3.编写程序,计算表达式:.
clear
s=0
input [n=] to n
for i=1 to n
s=s+(i+1)/i
endfor
? “S=“,s
return
4.设计完成如下表达式计算的程序:
clear
s=0
input [n=] to n
for i=1 to n
s=s+(1/(2*i-1)-1/(2*i))
endfor
? s,s
return
5.编写程序,计算表达式:。
set talk off
clear
s=0
input [n=] to n
for i=1 to n
s=s+1/m(i)
endfor
? s=,s
return
set talk on
function m(k)
S=0
for j=1 to k
S=S+j
endfor
return S
endfunc6.编写一个求S=1!+2!+3!…+10!
Clear
S=0
For k=1 to 10
S=S+T(k)
Endfor
? “S=“,s
RETURN
FUNCTION T(N)
F=1
FOR K=1 to N
F=F*K
ENDFOR
RETURN F
ENDFUNC
7.请分别将求阶乘的功能设计为自定义函数,并在计算5!-3!+7!时进行调用.
clear
? T(5)-T(3)+T(7)
return
function T(n)
t=1
for i=1 to n
t=t*i
endfor
return t
endfunc
8.编写程序,其功能是:计算并输出下列多项式的值:
例如,在程序中从键盘给n输入15,则输出为a=2.718282,注意:要求n的值大于1但不大于100。
set talk off
clear
s=1
input [n=] to n
for i=1 to n
s=s+1/T(i)
endfor
? s=,s
return
function T(k)
t=1
for j=1 to k
t=t*j
endfor
return t
endfunc
9.编写程序,其功能是:计算并输出
例如,从键盘给n输入20后,输出为s=534.188884。注意:要求n的值大于1但不大于100。
clear
s=0
input [n=] to n
for i=1 to n
s=s+T(i)
endfor
? s=,s
return
function T(k)
t=0
for j=1 to k
t=t+sqrt(j)
endfor
return t
endfunc10.编写程序,其功能是:计算并输出下列多项式的值:,并输出结果。例如,若n=20,则S=6.506583。
clear
s=0
input [n=] to n
for i=1 to n
s=s+log(i)
endfor
s=sqrt(s)
? s=,s
return
11.编写程序,计算表达式:直到。
例如x=2.5,则函数值为:12.182494。
set talk off
clear
input [x=] to x
s=0+1
i=1
do while x**i/T(i)10E-6
s=s+x**i/T(i)
i=i+1
enddo
? s=,s
set talk on
return
function T(k)
t=1
for j=1 to k
t=t*j
endfor
return t
endfunc12.编写程序,计算表达式:
直到。若x=2.5,函数值为:1.917915。
clear
input [x=] to x
s=0+1
i=1
do while x**i/jc(i)10E-6
s=s+((-1)**(i-1))*((x**i)/jc(i))
i=i+1
enddo
? “S=“,s
return
function jc(k)
t=1
for j=1 to k
t=t*j
endfor
return t
endfunc
13.编写程序,计算并输出给定10个数的方差:(既10个数的平均值)。例如,给定的10个数为95、89、76、65、88、
文档评论(0)