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

for i: =1 to trackbar1. Position do

begin

apptime [i]: =0;

obsl [i]: =0;

appworktime [i]: =0;

end;

label5. Caption: ='8: 00';

timer1. Interval: =round (1000/ (Trackbar7. Position));

min: =0;

hour: =8;

day: =0;

for i: =1 to trackbar1. Position do

begin

app [i]: =false;

end;

for i: =1 to trackbar2. Position do

begin

croud [i]: =false;

croudtime [i]: =0;

end;

statistic (Sender);

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

timer1. Enabled: =false;

button2. Enabled: =false;

n3. Enabled: =false;

end;

procedure TForm1. Button2Click (Sender: TObject);