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

for i := 1 to CountInterv do

begin

if i <> SredInt then

Chart1.Series[2].AddXY(i,MasInt[kolvo, i])

else

Chart1.Series[2].AddXY(i,Centr);

end;

Chart1.Series[2].AddXY(CountInterv+1,0);

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

Chart1.Series[0].Active := CheckBox1.Checked;

end;

procedure TForm2.CheckBox2Click(Sender: TObject);

begin

Chart1.Series[1].Active := CheckBox2.Checked;

end;

procedure TForm2.CheckBox3Click(Sender: TObject);

begin

Chart1.Series[2].Active := CheckBox3.Checked;

end;

end.

Приложение Г (Модуль 3)

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type