квадратное уравн(есть решение)

[sllh_111]

Всем привет. Помогите проверить домашнюю работу по информатике. Вроде все работает, но может где есть ошибки?

Задание: В соответствии с этапами решения задач на ЭВМ решить задачу: Составить программу нахождения корней квадратного уравнения: ax2 + bx + c = 0.


Сама программа:

Program Ex_1;
Uses crt;
Var a,b,c: Integer;
x1,x2,d: Real;
begin clrscr;
writeln (‘Vvedite a’); read (a);
writeln (‘Vvedite  b’); read (b);
writeln (‘Vvedite c’); read (c);
d:=sqr(b)-4*a*c;
if d<0 then writeln (‘kornei net’);
if d=0 then begin x1:=(-b+sqrt(d))/2*a;
writeln(‘x=’,x1); end;
if d>0 then begin 
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln (‘x1=’,x1);    
writeln (‘x2=’,x2);
end;
end.

[savva]

if d=0 then begin x1:=(-b+sqrt(d))/2*a;

зачем это условие? удали,либо напиши
if d=0 then begin x1:=(-b)/2*a;
writeln(‘x1=x2=’,x1); end;

[sllh_111]

savva
спасибо исправлю :-)

никто еще ошибок не увидел???