[Карина45]

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

Код:

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: пользуемся тегами