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