pascal编程二元一次方程实数根求二元一次方程 ax*x+bx+c=0(a0)的实数根用PASCAL语言.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/07 13:30:29

pascal编程二元一次方程实数根求二元一次方程 ax*x+bx+c=0(a0)的实数根用PASCAL语言.
pascal编程二元一次方程实数根
求二元一次方程 ax*x+bx+c=0(a0)的实数根
用PASCAL语言.

pascal编程二元一次方程实数根求二元一次方程 ax*x+bx+c=0(a0)的实数根用PASCAL语言.
这好像是一元二次方程吧?
var
det:real;
a,b,c:integer;
begin
read(a,b,c);
det:=sqr(b)-4*a*c;
if det