Курсовая работа: Разработка имитационной модели транспортной сети

N1=100;

l=MAXINT;

var

Form1: TForm1;

n: integer;

kol2,op,rr,nn,mi,tool,kon: integer;

j1,l6,w, i,z,j,ko,h1,h2,sum,ss,maxpotok,j3,k3,kk,potok,o,ll,kol1,pp,p1,j2,kol,t: integer;

c: array [1. N1,1. N1] of integer;

c1: array [1. N1,1. N1] of real;

c2: array [1. N1,1. N1] of real;

tt: array [1. .50,1. .50] of real;

fij: array [1. .50,1. .50] of real;

yij: array [1. .50,1. .50] of real;

y1i: array [1. .50,1. .50] of real;

xij: array [1. .10,1. .50] of real;

fij1: array [1.20,1.20] of real;

ttt: array [1.20,1.20] of real;

dij: array [1.20] of real;

Fi: array [1.20] of real;

lhh: array [1.20,1.20] of real;

hij: array [1.20] of real;

hi: array [1.20] of integer;

potokvr: array [1.20] of integer;

d11,d22,d33,z1,l5,mm,ten,w1,t1,kol3,lop,bpp,loop,ten1,bred1,bred2: real;

lh: array [1. N1,1. N1] of integer;

qh: array [1. N1,1. N1] of integer;

f: array [1. N1,1. N1] of integer;

const

size = N1 + 2;