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
农历春节将至,腾讯云开启了热门爆款云产品首单特惠秒杀活动,上海/北京/广州1核2G云服务器首年仅38元起,上架了新的首单优惠活动,每天三场秒杀,长期有效,其中轻量应用服务器2G内存5M带宽仅需年费38元起,其他产品比如CDN流量包、短信包、MySQL、直播流量包、标准存储等等产品也参与活动,腾讯云官网已注册且完成实名认证的国内站用户均可参与。活动页面:https://cloud.tencent.c...
RAKsmart发布了9月份优惠促销活动,从9月1日~9月30日期间,爆款美国服务器每日限量抢购最低$30.62-$46/月起,洛杉矶/圣何塞/香港/日本站群大量补货特价销售,美国1-10Gbps大带宽不限流量服务器低价热卖等。RAKsmart是一家华人运营的国外主机商,提供的产品包括独立服务器租用和VPS等,可选数据中心包括美国加州圣何塞、洛杉矶、中国香港、韩国、日本、荷兰等国家和地区数据中心(...
我们很多老用户对于BuyVM商家还是相当熟悉的,也有翻看BuyVM相关的文章可以追溯到2014年的时候有介绍过,不过那时候介绍这个商家并不是很多,主要是因为这个商家很是刁钻。比如我们注册账户的信息是否完整,以及我们使用是否规范,甚至有其他各种问题导致我们是不能购买他们家机器的。以前你嚣张是很多人没有办法购买到其他商家的机器,那时候其他商家的机器不多。而如今,我们可选的商家比较多,你再也嚣张不起来。...