Question

vfp程序题

1、编写一个程序，判断所所入的一个字符时英语字母、数字符号或特殊符号（数字符号和字母之外），并给出相应的提示。

2、编写程序计算e，e的近似值计算公式为：
e=1+1/1!+1/2!+1/3!+……+1/n!
直到1/n!<0.000001为止。

3、编写一个程序产生一个有20项的Fibonacci数列并输入。注：Fibonacci数列的前两项为1，从第三项开始每一项是其前两项之和。

都是原题。

希望大家帮助解决下！！！ 谢谢！

Answer 1

这三道题我已经上机试过了，正确！

1.
clear
accept "请输入任意一个字符：" to x
do case
case x>="A" and x<="Z" or x>="a" and x<="z"
?"您输入的是英语字母"
case asc(x)>=48 and asc(x)<=57
?"您输入的是数字"
otherwise
?"您输入的是英语字母、数学之外的特殊符号"
endcase
return

2.
clear
set talk off
e=1

m=1
do while .t.
p=1
for i=1 to m
p=p*i
endfor
if 1/p<0.000001
exit
else
e=e+1/p
m=m+1
endif
enddo
?"e=",e
set talk on
return

3.
clear
set talk off
f1=1
f2=1
?f1,f2
for i=3 to 20
f3=f1+f2
??f3
f1=f2
f2=f3
endfor
set talk on
return