Page 30 - 4260

Form1: TForm1;
I
Mplementation

{$R *.DFM}
// оброблювач події OnCliсk для кнопки "Обчислити"
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:real; // коефіцієнти рівняння
d:real; // дискримінант
x1,x2:real; // корінь рівняння
code:integer; // для перетворення тексту в
число
st1,st2:string[10];
begin // введення вихідних даних з полів редагування
val(Edit1.text,a,code); // перетворення тексту в число
val(Edit2.text,b,code);
val(Edit3.text,c,code);
if a=0
then Label1.caption:='Коефіцієнти при другому ступені'
+chr(13)+'невідомого дорівнює нулю!';
else
begin // рішення рівняння
d:=b*b-4*a*c;
if d<0
then Label1.caption:='Дискримінант < 0'
+chr(13)+'Рівняння не має корінь'
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
str(x1:10:5,st1);
str(x2:10:5,st2);

Label1.Caption:='Корінь рівняння:'+ chr(13)+'x1='+st1+ chr(13)+'x2='+st2;
end;
end;
end;

// оброблювач подій OnClik для кнопки "Нове"
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';

30