Цитата:
|
Сообщение от Misterhomer
зачем так сложно????!!!!!!!!!!!!!!!!!!!!!
следуй примеру Konrad
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
if (a>=0) and (b>=0) and (c>=0) then
begin
d:= sqr(b)- 4*a*c;
if d>=0 then
begin
x1:= (-b + sqrt(d))/(2*a);
x2:= (-b - sqrt(d))/(2*a);
Label4.Caption := 'x1='+ FloatToStrF(x1,ffFixed,6,2)+#13+
'x2=' + FloatToStrF(x2,ffFixed,6,2);
end;
end;
|
Не знаю
( спасибо...все варианты попробую... А что это программа с отрицательными работать не будет да? только 0 или выше?