input "a,b,c=";a,b,c
if a=0 then
 if b=0 then
   if c=0 then
     print "方程有无数解＂
　 else
     print "方程无解＂
   end if
  else
  print "x=";-b/(2*a)
  end if
else
d=b^2-4*a*c
 if d<0 then 
  print "方程无解"
  else
   p=-b/(2*a)
   q=sqr(d)/(2*a)
   if d=0 then 
    print "x=";p
   else
    print "x1=";p-q,"x2=";p+q
   end if
 end if 
end if
end

第 1 楼   

input "a,b,c=";a,b,c
if a=0 then
 if b=0 then
   if c=0 then
     print "方程有无数解＂
　 else
     print "方程无解＂
   end if
  else
  print "x=";-b/(2*a)
  end if
 
end     
好象到这里就ok拉