下列数字表达式表示成PASCAL 急 好的话多加1百

来源：百度知道 编辑：UC知道 时间：2024/06/16 21:57:56
ax +bx+c=0 输入2次方程的系数a,b,c（输入数据的选项应保证2次方程为实根），计算并输出2次方程的两个实根。2次方程为
2
ax +bx+c=0

var
delta,a,b,c,x1,x2:real;
begin
readln(a,b,c);
delta:=b*b-4*a*c;
if delta<0 then writeln('No Ans') else
begin
x1:=(-b+delta)/2/a;
x2:=(-b-delta)/2/a;
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
end;
end.

怎么会是两个实根?不是一个吗?

var a,b,c:longint;
begin
readln(a,b,c);
writeln((0-c)/(a+b));
end.

我的最佳!!!

var
a,b,c:integer;
begin
read(a,b,c);
if a=0 then write('NO SOLUTION')
else if sqr(b)-4*a*c<0 then write('NO SOLUTION')
else write('Y E S');
end.