拓展1. 将以下解一元二次方程ax2+bx+c=0程序框图转化为程序.
观察程序框图能够发觉，其中包含两个条件结构，而且内层条件结构是外层调解结构一个分支。所以，能够用“IF-THEN-ELSE-END 语句来完成转化。
END
INPUT “a，b，c=”；a，b，c
d=b∧2-4*a*c
IF d>=0 THEN
p= -b/(2*a)
q=SQR(d)/(2*a)
IF d=0 THEN
PRINT “x1=x2=”；p
ELSE
PRINT “x1，x2=”；p+q，p-q
END IF
ELSE
PRINT “No real root.”
END IF