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

procedure N6Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

S,FA,min,hour,day,minmax,daymax,hourmax,client,croudcount,cleft: integer;

app: array [1. .50] of boolean;

apptime: array [1. .50] of byte;

obsl,appworktime: array [1. .50] of integer;

croud: array [1. .30] of boolean;

croudtime: array [1. .30] of byte;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. Timer1Timer (Sender: TObject);

var i,j: integer;

begin

randomize;

s: =0;

for i: =1 to trackbar1. Position do

begin

if app [i] =false then

begin

for j: =1 to trackbar2. Position do

begin

if croud [j] =true then