Question

急！！！求解Visual FoxPro的题

1，任意输入两个数，按从大到小的顺序输出这两个数。
2，任意输入一个年份，判断该年是否为闰年。
3，任意输入一个正整数，编写程序求0到该数之间所有的奇数的和。

Answer 1

1、
clear
input "请输入第1个数：" to a
input "请输入第2个数：" to b
?max(a,b),min(a,b)

2、
clear
input "请输入年份：" to x
if x%4=0
?"是闰年"
else
?"不是闰年"
endif

3、
clear
input "请输入一个正整数：" to x
s=0
for i=1 to x step 2
s=s+i
endfor
?"0到该数之间所有的奇数的和是：",s

追问

再问一个啊 嘿嘿 求解AX²+BX+C=0的根、其中A、B、C三个参数由用户自己输入。假设输入的数据能使：b²-4ac＞0成立 谢谢啊

追答

clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input "请输入a的值：" to a
input "请输入b的值：" to b
input "请输入c的值：" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是：",x1
?"x2的值是：",x2
else
?"此方程无实根!"
endif