1. 编写程序求数列2/1,3/2,5/3,8/5,m/n,m+n/m的前二十项和。
新建一个程序(文件菜单——新建——程序——新建文件),写代码:
sum=0 temp=0 j=2 k=1 for i=1 to 20 temp=j/k sum=sum+temp j=j+k k=j-k next ? "数列2/1,3/2,5/3,8/5,m/n,m+n/m的前二十项和是: ",sum
图:
2. 从键盘输入一串字符串,统计其中的字母(不分大小写),数字和其他字符的个数。
新建一个程序(文件菜单——新建——程序——新建文件),写代码:
ept "请输入一个字符串:" to s x1=0 x2=0 x3=0 for i=1 to len(s) t=asc(substr(s,i,1)) if t>=65 and t<=90 or t>=97 and t<=122 x1=x1+1 else if t>=48 and t<=57 x2=x2+1 else x3=x3+1 endif endif next ?"字母的个数:",x1 ?"数字的个数:",x2 ?"其它字符的个数:",x3
图:
*题目:求当1!+3!+5!+...+N!的值不超过10的20次幂时的临界值及N的值
*-------------------------------------------------------
*注意:不可以增加或删除程序行,也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
CLEAR
***********FOUND**********
S=0
STORE 1 TO T,N
DO WHILE S<=1E+20
T=T*(N+1)*(N+2)
S=S+T
***********FOUND**********
N=N+1
ENDDO
***********FOUND**********
?"S=",S-T
?"N=",N-2
SET TALK ON
例子二
1000之内能被3和7整除的数的个数
SET TALK OFF CLEAR N=1 S=0 DO WHILE N<=1000 IF INT(N/3)=N/3 AND INT(N/7)=N/7 S=S+1 ??N ENDIF N=N+1 ENDDO ?"1000之内能被3和7整除的数的个数和为:"+ alltrim (STR(S,5)) SET TALK ON 例子三
若干数中最大最小数
set talk off clear
input "m=" to m store m to d,x
do while .t. input "n=" to n if d<n d=n endif if x>n x=n endif
wait "是否继续输入:" to YN if upper(YN)="Y" loop else exit endif enddo ?"最大数是:",d ?"最小数是:",X
3C云互联怎么样?3C云互联专注免备案香港美国日本韩国台湾云主机vps服务器,美国高防CN2GIA,香港CN2GIA,顶级线路优化,高端品质售后无忧!致力于对互联网云计算科技深入研发与运营的极客共同搭建而成,将云计算与网络核心技术转化为最稳定,安全,高速以及极具性价比的云服务器等产品提供给用户!专注为个人开发者用户,中小型,大型企业用户提供一站式核心网络云端服务部署,促使用户云端部署化简为零,轻松...
Sharktech 鲨鱼机房商家我们是不是算比较熟悉的,因为有很多的服务商渠道的高防服务器都是拿他们家的机器然后部署高防VPS主机的,不过这几年Sharktech商家有自己直接销售云服务器产品,比如看到有新增公有云主机有促销活动,一般有人可能买回去自己搭建虚拟主机拆分销售的,有的也是自用的。有看到不少网友在分享到鲨鱼机房商家促销活动期间,有赠送开通公有云主机$50,可以购买最低配置的,$49/月的...
IMIDC发布了6.18大促销活动,针对香港、台湾、日本和莫斯科独立服务器提供特别优惠价格最低月付30美元起。IMIDC名为彩虹数据(Rainbow Cloud),是一家香港本土运营商,全线产品自营,自有IP网络资源等,提供的产品包括VPS主机、独立服务器、站群独立服务器等,数据中心区域包括香港、日本、台湾、美国和南非等地机房,CN2网络直连到中国大陆。香港服务器 $39/...