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

var j:integer;

begin

VNak:=0; {Накопитель}

Sboy:=0;

sboy_2:=0;

InSig:=0;{подсчетпосланныхсигналов}

OutSig:=0;{подсчет количества сигналов, покинувших систему обслуженными}

vnak_2:=0;

outsig_2:=0;

SZNak:=0;{подсчет средней занятости накопителя в сигналах}

SZNak_2:=0;{подсчет средней занятости накопителя в сигналах}

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

szkan_2:=0;

ZKan:=False; {состояние канала}

ZKan_2:=false;

in_k1:=0;

ListBox1.Items.Clear;

T:=0;

tIstok:=T+7+random(7);

Series1.Clear;

Repeat

Istok;

Kanal;

kanal_2;

SZNak:=SZNak+VNak;

SZNak_2:=SZNak_2+VNak_2;

inc(t);

Series1.Add(vnak); {добавление данных в диаграмму о накопителе №1}

Until T>400;