Дипломная работа: Построение концептуальной модели

GroupBox4: TGroupBox;

Label6: TLabel;

seNak: TSpinEdit;

Label7: TLabel;

seNak2: TSpinEdit;

Label2: TLabel;

Label4: TLabel;

Chart1: TChart;

Series1: TBarSeries;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure Kanal;

procedure Istok;

procedure Kanal_2;

end;

var

Form1: TForm1;

ZKan,zkan_2:boolean;

t1,t2,n,t,tIstok,InSig,VNak,Sboy,OutSig,tkan,SZKan,SZNak,sekanal_2,sboy_2,outsig_2,SZNak_2,szkan_2,tkan_2,vnak_2:integer;

in_k1:byte;

{ var nak_2:byte;{накопительдляканала № 2}

{colnak1-кол-во сигналов, пройденных через накопитель 1}

{in_k1-true-сигнал обслуж-ся каналом № 1, false-сигнал обслуж-ся каналом № 2}

implementation

{$R *.dfm}