Список литературы. 
Моделирование работы внутризаводского транспорта

• 1. Советов Б. Я., Яковлев С. А. Моделирование систем: Учеб. для вузов, 3-е издание, перераб. и доп. — М: Высш. школа, 2001 — 343 с.
• 2. Советов Б. Я., Яковлев С. А. Моделирование систем: Курсовое проектирование: Учеб. пособие по специальности АСУ. — М: Высш. школа, 1988 — 135 с.

Приложение, А (обязательное)

Псевдокод моделирующего алгоритма скаляр RANDOM (скаляр A — целое, скаляр В — целое) начало скаляр Q — целое.

Q=random (2*В+1)+(A-В);

возврат Q.

конец Алгоритм proga ().

начало скаляры Twork1, Twork2,L, z1, z2, Time, nцелые скаляры i, j1, j2, No, Nn, T, Sumцелые скаляры K1, K2- вещественные массивы, t_oz, t_pz, gen_z — целые ввод Time, t_oz, t_pz, gen_z — целые для (i=0,i<300,i=i+1).

начало.

Sum+=RANDOM (А, В);

t_pz[i]=Sum;

t_oz[i]=RANDOM (А, В);

gen_z[i]=RANDOM (51,50);

конец Шаг1:

если (T>=Time и L=0).

начало вывод No, Nn, K1, K2.

конец если (z1=1).

начало если (j1=0) начало.

j1=T+t_oz[n]; Twork1+=t_oz[n];

конец если (T=j1) начало.

No++;z1=0;j1=0;

конец если (gen_z[n]<=49) то z2=1;

иначе z1=1;

конец если (z2=1).

начало если (j2=0) начало.

j2=T+t_oz[n]; Twork2+=t_oz[n];

конец если (T=j2) начало.

No++;z2=0;j2=0;

конец если (gen_z[n]<=49) то z2=1;

иначе z1=1;

начало если ((z1=0 или z2=0) и L>0).

конец если (gen_z[n]<=49).

если (z1=1)то начало.

z2=1;L—;

конец иначе начало.

z1=1;L—;

конец иначе начало.

z2=1;L—;

конец конец если (T>=Time) начало.

T++; перейти к Шаг 1;

конец иначе (T<=t_pz[n]) начало.

T++; перейти к Шаг 1;

конец иначе начало если (L<5) то L++;

иначе Nn++;

T++; n++;

конец.

K1=(10 000.0*Twork1/T)/100.0;

K2=(10 000.0*Twork2/T)/100.0;

перейти к Шаг1;

конец.

Приложение Б (обязательное)

Листинг программы.

#include.

#pragma hdrstop.

#include «Unit1.h» .

#include «Unit2.h» .

#include «Unit3.h» .

#include «Unit4.h» .

#include.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» .

#pragma link «PERFGRAP» .

TForm1 *Form1;

int *t_oz,*t_pz,*gen_z;

//—————————————————————————————————————;

__fastcall TForm1: TForm1(TComponent* Owner).

: TForm (Owner).

{ randomize ();

}.

//—————————————————————————————————————;

void __fastcall TForm1: Button1Click (TObject *Sender).

{.

Form2->Show ();

}.

int RANDOM (int A, int B).

{.

int Q;

Q=random (2*B+1)+A-B;

return Q;

}.

void proga ().

{.

int Twork1=0,Twork2=0,L=0,z1=0,z2=0, Time=0;

int i=0,n=0;

int j1=0,j2=0,j3=0, j4=0, No=0,Nn=0;

int T=0;

float K1, K2;

Time=StrToInt (Form1->Edit1->Text)*60;

step₁:;

if (T>=Time && L==0).

{.

Form1->Label17->Caption=No;

Form1->Label18->Caption=Nn;

Form1->Label19->Caption= K1;

Form1->Label20->Caption=K2;

return;

}.

if (z1==1).

{if (j1==0) {j1=T+t_oz[n]; Twork1+=t_oz[n];}.

if (T==j1) {No++;z1=0;j1=0;}.

if (gen_z[n]<=49) z2=1;

else z1=1;

}.

if (z2==1).

{if (j2==0) {j2=T+t_oz[n]; Twork2+=t_oz[n];}.

if (T==j2) {No++;z2=0;j2=0;}.

if (gen_z[n]<=49) z2=1;

else z1=1;

}.

if ((z1==0 || z2==0) && L>0).

{.

if (gen_z[n]<=49).

if (z1==1){z2=1;L—;}.

else {z1=1;L—;}.

else {z2=1;L—;}.

}.

if (T>=Time) {T++; goto step₁;}.

if (T<=t_pz[n]){ T++; goto step₁;}.

else.

{.

if (LEdit6->Text.c_str ())) L++;

else Nn++;

T++; n++;

}.

K1=int (10 000.0*Twork1/T)/100.0;

K2=int (10 000.0*Twork2/T)/100.0;

goto step₁;

}.

//—————————————————————————————————————;

void __fastcall TForm1: Button2Click (TObject *Sender).

{.

delete[] t_pz, t_oz, gen_z;

t_pz=new int[300];

t_oz=new int[300];

gen_z=new int[300];

int Sum=0;

for (int i=0;i<300;i++).

{.

Sum+=RANDOM (StrToInt (Edit2->Text.c_str ()), StrToInt (Edit3->Text.c_str ()));

t_pz[i]=Sum;

t_oz[i]=RANDOM (StrToInt (Edit4->Text.c_str ()), StrToInt (Edit5->Text.c_str ()));

gen_z[i]=RANDOM (51,50);

}.

proga ();

}.