思路：计算b^2-4ac的值,如果其值是大于0,有两个不等的实数解；等于0,有两个相等的实数解；小于0则方程无实数解.

　　编程如下：

　　if(b^2-4*a*c)>=0then

　　x1=(-b+sqrt(b^2-4*a*c))/(2*a)

　　x2=(-b-sqrt(b^2-4*a*c))/(2*a)

　　else

　　msg"方程无解"

　　endif

　　msg"方程的解为x1=";x1

　　msg"方程的解为x2=";x2