procedure TForm1.Button1Click(Sender: TObject); var

a0, a1, a2, d, x1, x2: Double;

a0 := StrToFloat(Edit1.Text);

a1 := StrToFloat(Edit2.Text);

a2 := StrToFloat(Edit3.Text);

d :=a1*a1-4*a2*a0;

IF d>=0 THEN

BEGIN

x1 := (-a1+sqrt(d))/(2*a2);

x2 := (-a1-sqrt(d))/(2*a2);

Memo1.Lines.Add(’Результат:’);

Memo1.Lines.Add(’x1 = ’+FloatToStrF(x1,ffGeneral,7,2));

Memo1.Lines.Add(’x2 = ’+FloatToStrF(x2,ffGeneral,7,2));

Memo1.Lines.Add(’Решений нет:’);

Бағдарламаушы терген жолдар жартылай қою қаріппен ерекшеленген.

10. 
    F12 пернесіне басыңыздар және пішінге қайтып оралыңыздар. Екі рет шерту арқылы Очистить батырмасын белсенді етіңіз және OnClick оқиға өңдеуішіне мына жолды қойыңыздар
    

11. 
    Жобаны C:\…\Мои документы\…\ MyFirstProject қаптамасына сақтаңыздар және F9 функциональды пернесін қолданып қосымшаны іске қосыңыз. Квадрат теңдеуді шешу үшін коэффиценттерді енгізіңіз және Решение батырмасына басыңыз. Редактірлеу терезесін тазалау үшін Очистить батырмасына басыңыздар (сурет 3.1.2 қараңыздар).