Курсовая работа: Квантование сигналов по времени

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();

К-во Просмотров: 454
Бесплатно скачать Курсовая работа: Квантование сигналов по времени