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
艾云怎么样?艾云是一家去年年底成立的国人主机商家,商家主要销售基于KVM虚拟架构的VPS服务,机房目前有美国洛杉矶、圣何塞和英国伦敦,目前商家推出了一些年付特价套餐,性价比非常高,洛杉矶套餐低至85元每年,给500M带宽,可解奈飞,另外圣何塞也有特价机器;1核/1G/20G SSD/3T/2.5Gbps,有需要的朋友以入手。点击进入:艾云官方网站艾云vps促销套餐:KVM虚拟架构,自带20G的防御...
HostYun 商家以前是玩具主机商,这两年好像发展还挺迅速的,有点在要做点事情的味道。在前面也有多次介绍到HostYun商家新增的多款机房方案,价格相对还是比较便宜的。到目前为止,我们可以看到商家提供的VPS主机包括KVM和XEN架构,数据中心可选日本、韩国、香港和美国的多个地区机房,电信双程CN2 GIA线路,香港和日本机房,均为国内直连线路。近期,HostYun上线低价版美国CN2 GIA ...
农历春节将至,腾讯云开启了热门爆款云产品首单特惠秒杀活动,上海/北京/广州1核2G云服务器首年仅38元起,上架了新的首单优惠活动,每天三场秒杀,长期有效,其中轻量应用服务器2G内存5M带宽仅需年费38元起,其他产品比如CDN流量包、短信包、MySQL、直播流量包、标准存储等等产品也参与活动,腾讯云官网已注册且完成实名认证的国内站用户均可参与。活动页面:https://cloud.tencent.c...