求一元二次方程的根

【题目描述】
    输入a,b,c，求一元二次方程ax2+bx+c=0的根。

【解题思路】

program fangcheng_1; var a,b,c:integer;     p,x1,x2:real; begin write('please input a,b,c'); readln(a,b,c); p:=b*b-4*a*c; if p>=0 then begin               p:=sqrt(p);               x1:=(-b+p)/(2*a);               x2:=(-b-p)/(2*a);               writeln(x1,x2);              end          else writeln('sorry,you are wrong!'); readln; readln end.

答案:

program lbyd; var a,b,c:integer;     p,x1,x2:real; begin write('please input a,b,c'); readln(a,b,c); p:=b*b-4*a*c; if p>=0 then begin               p:=sqrt(p);               x1:=(-b+p)/(2*a);               x2:=(-b-p)/(2*a);               writeln(x1,x2);              end          else writeln('sorry,you are wrong!'); readln; readln end.