Qu 1.0 - программа для решения квадратных уравнений

[DM_bite]

Написал программу для решения квадратных уравнений....Говорю сразу,серьезно Delphi начал изучать месяц назад, так что сильно не критикуйте....

[DM_bite]

И никаких отзывов.........

[Viteef]

Работает. Чего же боле? Что я могу еще сказать? (с)

[Карась]

А почему дискриминант записывается в правой части уравнения?

[DM_bite]

Ну как дискриминант является результатом решения самого квадратного уравнения.А сами корни выходят из дискриминанта и значений b и a.

[GOOD]

Сообщение от DM_bite

И никаких отзывов.........

А у тя прога не правильно счетает)))
Ты видно в формуле забыл деленое на (2*а)

...if d >= 0 then begin
x1:=(-b+Sqrt(d))/(2*a);
x2:=(-b-Sqrt(d))/(2*a);
ShowMessage('x1='+FloatToStr(x1)+'x 2='+FloatToStr(x2));
end
else ShowMessage('Уравнение не имеет корней.');...
Вот те частичный код
/(2*a); - а вот это ты походу забыл)))