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

ZKan:=False;

if in_k1=1 then begin

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

t1:=t;

end

else begin

if vnak_2<seNak2.Value then inc(vnak_2)

else inc(sboy_2);

end;

end;

end;

if not ZKan and (VNak>0)

then

begin

Dec(VNak);

if in_k1=1 then in_k1:=0

else in_k1:=1;

ZKan:=True;

if in_k1=1 then tKan:=2+16+random(5){18+/-2:количество единиц времени, отводимое на обработку одного сигнала}

else tKan:=2;

end;

end;

procedure TForm1.Istok;

begin

{ if T mod N=0

then

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

if T=tIstok

then