有关VFP编程问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 20:05:02
1.编程产生菲波拉契数列20项。（例如：0，1，1，2，3，5，8，13……）

2.编程求解一元二次方程AX^2+BX+C=0,系数A,B,C通过键盘输入。

3.编程求100～1000之间的水仙花数。（例如：153=1^3+5^3+3^3）

1.
dimension a(20)
a(1)=1
a(2)=1
for i= 3 to 20
a(i)=a(i-1)+a(i-2)
endfor
for i=1 to 20
? a(i)
endfor
2.
input "a=:" to a
input "b=:" to b
input "c=:" to c
d=b*b-4*a*c
if d>=0
x1=(-b+sqrt(d))/(2*a)
x2=(-b-sqrt(d))/(2*a)
endif
?"x1=';x1,'x2=';x2
3.
for x=100 to 999
a=int(x/100)
b=int((a-a*100)/10)
c=x-a*100-b*10
if x=a^3+b^3+c^3
? x
endif
endfor

1.
clea
s=0
a=1
b=1
?a,b
for i=1 to 18
s=a+b
t=a
a=a+b
b=t
??s
endfor

2.
CLEAR
?"请输入数据A"
INPUT TO A
?"请输入数据B"
INPUT TO B
?"请输入数据C"
INPUT TO C
DELTA=B*B-4*A*C
DO CASE
CASE DELTA>0
?"方程有两个不相等的实数根:"
??(-B+SQRT(DELTA))/(2*A)
?