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

hour: =8;

day: =day+1;

for i: =1 to trackbar1. Position do

begin

if apptime [i] >0 then obsl [i]: =obsl [i] +1;

apptime [i]: =0;

app [i]: =false;

end;

for j: =1 to trackbar2. Position do

begin

croudtime [j]: =0;

croud [j]: =false;

croudcount: =0;

end;

end;

if length (inttostr (min)) <2 then

label5. Caption: =inttostr (hour) +': 0'+inttostr (min)

else label5. Caption: =inttostr (hour) +': '+inttostr (min);

label24. Caption: ='День: ' + inttostr (day);

statistic (sender);

if (day=daymax) and (hour=hourmax) and (min=minmax)

then Button2Click (Sender);

end;

procedure TForm1. ClientAppear (Sender: TObject);

begin

randomize;

case (hour) of

8. .11: Client: =random (strtoint (edit10. Text) - strtoint (edit7. Text)) +strtoint (edit7. Text);

12. .14: Client: =random (strtoint (edit11. Text) - strtoint (edit8. Text)) +strtoint (edit8. Text);