- 1、本文档共5页,其中可免费阅读2页,需付费180金币后方可阅读剩余内容。
- 2、本文档内容版权归属内容提供方,所产生的收益全部归内容提供方所有。如果您对本文有版权争议,可选择认领,认领后既往收益都归您。
- 3、本文档由用户上传,本站不保证质量和数量令人满意,可能有诸多瑕疵,付费之前,请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形,可联系本站下载客服投诉处理。
- 4、文档侵权举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
程序题:
1:求1/2-2/3+3/5-5/8……前20项
clear
s=0
p=1
q=2
f=1
for i=1 to 10
s=s+p/q*f
t=p
p=q
q=t+p
f=-f
endfor
?s
2 :判断一个100 以内的数是否为素数
clear
input输入一个数: to n
if n=100
for i=2 to int(sqrt(n)+1)
if n%i=0
exit
endif
endfor
if n=2
?alltrim(str(n))+是一个素数
endif
if
文档评论(0)