- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
常见VFP结构化程序设计
01、从键盘任意输入一个3位整数,若输入的数据不是一个3位整数则给出提示信息,编程实现3位整数的逆序输出。
方法一
SET TALK OFF
CLEAR
INPUT 请输入一个三位数: TO A
If a100 and a1000
A1=int(a/100)
A2=int(mod(a,100)/10)
A3=mod(a,10)
?a1+10*a2+100*a3
Else
Messagebox(输入的不是三位数,请重新输入!)
ENDIF
SET TALK ON
RETURN
方法二
若要求输出的数必须是三位整数,则程序如下:
SET TALK OFF
CLEAR
INPUT 请输入一个三位数: TO A
If a100 or a=1000 or mod(a,100)=0
Messagebox(输入的不是三位数或重排后不是三位数,请重新输入!)
Else
A1=int(a/100)
A2=int(mod(a,100)/10)
A3=mod(a,10)
?a1+10*a2+100*a3
ENDIF
SET TALK ON
RETURN
方法三
clear
accept请输入一个三位整数: to x
n=len(x)
s=
for i=3 to 1 step -1
s=s+substr(x,i,1)
endfor
?逆序输出为:,s
return
02、键盘输入n,求N!
方法一
Set talk off
Clear
P=1
Input “请输入N:” to n
For i=1 to n
p=p*i
Endfor
? “N!=”,p
Set talk on
Return
方法二
clear
inputn=to n
s=1
do while n0
s=s*n
n=n-1
enddo
?n!=,s
return
03、计算e的近似值。其公式为:e=1+1/1!+1/2!+1/3!+…+1/n!,直到1/n!0.000001为止。
方法一
Set talk off
Clear
E=1
t=1
i=1
Do while .t.
T=1
For k=1 to i
T=t*k
Endfor(Next k)
i=i+1
If 1/t0.000001
Exit
Endif
E=e+1/t
Enddo
? ”e=”,e
Set talk on
Return
方法二
Set talk off
clear
e=0 累加和
f=1 存放阶乘
k=1 累积项
do while 1/f=0.000001
e=e+1/f
f=f*k
k=k+1
enddo
?e=,e
Set talk on
return
04、编程:求S=1-1/2+1/3-1/4+1/5-……-1/100。
方法一
set talk off
CLEAR s=0 i=0 FOR i=1 TO 100 STEP 1 IF i%2=0 s=s-1/i ELSE s=s+1/i endif ENDFOR ?s
Set talk on
Return
方法二
Set talk off
clear
s=0 累加和赋除值
f=1 符号变量
for i=1 to 100
s=s+f*1/i
f=-1*f 改变符号
endfor
?s=,s
Set talk on
return
05、用循环输出下列图形。
*
* * *
* * * * *
* * * * * * *
方法一:
SET TALK OFF
CLEAR
r=1
cc=10
DO WHILE r=4
s=1
DO WHILE s=2*r-1
@r,cc SAY “*”
cc=cc+1
s=s+1
ENDDO
cc=10-r
r=r+1
ENDDO
RETURN
方法二:
clear
input 请输入层数:to n
for i=1 to n 控制行数
??space(40-i) 设置每一行起始列位
for j=1 to 2*i-1 控制每一行星号个数
??*
endfor
? 换行
endfor
06、输出乘法口诀表(下三角形的形式输出)。
试用固
文档评论(0)