[Неопытный]

Здравствуете надо написать программу квадратного уравнения, чтобы a,b и c были положительными, я сделал что-то похожее, но программа все равно и считает при отрицательных, что исправить подскажите пожалуйста:

Код:

var
a: real;
b: real;
c: real;
d: real;
x1: real;
x2: real;
begin
try
a:= StrToFloat(Edit1.Text);
if a>=0 then
begin
ShowMessage('Число "а" положительно, решение разрешено');
end;
a:= StrToFloat(Edit1.Text);

if a<0 then
begin
ShowMessage('Число "а" неположительно, введите другое...');
a:= StrToFloat(Edit1.Text);
end

else

b:= StrToFloat(Edit2.Text);

if b<0 then
begin
ShowMessage('Число "b" неположительно, введите другое...');
b:= StrToFloat(Edit1.Text);
end;

if b>=0 then
begin
ShowMessage('Число "b" положительно, решение разрешено');
end
else

c:= StrToFloat(Edit3.Text);
if c<0 then
begin
ShowMessage('Число "c" неположительно, введите другое...');
c:= StrToFloat(Edit1.Text);
end;

if c>=0 then
begin
ShowMessage('Число "c" положительно, решение разрешено');
end

else
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
else ShowMessage('Уравнение не имеет корней');
except
on EConvertError do
begin
ShowMessage('Введите данные');
exit;

end;
end;
end;

end.

Admin: Пользуемся тегами!

[Konrad]

PHP код:

if (a>=0)and(b>=0)and(c>=0) then
begin
//решаем уравнение;
end
else showmessage('Ужесть, какое-то с чисел меньше нуля :('); 


[Неопытный]

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

PHP код:

if (a>=0)and(b>=0)and(c>=0) then
begin
//решаем уравнение;
end
else showmessage('Ужесть, какое-то с чисел меньше нуля :('); 


А не могли бы вы скопировать мою программу и как туда это вписать, а то опять ерунда блин

[Bargest]

Чет не пойму, зачем столько раз записывать в переменные значения из EditX.text.
Не проще так:

Код:

var fl:boolean;

a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
fl:=true;
if a<0 then
 begin
  fl:=false;
  showmessage('A отрицательно, введите другое.');
 end
else
 showmessage('A подходит');

if b<0 then
 begin
  fl:=false;
  showmessage('b отрицательно, введите другое.');
 end
else
 showmessage('b подходит');

if c<0 then
 begin
  fl:=false;
  showmessage('C отрицательно, введите другое.');
 end
else
 showmessage('C подходит');

if fl then
begin
 //тут решение уравнения
end;

[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;

[Неопытный]

Сообщение от 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 или выше?

[Неопытный]

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

Чет не пойму, зачем столько раз записывать в переменные значения из EditX.text.
Не проще так:

Код:

var fl:boolean;

a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
fl:=true;
if a<0 then
 begin
  fl:=false;
  showmessage('A отрицательно, введите другое.');
 end
else
 showmessage('A подходит');

if b<0 then
 begin
  fl:=false;
  showmessage('b отрицательно, введите другое.');
 end
else
 showmessage('b подходит');

if c<0 then
 begin
  fl:=false;
  showmessage('C отрицательно, введите другое.');
 end
else
 showmessage('C подходит');

if fl then
begin
 //тут решение уравнения
end;

Спасибо большое! Где тут спасибо тыкнуть ))
А какой командой можно стереть значения корней? А то вводишь а=1 б=5 с=4, выдает корни, а потом вводишь другие числа они там в лэйбалах остаются...а как сделать что стирались?))