Литература

1. Бережная Е.В., Бережной В.И. Математические методы моделирования экономических систем – учебное пособие – М.: Финансы и статистика, 2001 –368с.

2. Васильков Ю.В., Василькова Н.Н. Компьютерные технологии вычислений в математическом моделировании, Учебное пособие – М.: Финансы и статистика, 2001 – 256с.

3. Методически рекомендации и лекции.

4. Э. Таха, Хэмди,А. Введение в исследование операций , 6-е издание . Пер. с англ.- М. Издательский дом «Вильяме», 2001 - 912 с.

5. Теория игр и исследование операций. Костевич Л С, Лапко А А. – Высшая школа, Минск 1982 .

6. Советов Б.Я., Яковлев С.А. Моделирование систем.– М.: Высшая школа, 1998 .

7. Кузнецов Ю.Н. Математическое программирование - М.: Высшая школа, 1980. - 320 с.

8. Хемди А. Таха - «Введение в исследование операций».

9. Фомин Г.П.-«Методы и модели линейного программирования коммерческой деятельности».

10. А.В.Солопахо-«Математика в экономике».

11. В.В.Трофимов, А.А.Тужилин «Математические модели экономики».

12. И.Л.Акулич- «Математическое программирование в примерах и задачах».

13. ГОСТ 2.105. - 95, ЕСКД Общие требования к текстовым документам И11К Издательство стандартов, 1996. - 139 с.

14. Единая система конструкторской документации ГОСТ 2.105 - 95, ГОСТ 2.301 - - М.: Просвещение, 1995. - 282 с.: ил.

15. Методические рекомендации по организации и выполнению курсовых и дипломных проектов в средних специальных учебных заведениях. Под ред. Г. Н. Кишкунова - М., 1998. - 65 с.

16. Осипов В.К. Чекмарёв А.А. Справочник по машиностроительному черчению - - М.: Высшая школа, 1994. - 643 с.: ил.

17. О государственном образовательном стандарте среднего профессионального образования. Сборник нормативных правовых документов. Под редакцией П.Ф. Анисимова - М.: НПЦ «Профессионал», 1998. - 256 с.

18. Правила оформления студенческих выпускных работ и отчётов. Положение. Санкт-Петербургский государственный технический университет, 1999. - 34 с.

19. Интернет-источники «Системы массового обслуживания. Лабораторные работы» Режим доступа[http://www.exponenta.ru/educat/systemat/gomboev/labsmo/smo_z1.asp].

20. Интернет-источники «Лекции по моделированию систем / 6_Системы массового обслуживания.Doc» Режим доступа [http://www.Studfiles.Ru/dir/cat32/subj1235/file11060/view111223.Html]

21. Тейксейра, Стив, Пачеко, Ксавье.

T30 Borland Delphi 6. Руководство разработчика. : Пер. с англ. — М. : Издательский дом “Вильямс”, 2002. — 1120 с. : ил. — Парал. тит. англ.

22. К 61 Создание оригинальных компонентов в среде Delphi: Перевод с англ./Рэй Конопка.-К.:НИПФ-«ДиаСофтЛтд.», 1996.-512с.

Приложение В – листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, Menus, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

StringGrid1: TStringGrid;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

ColorDialog1: TColorDialog;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N4: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

function factorial(n: integer): integer;

begin

if n > 1

then factorial := n * factorial(n-1) // функция вызывает сама себя

else factorial:= 1; // факториал 1 равен 1

end;

procedure TForm1.Button1Click(Sender: TObject);

Var

i,i3,i4,i5,i6,i7,n,n2,n11,b,a,lambda,t,kolmas:integer;

s3,s2,factor,k2,k,k1,step,summa,summa2,summa3,p, Potk, p0,p2, q,u,a1,a2,m1, Nzan:real;

begin

Potk:=1;

k2:=0;

n:=1;

m1:=1;

n2:=1;

summa:=1;

step:=1;

factor:=1;

kolmas:=-1;

summa2:=1;

summa3:=1;

p2:=1;

p0:=1;

//i3:=0;

i3:=1;

i5:=1;

i6:=1;

i7:=1;

m1:=1;

n11:=1;

//p:=1;

Form1.Memo1.Clear;

//-------------------------

//b:=StrToInt(Edit1.text); //= Кол-во автомобилей

//lambda:=StrToInt(Edit2.text); //:Отказы машин

//t:=StrToInt(Edit3.text); //Среднее время обслуживания}

if TryStrToInt(Edit1.Text,b) and TryStrToInt(Edit2.Text,lambda) and TryStrToInt(Edit3.Text,t) then

begin

u:=1/(t/60);

Form1.Memo1.Lines.Add(' Параметр потока обслуживания ' + FloattoStr(u) );

p:=lambda/u;

Form1.Memo1.Lines.Add(' Интенсивность потока заявок ' + FloattoStr(p) );

while potk>0.001 do

begin

for i:=1 to n do

begin

step:=exp(n11*ln(p));

factor:= factorial(n11);

summa:=step/factor;

end;

summa2:=summa2+summa;

p0:=1/summa2;

Potk:=p0*summa;

k:=p*(1-potk);

//--------- нумерация и колчество строк stringrid-----

stringgrid1.RowCount:=n;

stringgrid1.Cells[1,n]:=FloattoStrF(p0,ffFixed,8,3);

stringgrid1.Cells[2,n]:=FloattoStrF(Potk,ffFixed,8,3);

stringgrid1.Cells[3,n]:=FloattoStrF(k,ffFixed,8,3);

stringgrid1.Cells[0,n]:=FloattoStr(n);

n:=n+1;

n11:=n11+1;

end;

Form1.Memo1.Lines.Add(' Количество потребуемых рабочих мест ' + FloattoStr(n-2) );

stringgrid1.FixedRows:=1;

stringgrid1.Cells[0,0]:='n';

stringgrid1.Cells[1,0]:='Po';

stringgrid1.Cells[2,0]:='Pотк';

stringgrid1.Cells[3,0]:='Nзан';

End

else ShowMessage('Ошибка при вводе данных.');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

stringgrid1.Cells[0,0]:='n';

stringgrid1.Cells[1,0]:='Po';

stringgrid1.Cells[2,0]:='Pотк';

stringgrid1.Cells[3,0]:='Nзан';

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

if ColorDialog1.Execute then Form1.Color:=ColorDialog1.Color;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

close();

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form3.show;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm2 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

Сделать скрины и вставить их.

2. подправить всё

вставить граф

настроить формы