Курсовая работа: Моделирование системы массового обслуживания
croud [j]: =false;
app [i]: =true;
apptime [i]: =random (6) +10;
break
end;
end;
break
end;
end;
for i: =1 to trackbar1. Position do
begin
if app [i] =true then
begin
apptime [i]: =apptime [i] -1;
if apptime [i] =0 then
begin
app [i]: =false;
obsl [i]: =obsl [i] +1;
end;
end;
end;
if client=0 then
begin
clientappear (Sender);
apparat (Sender);
end;
for j: =1 to trackbar2. Position do
begin
if croud [j] =true then