Паскаль, квадратное уравнение

Question

Пожалуйста, доведите до ума. 
Иногда выдает неверный x1 или x2. 
 
Program yravnenie; 
var 
 a,b,c,d,x,xx:real; 
Begin 
 Writeln('Введите A'); 
 Readln(a); 
 Writeln('Введите B'); 
 Readln(b); 
 Writeln('Введите C'); 
 Readln(c); 
 d:=(b*b)-(4*a*c); 
 WriteLn('D=',d:3:2); 
 If (d>0) then 
 begin 
 x:=(-b+sqrt(d))/(2*a); 
 Writeln('x=',x:3:3); 
 xx:=(-b-sqrt(d))/(2*a); 
 Writeln('xx=',xx:3:3); 
 End; 
 If (d=0) then 
 begin 
 x:=(-b)/(2*a); 
 Writeln('x=',x:3:3); 
 End; 
 If (d<0) then 
 begin 
 Writeln('Уравнение не имеет корней'); 
 end; 
end.

Denis · Accepted Answer

Тока не паскаль. Он меня и так зае.. ал на уроках програмирования

Екатерина Бурдукова · Answer

Во первых если d<0 то уравнение имеет комплексные корни, во вторых если a=0 (b!=0) программа вылетает. А так вроде всё правильно. Только вот ты уверен что "-b" работает? поменяй на b*(-1) 
 
Лови 
 
Program Sq2; 
Var A, B, C, D, X, X1, X2 : Real; 
Begin 
Writeln ('Введите коэффициенты уравнения (A, B, C) '); 
readln(a,b,c); 
If A=0 Then 
If B=0 Then 
If C=0 Then Writeln('X - любое число') 
Else Writeln('Корней нет! ') 
Else 
Begin 
X:=-C/B; 
Writeln('X=',X:8:3); 
End 
Else 
Begin 
D:=B*B-4*A*C; 
If D<0 Then Writeln ('Корней нет! ') 
Else 
Begin 
X1:=(-B+SQRT(D))/2/A; 
X2:=(-B-SQRT(D))/2/A; 
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3); 
End; 
End; 
End.

Андрей Таранин · Answer

Program yravnenie; 
var 
a,b,c,d,x,xx:real; 
Begin 
Writeln('Введите A'); 
Readln(a); 
Writeln('Введите B'); 
Readln(b); 
Writeln('Введите C'); 
Readln(c); 
d:=(b*b)-(4*a*c); 
WriteLn('D=',d:3:2); 
If (d>0) then 
begin 
x:=(-b+sqrt(d))/(2*a); 
Writeln('x=',x:3:3); 
xx:=(-b-sqrt(d))/(2*a); 
Writeln('xx=',xx:3:3); 
End; 
If (d=0) {скобки не нужны} then 
begin 
x:=(-b)/(2*a); 
Writeln('x=',x:3:3); 
End; 
If (d<0) then 
begin 
Writeln('Уравнение не имеет корней'); 
end; {Убрать Begin и End} 
end.

Елена Шишканова · Answer

почти все верно, но при d=0 х1=х2=(-b)/(2*a); Уравнение имеет 2 одинаковых корня!!!!