Руководство системного программиста
С помощью данной программы можно провести анализ сколько сотрудников необходимо для обслуживания определенного количества оборудования.
Требования к установке программы:
1. Процессор AMD Turion(tm)2 Dual-Core Mobile M500 2.20GHz( рекомендуется AMD Turion(tm)2 Dual-Core Mobile с частотой не менее 1 гигагерц или выше);
2. Оперативной памяти – 150 Мбайт (рекомендуется 300 Мбайт), достаточное количество свободного дискового пространства (для полной установки версии
Enterprise необходимо приблизительно 500 Мбайт), цветовая палитра.
Для запуска программы необходимо нажать файл смо.exe или на клавиатуре нажать на клавишу F9.
Если в текстовые поля не введены значения и будет нажата кнопка «ОК», программа выдает ошибку, которая представлена на рисунке 16.
Рисунок 16-Ошибка
Для интересующей или недостаточной информации можно выбрать вкладку «Формулировка задачи» и «О программе».
Для успешного запуска программы необходимы файлы:
1. Project1.~dpr;
2. Project1.dof;
3. Project1.res;
4. Unit1.~ddp, Unit2.~ddp, Unit3.~ddp, Unit4.~ddp, Unit5.~ddp;
5. Unit1.~dfm, Unit2.~dfm, Unit3.~dfm, Unit4.~dfm, Unit5.~dfm;
6. Unit1.~pas, Unit2.~pas, Unit3.~pas, Unit4.~pas, Unit5.~pas;
7. Unit1.dcu, Unit2.dcu, Unit3.dcu, Unit4.dcu, Unit5.dcu;
8. Unit1.ddp, Unit2.ddp, Unit3.ddp, Unit4.ddp, Unit5.ddp;
9. Unit1.dfm, Unit2.dfm, Unit3.dfm, Unit4.dfm, Unit5.dfm;
10. Unit1.pas, Unit2.pas, Uni3.pas, Unit4.pas, Unit5.pas;
11. sect8.bmp , Безымянный.bmp , 23996355_1.bmp;
12. смо.exe.
Заключение
В ходе работы была решена программа замкнутой СМО, на основании которой была создана программа. В данной программе разработан просто и удобный для пользователя интерфейс, что позволит пользователю в коротки сроки разобрать в программе. Так же программу может использовать большой круг лиц, как профессионал, так и просто рабочий.
|
|
|
Данная программа больше всегда подходит для использования на производстве, рассчитывая, сколько мастеров необходимо для обслуживания оборудования за определенный период времени. Таким образом на основании расчет работодатель сможет решить уволить работника или нанять еще одного, для выгоды производителю.
Так же данную программу можно использовать для обучения студентов, которые учатся в основном по специальности программист, экономист. Написанная программа имеет прямое отношение к дисциплинам математическая статистика и теория вероятностей. Большую часть это дисциплины составляет расчет систем массового обслуживания, в которую в свою очередь и входит модель замкнутой СМО.
Литература
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.2 подправить всё
вставить граф
настроить формы
Постановка задачи
В данном курсовом проекте необходимо создать программу, которая имитирует работу турникетов на стадионе. По введенным параметрам работы системы: среднему времени появления зрителя, времени его обслуживания, количеству аппаратов обслуживания, количеству зрителей или ограничению времени, позволяет пользователю производить анализ о количестве необходимых аппаратов обслуживания и их загруженности, состояния в определенный момент времени и эффективности работы. Так же имеются зрители-гости, приходящие по пригласительным билетам, которые пропускаются без очереди. Время появления и обслуживания таких зрителей также может быть задано пользователем. Очередь к каждому турникету своя. Выбор аппарата обслуживания зрителем строится по принципу: где меньше народа.
Дата добавления: 2018-05-12; просмотров: 348; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!