Надо написать программу на Delphi, решающую квадратное уравнение, кнопки свернуть и увеличить убраны, ответ отображается в MessageBox со значком (MB_ICONINFORMATION)
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption:='Êâàäðàòíîå yðàâíåíèå'; Button1.Caption:='Ðåøèòü'; Edit1.Text:=' '; Edit2.Text:=' '; Edit3.Text:=' '; Label1.Caption:='A'; Label2.Caption:='B'; Label3.Caption:='C'; end;
это начало
Начало в помойку, эти настройки лучше сделать на форме. Весь проект прикрепить не могу да и не нужен он.
весь низ испорчен, ам символы какие-то
и EditA не может быть там цифры 1 2 3
end; //else Уравнение не имеет решений end; //else Уравнение не имеет решений end; //else Уравнение не является квадратным
и ещё одно, тут не учтено, то когда d=0
Можете использовать SpinEdit, а имя такое что бы обозначить ABC
if d>=0 then begin
Либо if d>-1 then begin
ну ладно, у меня проблема была с MeessageBox я понял как её теперь делать к, спасибо
а ещё можешь подсказать что здесь X2='+floattostr(x2)), 'Èíôîðìàöèÿ',MB_ICO
Заголовок месажбокса