Создадим новое приложение на Delphi «Решение квадратного уравнения» для этого запустим нашу среду IDE и добавим на форму одну кнопку Button с панели компонентов вкладки Standart, десять компонентов Image c вкладки Additional и пять компонентов Edit с вкладки Standart. После добавления компонентов на приложение на Delphi «Решение квадратного уравнения» установим их свойства:

Свойства формы:

    • Form1.Caption:= ‘Решение квадратного уравнения’;
    •  Form1.Color:=clWhite;


 Свайства для рисунков:

    • Form1.Image.AutoSize:=true;
    •  Form1.Image.Transparent:=true;


Свойство компонента Edit –поле ввода:

    •  Edit. Caption:= a,b,c,x1,x2;
    •  Шрифт устанавливаем жирный, размер 24;


 Свойство кнопки Button:

  •  Caption:= ‘Решить уравнение’.

Так будет выглядеть форма нашего приложения:


 

Приложение на Delphi «Решение квадратного уравнения»


 

Далее прилагаю листинг приложение на Delphi «Решение квадратного уравнения»:

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d,x1,x2: Real;//объявление переменных, где а,в,с - коэфициэнты уравнения, а
//х1и х2 корни
begin
//данные полей ввода присваиваются переменным
a:=StrToFloat(Form1.Edit1.Text);
b:=StrToFloat(Form1.Edit2.Text);
c:=StrToFloat(Form1.Edit3.Text);
//вычисление дискриминанта
d:= b*b-4*a*c;
if d<0 then
//если d<0 выводится сообщение, а иначе вычисляются корни
MessageDlg('Квадратное уравнение не имеет корней',mtWarning, [mbOk, mbCancel],0)
else
begin
//вычисление корней
X1:= (-b + Sqrt(d))/(2*a);
x2:= (-b - Sqrt(d))/(2*a);
//вывод результата
Form1.Edit4.Text:=FloatToStr(x1);
Form1.Edit5.Text:=FloatToStr(x2)
end
end;

Скачать исходник приложение ««Решение квадратного уравнения» »:

 

Добавить комментарий


Защитный код
Обновить