Question

关于VFP上机实验的三道关于表单设计的作业题，急求答案。

输入3个不同的数a,b,c，将它们从大到小排列后输出。

输入一个整数，判定并输出该整数的奇偶性。

输入一元二次方程的3个系数求其根。

拜托解答一下。。急求，我是VF白痴啊，我们的作业，今晚就要截止了。

Answer 1

1、
clear
dime a(3)
for i=1 to 3
input "请输入一个数：" to a(i)
endfor
?"降序排列为："
for i=1 to 2
for j=i+1 to 3
if a(i)<a(j)
k=a(i)
a(i)=a(j)
a(j)=k
endif
endfor
??alltrim(str(a(i)))+" "
endfor
??alltrim(str(a(i)))

2、
clear
input "请输入一个整数：" to x
if x/2=int(x/2)
?"是偶数"
else
?"是奇数"
endif

3、
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