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

begin { zkan_2:boolean;sekanal_2,sboy_2,outsig_2,szkan_2,tkan_2:integer;}

{ Add('Должно поступить сигналов: '+IntToStr(400 div 10));}

Add('Поступло сигналов: '+IntToStr(InSig));

Add('Обработано сигналов каналом № 1: '+IntToStr(OutSig));

Add('Обработано сигналов каналом № 2: '+IntToStr(OutSig_2));

Add('Сбойных сигналов: '+IntToStr(Sboy+sboy_2));

if ZKan then Inc(VNak);

Add('Учтенныхсигналов: '+IntToStr(VNak+vnak_2+Sboy+sboy_2+OutSig+OutSig_2));

if ZKan_2 then Inc(VNak);

if t-t1<3 then Inc(VNak);

if t-t2<3 then Inc(VNak);

Add('Осталось в системе сигналов: '+IntToStr(VNak));

Add('Средняя занятость накопителя № 1 (в сиг.): ' + FloatToStrF(SZNak/400,ffNumber,8,2));

Add('Средняя занятость накопителя № 1 (в %): ' + IntToStr(Round(SZNak/400/seNak.Value*100)));

Add('Средняя занятость накопителя № 2 (в сиг.): ' + FloatToStrF(SZNak_2/400,ffNumber,8,2));

Add('Средняя занятость накопителя № 2 (в %): ' + IntToStr(Round(SZNak_2/400/seNak2.Value*100)));

Add('Средняя занятость канала № 1 (в %): '+ IntToStr(Round(SZKan/400*100)));

Add('Средняя занятость канала № 2 (в %): '+ IntToStr(Round(SZKan_2/400*100)));

end;

end;

procedure TForm1.Kanal;

begin

if ZKan

then

begin

Dec(tKan);

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

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

then