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

tIstok:=T+7+random(7); {источник}

Inc(InSig); {подсчет посланных сигналов}

if VNak<seNak.Value{ёмкость накопителя}

then begin

Inc(VNak);

end

else Inc(Sboy);

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

end;

procedure TForm1.Kanal_2;

begin

if ZKan_2

then

begin

Dec(tKan_2);

Inc(SZKan_2);{подсчет количества единиц времени, которое канал находится в состоянии занятости}

if tKan_2=0 {время, оставшееся до конца обработки сигнала}

then

begin

ZKan_2:=False;

Inc(OutSig_2);{подсчет количества сигналов, покинувших систему обслуженными}

t2:=t;

end;

end;

if not ZKan_2 and (VNak_2>0)