Question

简单的VFP问题：结构化程序设计

1、建立"shiyan-4"文件夹，并设置为默认路径
2、编程及上机操作：
1) 求出所有的水仙花数。(prog4-1.prg)
2) 求裴波那契数列1，1，2，3，5，8，....的前30个项。(prog4-2.prg)
3) 求从键盘上输入任意20个数，输出其中最大数和最小数。(prog4-3.prg)
4) 求任意两个整数的最大公约数和最小公倍数。(prog4-4.prg)
5) 输入任意整数X，逆序显示(prog4-5.prg)
6) 输入任意ASCII字符串，逆序显示。(prog4-6.prg)
7) 自然数的平方和(prog4-7.prg)
8) 自然数的倒数和(prog4-8.prg)
9) 输入任意ASCII字符串，找出其中的大写字母、小写字母或数字的个数。(prog4-9.prg)

Answer 1

*水仙花数
clear
a=100
do while a>=100 and a<1000
x1=int(a/100)
x2=int(mod(a,100)/10)
x3=mod(a,10)
if a=x1^3+x2^3+x3^3
?a
endif
a=a+1
enddo
return
*裴波那契数列
a=1
b=1
?a
?b
for n=3 to 30
c=a+b
a=b
b=c
?c
endfor
*最大数和最小数
clear
input "请输入一个数：" to a
store a to max,min
for n=2 to 20
input "请输入一个数：" to a
if max<a
max=a
endif
if min>a
min=a
endif
endfor
?"最大数为：",max
?"最小数为：",min
return
*最大公约数和最小公倍数
input "请输入整数一：" to a
input "请输入整数二：" to b
if a<b
t=b
b=a
a=t
endif
t=a*b
do while b#0
c=a%b
a=b
b=c
enddo
t=t/a
?"最大公约数为:",a
?"最小公倍数为:",t
*逆序输出
input "请输入任意数：" to a
x=0
do while a#0
b=a%10
x=x*10+b
a=int(a/10)
enddo
?x
*输入任意ASCII字符串，逆序显示
accept"请输入任意ASCII字符串："to a
n=len(a)
b=""
m=1
do while m<=n
b=b+right(a,1)
a=left(a,n-m)
m=m+1
enddo
?b
自然数的平方和
input"请任意输入一个自然数" to n
i=1
s=0
do while i<=n
s=s+i^2
i=i+1
enddo
messagebox("该自然数的平方和为："+alltrim(str(s)),"本题答案")
* 求自然数的倒数和
input"请任意输入一个自然数" to n
i=1
s=0
do while i<=n
s=s+(1/i)
i=i+1
enddo
?"该自然数的倒数和为:",s
* 输入任意ASCII字符串，找出其中的大写字母、小写字母或数字的个数
clear
accept "请输入任意一个字符串：" to a
n=len(a)
x=0
y=0
z=0
for i=1 to n
b=substr(a,i,1)
do case
case ASC(b)>=65 and ASC(b)<=90
x=x+1
case ASC(b)>=97 and ASC(b)<=122
y=y+1
case b>="0" and b<="9"
z=z+1
endcase
endfor
?"该串中大写字母个数：",x
?"该串中小写字母个数：",y
?"该串中数字个数：",z
return

Answer 2

“大大老兵”是个高手。

clear
accept "请输入任意一个字符串" to a
m=len(a)
store 0 to da,xiao,shu
for i=1 to m
b=substr(a,i,1)
c=asc(b)
do case
case c>=65 and c<=90
da=da+1
case c>=97 and c<=122
xiao=xiao+1
case c>=48 and c<=57
shu=shu+1
endcase
endfor
?"该串中大写字母个数：",da
?"该串中小写字母个数：",xiao
?"该串中数字个数：",shu
return

Answer 3

哥们，这书上都有现成的……