|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуйста оздать Windows-приложение для решения
Создать 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: пользуемся тегами Последний раз редактировалось lmikle, 30.11.2016 в 20:05. |