Решение квадратного уравнения

[Эммануэль]

Здравствуйте! Могу ли я рассчитывать на подсказку?
Я уже все глаза проглядела в своей программе, но не могу найти ошибку (я ещё новичек). Подскажите где я ошиблась?

[Pein95]

а что собственно не работает?

[Эммануэль]

Результаты выдаются фальшивые! Проверено!

[Pein95]

var
a,b,c,d,x1:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
d:=(b*b)-(4*a*c);
d:=sqrt(d);
b:=b*(-1);
x1:=(b+d)/(2*a);
edit4.text:=floattostr(x1);
end;

вроде щитает правильно проверь

вот токо что проверил твою прогу она работает...

[Эммануэль]

Что-то никак не пойму, где я должна это вписать?

[Pein95]

такс не надо ничего вписывать я прверил твою прогу работает нормально проверял на таких даных:а=2, b=4, c=1
результаты верны
d= 16-8=8
sqrt(d)=2.8
x1=(-4+2.8)/4=-0.3
x2=(-4-2.8)/4=-1.7
в своей проге в етой строчке
x2:=( b+Sqrt(d)) / (2*a);
знак измени должно быть так:
x2:=( b-Sqrt(d)) / (2*a);

[Эммануэль]

Ну ладно, не буду вам с ума сводить, пусть останется как есть. Просто любопытно что если корень один - программа врет. a=2,b=-4,c=2

[Pein95]

Добавте проверку if d= 0 then
...

[Эммануэль]

Спасибо!
Хочу сказать честно, программу я не совсем сама написала - с миру по нитке. Беда вот в чем - преподаватель требует чтобы проект состоял из трёх форм. Ввод на одной, результаты на другой, если нет корней - на третьей. Как такое вообще можно сделать?

[Pein95]

странно както я почти уверен что вы без понятия как работает то что вы написали (хотя я сомневаюсь что ето вы писали)...