Page 56 - 4260

Windows, Messages, Sysutils, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls, Buttons,
Extctrls, Complex;

type
Tform1 = class(Tform)
bbrun: Tbitbtn; // Кнопка Виконати
bbclose: Tbitbtn; // Кнопка Закрити
bbvvod: Tbitbtn; // Кнопка Введення
bbclear: Tbitbtn; // Кнопка Очистити
Edit1: Tedit; // для a
Edit2: Tedit; // для b
Edit3: Tedit; // для c
Edit4: Tedit; // для d
Label1: Tlabel; // Уведіть значення
змінних
Label2: Tlabel; // a =
Label3: Tlabel; // b =
Label4: Tlabel; // c =
Label5: Tlabel; // d =
Label6: Tlabel; // Результати
Memo1: Tmemo;
procedure bbrunclick(Sender: Tobject);
procedure bbvvodclick(Sender: Tobject);
procedure bbclearclick(Sender: Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: Tform1;
a,b,c,d: real;
Comp1, Comp2, Comp3:Tcomplex;

implementation

{$R *.DFM}
procedure Tform1.bbrunclick(Sender: Tobject);
begin
56