fcqj.prg

来自「几个VFP程序实例」· PRG 代码 · 共 19 行

set talk off
a=12
b=666
c=2
if a<>0
if b*b-4*a*c>=0
x1=(-b+sqrt(b*b-4*a*c))/(2*a)
x2=(-b-sqrt(b*b-4*a*c))/(2*a)
? "x1="
?? x1
? "x2="
?? x2
else
? "此方程没有实数解!"
endif
else
? "a不能为0!"
endif
set talk on