vf 程序设计命令1)设计一个程序输入数据,正数返回是1,负数是-1,0是0 2)求一元2次方程是否有解

1、
clear
input "请输入一个数：" to x
do case
case x>0
?"1"
case x=0
?"0"
case x<0
?"-1"
endcase

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

这个简单，第一题：
input "请输入一个数：" to x
?iif(x>0,1,iif(x=0,0,-1)
return
第二题：
input "请输入二次项系数：" to a
input "请输入一次项系数：" to b
input "请输入常数项：" to c
m=b*b-4*a*c
?iif(m>0,"有两个不等的实数解",iif(m=0,"有一个实根","无实根")
return