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

break

end;

end;

if k=0 then cleft: =cleft+1;

end;

procedure TForm1. statistic (Sender: TObject);

var stat: string;

i,j: integer;

begin

croudcount: =0;

for i: =1 to trackbar1. Position do

begin

stringgrid1. Cells [0, i-1]: ='';

s: =s+obsl [i] ;

if app [i] =true then stat: ='Занят (осталось '+inttostr (apptime [i]) + ' мин) '

else stat: ='Аппарат№'+inttostr (i) +': Свободен';

stringgrid1. Cells [0, i-1]: =stat;

stringgrid2. Cells [0, i-1]: = ('Аппарат №'+inttostr (i) +': обслужено '+inttostr (obsl [i]) +'; время работы '+inttostr (appworktime [i]));

end;

for j: =1 to trackbar2. Position do

begin

if croud [j] =true then

croudcount: =croudcount+1;

end;

label17. Caption: =inttostr (croudcount);

label23. Caption: ='Ушло покупателей: ' + inttostr (cleft);

label18. Caption: ='Всего обслужено: ' + inttostr (S);

end;

procedure TForm1. Button1Click (Sender: TObject);