[qwerty1992]

разработать приложение для решений квадратных уравнений. Реализовать:
(a)определение количества корней уравнения;
(b)Вывод значения корней.
НА форме должны быть предоставлены компоненты для ввода коэффициентов и вывода результата. Отслеживание ошибок обязательно!!!

[Konrad]

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

разработать приложение для решений квадратных уравнений. Реализовать:
(a)определение количества корней уравнения;
(b)Вывод значения корней.
НА форме должны быть предоставлены компоненты для ввода коэффициентов и вывода результата. Отслеживание ошибок обязательно!!!

Ниче так...
А губозакатующую машинку не надо?

В разделе работа тебе помогут.( за деньги):
http://www.delphisources.ru/forum/forumdisplay.php?f=34

Тебе месяц назад решили задачу, и ты пришел уже с двумя.
А что будет через месяц? Три, четыре задачи?

[ALexandr555]

не в ту тему конечно ты это

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,x1,x2: Real;
begin
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(Edit3.text);
D:=Sqr(b)+4*a*c;
If D > 0 then begin
//два корня
x1:=(-b+Sqrt(D))/(2*a);
x2:=(-b-Sqrt(D))/(2*a);
ShowMessage('x1='+FloatToStr(x1)+'; x2='+FloatToStr(x2));
end
else if D = 0 then begin
//один корень
x1:=-b/2*a;
x2:=-b/2*a;
ShowMessage('x1='+FloatToStr(x1)+'; x2='+FloatToStr(x2));
end
else if D < 0 then begin
ShowMessage('Корней нет, уравнение решения не имеет!');
end;
end;

ну вот тебе