Решить квадратное уравнение в Delphi

[snejnbumer]

Delphi даны коэффициенты квадратного уравнения ax в квадрате+bx +c=0 решить в delphi. Нужно срочно

[Аватар]

Алгоритм
1. Вводишь коэффициенты
2. Если a=0 - вырожденное, выход
2. Считаешь дискриминант
3. Если < 0 - нет решения, выход (можешь найти решение в комплексных числах)
4. Если = 0 - один корень, находишь, выход
5. Если > 0 - два корня, находишь, выход

[type_Oleg]

А вот так почему бы не сделать ? Я сделал и нашел кучу ответов.
И еще, если там не Delphi , а Pascal - тоже годится. Только ввод и вывод сделать по другому.

[саша40]

Решить простое квадратное уравнение легче всего с помощью метода дискримината.
Делается это так:
1. Получаем сам дискриминат.

D:=Sqr(B) - 4*a*c;

, где D- дискриминат.
2. Далее проверяем дискриминат. Если D<0, то корней нет и некогда не будет. Парабала не имеет пересечения с осью Х. Если D=0, то корень один и считается по формуле:

x:=-b/(2*a);

Если D>0, то корня два и оба получаются по формулам:

x1:=(-b+Sqrt(D))/(2*a);
х2:=(-b-Sqrt(D))/(2*a);

Готово. Все переменные бери типа real. В строку и обратно преобразуются функциями: FloatToStr и StrToFloat.

[type_Oleg]

саша40, чтобы не усложнять оператор if, случай D=0 можно не выделять.
Будет считаться (-b+0)/(2*a) и т.д.

[Rin]

var Ha, Kou, xep, I_am, nocTynaJI, B , yHuBep:double;

begin
write ('BBeDuTe Ha: ');
readln(xep);
write ('BBeDuTe Kou: ');
readln(I_am);
write ('BBeDuTe nocTynaJI: ');
readln(B);
yHuBep:=0;
If (xep=yHuBep) then exit;
yHuBep:=I_am*I_am - 4*B*xep;
if yHuBep<0 then begin writeln('Tenepb TbI B ApMuu Hax__'); exit; end;
if yHuBep=0 then begin writeln('KopeHb 3JIa= ',-I_am/(2*xep)) end;
if yHuBep>0 then begin writeln('A ya TepyaIO KopHuuuuu  ',(-I_am+yHuBep)/(2*xep),' uuuuuu '
                               ,(-I_am-yHuBep)/(2*xep)) end;
readln;

[snejnbumer]

получилось так

var a,b,c,x1,x2,d:real;
begin
a:=strtofloat(Edit1.text);
b:=strtofloat(Edit2.text);
c:=strtofloat(Edit3.text);
d:=sqr(b)-4*a*c;
if d>0 then x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a)
else if d=0 then x1:=-b/(2*a);
else x1:='íåò êîðíåé';
Edit4.Text:=floattostr(x1);
Edit5.Text:=floattostr(x2);
end;

else if d=0 then x1:=-b/(2*a); не правильно где я мог на путать

[type_Oleg]

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

... где я мог на путать

Вот здесь

if d>0 then x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a)
 else if d=0 then x1:=-b/(2*a);
 else x1:='íåò êîðíå&#233 ;';

даже непонятно, что имелось в виду вот тут

else x1:='íåò êîðíå&#233 ;';

У вас что, x1 присваиватся какая-то строка текста ?

Вот, так работает например

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x1,x2,d:real;
begin
 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit2.Text);
 c:=StrToFloat(Edit3.Text);
 d:=b*b-4*a*c;
 if d<0 then
  begin
   Edit4.Text:='корни мнимые';
   Edit5.Text:='корни мнимые';
   Exit;      //  все, выход из обработчика
  end;
 x1:=(-b-Sqrt(d))/(2*a);
 x2:=(-b+Sqrt(d))/(2*a);
 Edit4.Text:=FloatToStr(x1);
 Edit5.Text:=FloatToStr(x2);
end;

[min@y™]

Эт вот так, штоль?

Писал одним пальцем, лёжа на диване.