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
RAKsmart 商家八月份的促销活动今天更新。基本上和上个月的产品套餐活动差不多的,不过也是有简单的微调。对于RAKsmart商家还是比较了解的,他们家产品虽然这两年增加多个机房,以及在VPS主机方案上有丰富的机房和调整到一些自营机房,他们家的策划能力还是有限,基本上每个月的套餐活动都差不多。RAKsmart 在八月份看到有新增香港高防服务器可选,最高100GB防御。同时原来上个月缺货的日本独立...
部落曾经在去年分享过一次Boomer.host的信息,商家自述始于2018年,提供基于OpenVZ架构的VPS主机,配置不高价格较低。最近,主机商又在LET发了几款特价年付主机促销,最低每年仅4.95美元起,有独立IPv4+IPv6,开设在德克萨斯州休斯顿机房。下面列出几款VPS主机配置信息。CPU:1core内存:512MB硬盘:5G SSD流量:500GB/500Mbps架构:KVMIP/面板...
欧路云 主要运行弹性云服务器,可自由定制配置,可选加拿大的480G超高防系列,也可以选择美国(200G高防)系列,也有速度直逼内地的香港CN2系列。所有配置都可以在下单的时候自行根据项目 需求来定制自由升级降级 (降级按天数配置费用 退款回预存款)。由专业人员提供一系列的技术支持!官方网站:https://www.oulucloud.com/云服务器(主机测评专属优惠)全场8折 优惠码:zhuji...