[Карина45]

Создать Windows-приложение для решения неравенства ax2 +c>0;
Пыталась что-то сделать:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.Text = '') then Edit1.Text := '1'; if (Edit2.Text = '') then Edit2.Text := '1';  a := StrToFloat( Edit1.Text );  c := StrToFloat( Edit2.Text );  if (a<=0) and (c<=0) then MessageDlg(' Данное неравенство не имеет решений',mtWarning, [mbOk, mbCancel],0)  else

lmikle: пользуемся тегами

[Alegun]

ax2 это 2а?

2а + c больше 0?

[Карина45]

неравенство неполное квадратное
a*x^2>0

[Alegun]

А у вас записано - если Edit1.Text и Edit2.Text пустое, то они равны 1

[lmikle]

ну, вообще-то, надо сначала решить его аналитически.
a*x^2 +c > 0 =>
x^2 > -(c/a) =>
x > sqrt(-(c/a)) & x < -sqrt(-(c/a))
Потом пишем программу:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var   a, c : Double;   d : Double; begin   if (Edit1.Text = '') then Edit1.Text := '1';   if (Edit2.Text = '') then Edit2.Text := '1';   a := StrToFloat( Edit1.Text );   c := StrToFloat( Edit2.Text );   d := -1*c/a;   If d < 0 Then MessageDlg('Нет решений.',mtInfo,[mbOK],0)   Else     If d = 0 Then MessageDlg('x > 0',mtInfo,[mbOK],0)     Else MessageDlg(Format('x > %f и x < %f',[sqrt(d),-1*sqrt(d)]),mtInfo,[mbOK],0) end;

Вроде, так.

[Карина45]

если ввести оба положительные,то пишет,что нет решений

[lmikle]

Упс. Ну да, наверное.
проверь формулы - забыл уже давно все это...
А так, да, замени

Код:

1	MessageDlg('Нет решений.',mtInfo,[mbOK],0)

на

Код:

1	MessageDlg('Все пространство решений.',mtInfo,[mbOK],0)

Действительно, квадрат не может быть меньше 0...

[Карина45]

а как сделать ,чтобы это выводилось не в окне а в Edit

[lmikle]

Код:

1	Edit3.Text := 'Все пространство решений.';

[Карина45]

это выводит,а как
вывести промежуток ?не получается

[lmikle]

В чем проблема??? Ну присваивай Edit'у результат функции Format, которую просто целиком берешь из соотв MessageDlg.

[Alyona96]

Вообще надо сначала решить его аналитически.
a*x^2 +c > 0 =>
x^2 > -(c/a) =>
x > sqrt(-(c/a)) & x < -sqrt(-(c/a))
А потом писать программу