Курсовая работа: Квантование сигналов по времени
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure sdf2Click(Sender: TObject);
procedure sf1Click(Sender: TObject);
procedure dsf1Click(Sender: TObject);
procedure sd1Click(Sender: TObject);
procedure sdf1Click(Sender: TObject);
procedure sdf3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
massiv:array[1..50] of real;
j:integer;
implementation
{$R *.dfm}
{ TFormLR6 }
var
count: Integer = 0;
count2: Integer = 0;
maxi: double = 0.0;
maxy: double = -200.0;
miny: double = 200.0;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i: double;
begin
Series1.Clear();
Series2.Clear();