Курсовая работа: Моделирование системы массового обслуживания
croudtime [j]: =croudtime [j] -1;
if croudtime [j] =0 then
begin
croud [j]: =false;
cleft: =cleft+1;
end;
end;
end;
if croud [1] =false then
begin
for j: =1 to trackbar2. Position-1 do
begin
croud [j]: =croud [j+1] ;
croudtime [j]: =croudtime [j+1] ;
end;
croud [trackbar2. Position]: =false;
end;
for i: =1 to trackbar1. Position do
begin
if app [i] =true then appworktime [i]: =appworktime [i] +1;
end;
client: =client-1;
min: =min+1;
if min>59 then
begin
min: =0;
hour: =hour+1;
end;
if hour>19 then