паскаль дискриминант

не правильно вычисляет дискриминант...
Program sqr;
Var
x1,x2,a,b,c,d:real;
Begin
Write(\'a =\');
Read(a);
Write(\'b =\');
Read(b);
Write(\'c =\');
Read(c);
if a<=0 then
d:=b*b-(4*c);
if a>0 then
d:=b*b-(4*a*c);
WriteLn(d);
{If a<=0 then
x1:=(-b)+sqr(d)/2;
If a >0 then
x1:=(-b)+sqr(d)/2*a;
WriteLn(x1);
If a<=0 then
x2:=(-b)-sqr(d)/2;
If a >0 then
x1:=(-b)-sqr(d)/2*a;
WriteLn(x2);}
end.

if a<=0 then
d:=b*b-(4*c);
не правильно! Если а меньше 0 - оно вычисляется, если равно 0 - дискриминант равен b*b.
снеси это условие. И прочитай учебник

Изм. 1 раз. / Посл. изм.

nazar 11.43

(24 июл 2013, 13:34)

DjDance, блин .. стыдно((
исправил, но опять таки что-то не то....
Добавлено 24.07.13 в 14:05:34:
нашел. крою

Тема закрыта для обсуждения!