Курсовая работа: Моделирование системы массового обслуживания

end;

end;

procedure TForm1. Apparat (Sender: TObject);

var i: integer;

begin

FA: =0;

randomize;

for i: =1 to trackbar1. Position do

begin

if app [i] =false then

begin

FA: =FA+1;

app [i]: =true;

apptime [i]: =random (7) +3;

break

end;

end;

if FA=0 then CroudP (sender);

end;

procedure TForm1. CroudP (Sender: TObject);

var j,k: integer;

begin

k: =0;

for j: =1 to trackbar2. Position do

begin

if croud [j] =false then

begin

k: =k+1;

croud [j]: =true;