- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
PAGE
PAGE 5
循环结构程序设计练习一
一、累加、累乘
1.求1-100的偶数和
解1:应用FOR语句
SUM=0
FOR I=1 TO 100
IF____________
SUM=SUM+I
ENDIF
ENDFOR
?’1~100的偶数和为:’,SUM
解2:使用DO WHILE 实现:
SUM=0
____________
DO WHILE ____________
IF MOD(I,2)=0
SUM=SUM+I
ENDIF
____________
ENDDO
?’1~100的偶数和为:’,SUM
解3:使用LOOP语句实现:
SUM=0
____________
DO WHILE I100
I=I+1
IF ____________
loop
else
SUM=SUM+I
ENDIF
ENDDO
?’1~100的偶数和为:’,SUM
2.累乘:求指定数的阶乘(即N!)。
clear
INPUT 请输入n的值: TO N
____________
FOR I=1 TO n
MUL=MUL*I
ENDFOR
?n,’的值为:’,MUL
3.编程从键盘输入n的值,求1+1/2!+1/3!+1/4!+….+1/n!
解1:应用双重循环
CLEAR
SUM=_①_
INPUT 请输入n的值: TO N
FOR i=1 TO N
MUL=_②_
FOR j=1 TO i
MUL=MUL*__③__
ENDFOR
SUM= SUM+____④_____
ENDFOR
?求得的总和为: ,SUM
解2:应用单循环:
CLEAR
SUM=0
MUL=1
INPUT 请输入n的值: TO N
FOR i=1 TO N
MUL=MUL*I
SUM= SUM+____________
ENDFOR
?求得的总和为: ,SUM
4. 该程序完成以下式子的计算
1-1/3!+1/5!-1/7!+…。
SET TALK OFF
INPUT “请输入1后面的项目个数:” TO EP
STORE 1 TO N ,P,Y
DO WHILE
K=2*N+1
P= P*(K-1)*K
N=N+1
ENDDO
?‘Y=’+STR (Y,10,8)
SET TALK ON
RETURN
5. 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13……(注:该数列从第二项开始,其分子是前项的分子与分母的和,而其分母是前一项的分子),求出这个序列前24项的和。要求:按四舍五入的方式精确到小数点的后第二位。
方法一:set talk off
clear
s=0
f1=2
f2=1
n=1
do while n= 24
s=___________
f=__________
f2=f1
f1=f
n=n+1
enddo
? ____________
set talk on
return
方法二:
set talk off
clear
s=0
a=2 分子
b=1 分母
n=1
do while n= 24
s=_________
a=______
b=__________
n=n+1
enddo
? __________
set talk on
return
6. 已知S1=1, S2=1+2, S3=1+2+4, S4=1+2+4+8,S5=1+2+4+8+16,…,编程序求S=S1+S2+S3+S4+S5+…+S20的值。
set talk off
clear
si=0
_______
i=1
do while i=20
______________
s=s+si
i=i+1
enddo
? s
set talk on
return
7. 台劳展开式为:
Sin X=X/1!-X^3/3!+X^5/5!-X^7/7!+…,按台劳展开式计算当X取值为π/5时SinX的近似值(前20项)。要求:按四舍五入的方式精确到小数点后第二位。
set talk off
t=1
i=1
s=0
x=3.1416/5
z=1
k=1
do while k= 20
t=____________
if __________
q=x^i/t
else
q=-x^i/t
endif
s=s+q
z=_________
i=i+2
endfor
? round(s
您可能关注的文档
- vb中listview的使用案例.doc
- Vb中制作流水灯.doc
- vb综合练习题与答案.doc
- VB综合实验报告模板.doc
- VC 中操作EXCEL总结(转).pdf
- VC 6.0_中使用libUsb库进行Hid_USB设备通讯.pdf
- VC 中用ODBC连接mysql数据库.doc
- VC5509A定时器使用实验报告 DSP.pdf
- Vc银翘片片剂工厂车间设计设计任务书.doc
- VD4真空断路器操作手册.pdf
- 【+高++中语文】《为了忘却的记念》课件++统编版高中语文选择性必修中册 ++.pptx
- 人教版数学八年级上册11.1.3 三角形的稳定性课件(共18张PPT).pptx
- 9《陈情表》和《项脊轩志》联读课件-统编版高中语文选择性必修下册.pptx
- Unit 4 Journey Across a Vast Land Words and expressions(1)单词课件-高中英语人教选择性必修第二册.pptx
- 【高教版】中职英语(拓展模块):Uint 1《Communities》ppt课件(2).pptx
- 人教版高中生物必修一课件:1.1 细胞是生命火哦的那个的基本单位.pptx
- 【新教材】人教版高中生物细胞生活的环境课件教学课件1.pptx
- 【+高++中语文】《念奴娇赤壁怀古》课件++统编版高中语文必修上册.pptx
- 7.1《风景谈》课件统编版高中语文选择性必修下册.pptx
- 【+高++中语文】《庖丁解牛》课件++统编版高中语文必修下册.pptx
文档评论(0)