Построение моделей

Министерство образования и науки Республики Казахстан.

Талгарский колледж агробизнеса и менеджмента им. М. Бейсебаева.

Курсовая работа

По предмету: «Моделирование производственно-экономических процессов»

На тему: «Построение моделей»

г. Талгар

г.

1. Понятие модели и моделирования. Виды моделей

Одно из основных занятий человека с древних времен - познание окружающего мира (сначала с целью выжить, а затем все более комфортно жить и удовлетворять свой инстинкт к расширению жизненного пространства). А познать - это понять закономерности окружающих явлений, процессов и отдельных явлениях объектов, но не все явления и объекты можно разложить на столе и подключить к измерительным приборам (например: летящий самолет, климатические и погодные процессы и т.д.). Человек встал перед необходимостью создания модели явлений, объектов и работать с ними.

Модель - это такой материально или мысленно представляемый объем, который замещает объект- оригинал и сохраняет некоторые важные для этого исследования его черты и свойства. Модель нужна для того чтобы:

1.      Понять, как устроен реальный объект (его структуру, свойства, законы развития и взаимодействия с окружающим миром).

2.      Научиться управлять объектом или процессом наилучшим способом при заданных целях и условиях.

.        Прогнозировать последствие различных воздействий на него.

.        Хорошо построенная модель имеет удивительные свойства - ее изучение дает новые знания об объекте оригинал.

Процесс построения модели называется моделированием. Оно бывает материальным (предметной) и идеальной (мыслительной).

Материальное моделирование используется в качестве модели уменьшенной копии объектов, или материализованные аналоги и явления (макет здания, электросхемы для изучения вулканических, механических колебаний).

Идеальное моделирование основано на мыслительной аналогии явления, и носит теоретический характер.

Важнейший вид идеального моделирования - математическое моделирование (М.М.), в которой модули создания на языке математики с помощью формул и различных математических методах.

Имитационная модель.

Имитация - подражания, т.е. имитационная модель по своим свойствам повторяет реальный объект.

Термин «имитационное» выражает стремление оценить расчетным путем и современно учесть последствия возможных изменений обстановки, в которой реализуется исследуемый процесс.

Это расширяет возможности выработки гипотез относительно развития событий, предсказания поведения участников операции, накопление опыта неформальных решений.

Имитационные модели используются:

1.  Когда реальный объект, настолько сложен, что не поддается описанию математическими законами.

2. Когда нужно заглянуть в будущее и предсказать поведение реального объекта через определенное время.

Положительные свойства имитационных моделей:

Они не опираются на математические законы, они максимально близко приближаются к реальному объекту, поэтому лучше отражают его основные свойства.

Отрицательные свойства имитационных моделей:

Ограниченная точность моделирования и трудности, отсутствие общности результатов, высокая стоимость и продолжительность.

Процесс имитации объединяет 3 основных этапа:

подготовительный (постановка проблемы, выбор критерия, анализ ограничений, разработка программы на ЭВМ);

рабочий (моделирование, накопление информации, оценка характеристик модели);

подготовка рекомендаций для руководства, улучшение и расширение возможности модели.

Важной частью имитационного моделирования следует считать диалоговый режим общения исследователя ЭВМ, для построения которого необходимо:

разработать сценарий, отражающий специфику исследования;

предоставить исследователю программные и технические средства, обеспечивающие реализацию диалога;

создать средства для модификации средств обеспечения диалога;

. Формулировка задачи в общем виде

Нам дали задание создать имитационную модель экономического предприятия. Мы выбрали экономическое предприятие - компьютерный клуб «GaMeR». Приблизительные данные мы получили от своего опыта походов в компьютерные клубы.

Построение структуры задачи.

а) Дано:

1.Кол-во клиентов;

.Кол-во часов;

.Суммы расходов и доходов.

б) Найти:

.Рентабельность.

в) Ограничения:

.Ограничений нет.

Выбор или разработка метода решения задачи.

Для получения результата мы использовали следующий метод решения с помощью языка программирования Borland Delphi 7 вносить данные в базы данных, заносить поставщиков, клиентов, водителей, магазинов и т.д.

3. Выбор языка программирования

Преимущества и особенности Delphi.

Визуальная среда разработки.позволяет создавать приложения интерактивным выбором необходимых компонентов из Component Palette и перетягиванием их на форму. Основное же достоинство этого метода заключается в том, что Delphi при этом самостоятельно создает необходимый код. Это напоминает по своим возможностям Visual Basic и другие подобные языки программирования, однако в случае Delphi вы получаете настоящий объектно - ориентированный код и все возможности этого подхода, включая расширение функциональных возможностей компонентов Delphi до уровня, удовлетворяющего ваши запросы. Вы можете использовать компоненты Delphi, можете наследовать их и добавлять собственные методы, а кроме того, вы можете использовать управляющие элементы Active X.

Оптимизирующий 32 - битовый компилятор.

Одно из основных отличий Delphi от других похожих инструментов визуальной разработки приложений заключается в наличии действительно быстрого, эффективного компилятора. Компилятор выдает не только сообщение об ошибках, но и огромное количество предупреждений и подсказок, которые позволяют создавать более ясный код. Важным достоинством является также выдача одновременно нескольких сообщений об ошибках, что позволяет быстрее исправлять их.

Встречают по одежке…

Одна из больших проблем невизуального программирования - создание пользовательского интерфейса, т. е. Решение всех вопросов взаимодействия с пользователем: что он будет видеть на экране, какой внешний вид должны иметь кнопки. Зачастую больше времени занимает именно разработка и создание "одежек", чем собственно рабочей части программы. С другой стороны, при разработке не стоит забывать и о второй части пословицы - "провожают по уму". Что стоит коммуникационная программа с множеством меню, кнопочек и подсказок, анимированная и озвученная, если она просто не знает, как работать с модемом? Delphi позволяет создавать программу, вложив максимум сил и умения в ее рабочую часть, и всячески помогает вам в той области, где не имеет конкурентов, - в области создания пользовательского интерфейса. Потратив некоторое время на обучение работе Delphi, вы сможете легко и просто создавать пользовательские интерфейсы, не сравнимые ни с какими другими, созданные с помощью традиционного инструментария. Более того, они будут не просто элегантны, но при необходимости будут обладать "изюминкой" в виде разработанных вами новых управляющих элементов , что не займет у вас много сил и времени с таким помощником, как Delphi.

Расширяемость Delphi.

Благодаря объектно-ориентированной природе Delphi вы можете создавать свои компоненты не только с нуля, но и используя богатый набор имеющихся компонентов. Помимо создания новых компонентов , расширяемость Delphi включает также возможность интегрирования в среду Delphi целых подпрограмм, называемых экспертами. Expert Interface позволяет вам дополнять среду своими пунктами меню и диалоговыми окнами для расширения ее функциональности.

Но основным преимуществом Delphi является его среда программирования с визуальным конструктором программ. Эта среда (вместе с объектной библиотекой VCL) позволяет эффективно программировать под MS Windows, не отвлекаясь на выяснение всех деталей Win API, а работать над логикой программы.

С точки зрения профессионального программиста не менее важно то, что Delphi обладает высокоразвитыми средствами для работы с базами данных. Базы данных позволяют эффективно управлять информацией. Delphi позволяет эффективно создавать приложения, работающие с базами данных.

4. Листинг программы с пошаговым описанием

.        Первое диалоговое окно (окно расчёта доходов):

В этом диалоговом окне мы подсчитаем кол-во клиентов и сумму дохода предприятия.

В 1-ом комбинированном списке выбирается стоимость услуги в час (100, 120, 150 тенге).

Во 2-ом комб. списке выбирается кол-во дней в месяце.

-ая кнопка (Вычислить) вычисляет (случайную) сумму дохода и кол-во клиентов (за месяц и общую).

При нажатии на 2-ую кнопку (Расходы) откроется 2-ое диалоговое окно (окно расчёта расходов), о нём чуть попозже.

В 1-ом списке отображается кол-во посетивших клиентов в отдельные дни. А в текстовых полях под списком отображаются кол-во клиентов за месяц и общее кол-во клиентов соответственно.

Во 2-ом списке отображается информация о каждом клиенте (его номер, на сколько часов сел и сколько заплатил). А в текстовых полях под списком отображаются сумма доходов за месяц и общая сумма доходов соответственно.

При нажатии на кнопку «Выход» программа закрывается.

Процедура вычисления кол-ва клиентов:

Включаем генератор случайных чисел:

Randomize;

Счётчик подсчёта кол-ва дней:

shchkoldnei:=0;

Кол-во клиентов за месяц:

kolklientovzames:=0;

Счётчик кол-ва месяцев:

kolmes:=kolmes+1;

shchkolmes:=shchkolmes+1;

Условие при котором 12 месяцев преобразуются в 1 год:

if shchkolmes>11 then shchkolgod:=shchkolgod+1;shchkolmes>11 then shchkolmes:=0;

Отображение кол-ва месяцев:

Label1.Caption:=FloatToStr(shchkolgod)+'-й год, '+FloatToStr(shchkolmes)+'-й месяц';

Цикл подсчёта клиетов за месяц:

for cyklkolklientov:=1 to StrToInt(ComboBox2.Text) do

Счётчик подсчёта кол-ва дней:

shchkoldnei:=shchkoldnei+1;

Условие посещаемости клиентов (чем меньше стоимость услуги, тем больше клиентов и наоборот):

if ComboBox1.Text='100'kolklientovzaden:=40+Random(40);ComboBox1.Text='120'kolklientovzaden:=30+Random(30);ComboBox1.Text='150'kolklientovzaden:=25+Random(25);

Подсчёт кол-ва клиентов за месяц:

kolklientovzames:=kolklientovzames+kolklientovzaden;

Вывод информации на список:

ListBox1.Items.Add('День: '+FloatToStr(shchkoldnei)+' | Клиентов: '+IntToStr(kolklientovzaden));

Конец цикла:

end;

Вывод на текстовое поле кол-ва клиентов за месяц:

Edit1.Text:='Количество клиентов за месяц = '+FloatToStr(kolklientovzames);

Подсчёт общего количества клиентов:

obshkolklientov:=obshkolklientov+kolklientovzames;

Вывод на текстовое поле общего кол-ва клиентов:

Edit3.Text:='Общее количество клиентов = '+FloatToStr(obshkolklientov);

Процедура вычисления дохода:

Обнуление счётчика номера клиента:

shchnomklienta:=0;

Обнуление дохода за месяц:

zarabotokzames:=0;

Цикл вычисления суммы дохода за месяц:

for cyklsummazames:=1 to kolklientovzames do

Начало цикла:

Begin

Счётчик подсчёта номера клиента:

shchnomklienta:=shchnomklienta+1;

Случайное кол-во использования компьютера (от 1 до 5 часов):

kolchasov:=1+Random(5);

Условие скидки:

if kolchasov=1 then plataklienta:=StrToInt(ComboBox1.Text)*kolchasov;kolchasov=2 then plataklienta:=StrToInt(ComboBox1.Text)*kolchasov-20;kolchasov=3 then plataklienta:=StrToInt(ComboBox1.Text)*kolchasov-40;kolchasov=4 then plataklienta:=StrToInt(ComboBox1.Text)*kolchasov-60;kolchasov=5 then plataklienta:=StrToInt(ComboBox1.Text)*kolchasov-80;

Подсчёт суммы дохода за месяц:

zarabotokzames:=zarabotokzames+plataklienta;

Вывод на список информации о клиенте:

ListBox2.Items.Add('Клиент №: '+FloatToStr(shchnomklienta)+' | Сел на: '+IntToStr(kolchasov)+' час(а/ов) | Заплатил: '+IntToStr(plataklienta)+' тенге');

Конец цикла:

end;

Вывод на текстовое поле доход за месяц:

Edit2.Text:='Доход за месяц = '+FloatToStr(zarabotokzames)+' тенге';

Подсчёт общей суммы дохода:

:=obshzarabotok+zarabotokzames;

Вывод на текстовое поле общей суммы дохода:

.Text:='Общая сумма дохода = '+FloatToStr(obshzarabotok)+' тенге';

.        Второе диалоговое окно (окно вычисления расходов):

В этом диалоговом окне мы подсчитаем налог и сумму расхода предприятия.

В 1-ом контейнере вводится расход на заработную плату персонала и выбирается их кол-во.

Во 2-ом контейнере вводится расход на коммунальные услуги.

В текстовом поле расхода на налог отображается 13% от общей суммы дохода.

В текстовом поле расхода за месяц отображается сумма расхода за месяц.

В текстовом поле общей суммы расхода отображается общая сумма расхода.

Кнопка «Вычислить» вычисляет налог, сумму расхода за месяц и общую сумму расхода.

Кнопка «Результат» отображает 3-ее диалоговое окно (окно вывода рентабельности).

Основные процедуры диалогового окна расхода предприятия:

Подсчёт налога:

:=(obshzarabotok*13)/100;

Вывод налога на текстовое поле:

LabeledEdit9.Text:=FloatToStr(Round(nalog));

Подсчёт расхода за месяц:

rashodzames:=(StrToFloat(LabeledEdit1.Text)*StrToFloat(ComboBox1.Text))

+(StrToFloat(LabeledEdit2.Text)*StrToFloat(ComboBox2.Text))

+(StrToFloat(LabeledEdit3.Text)*StrToFloat(ComboBox3.Text))

+(StrToFloat(LabeledEdit4.Text)*StrToFloat(ComboBox4.Text))

+ StrToFloat(LabeledEdit5.Text)

+ StrToFloat(LabeledEdit6.Text)

+ StrToFloat(LabeledEdit7.Text)

+ StrToFloat(LabeledEdit8.Text)

+(nalog/kolmes);

Вывод расхода за месяц на текстовое поле:

LabeledEdit10.Text:=FloatToStr(Round(rashodzames));

Подсчёт общей суммы расхода:

obshsummarashoda:=rashodzames*kolmes;

Вывод общей суммы расхода на текстовое поле:

LabeledEdit11.Text:=FloatToStr(Round(obshsummarashoda));

3.      Третье диалоговое окно (окно вывода рентабельности):

Это маленькое диалоговое окно, предназначенное для вывода рентабельности предприятия.

Оно состоит из 2-ух ярлыков. 1-ое отображает рентабельность, а 2-ое остаток.

Основные процедуры диалогового окна рентабельности предприятия:

Формула подсчёта рентабельности:

((Доход-Расход)/Расход)*100.

Подсчёт рентабельности:

:=((obshzarabotok-obshsummarashoda)/obshsummarashoda)*100;

Вывод рентабельности на ярлык:

Label1.Caption:='Рентабильность: '+FloatToStr(Round(ren))+'%';

Формула подсчёта остатка:

Доход-Расход.

Подсчёт остатка:

:=obshzarabotok-obshsummarashoda;

Вывод остатка на ярлык:

Label2.Caption:='Остаток: '+FloatToStr(Round(ostatok))+' тенге';

5. Руководство программиста

В нашей программе мы использовали:

ü  Элементы управления:

1. ComboBox - комбинированный список;

. Button - кнопка;

. Label - ярлык;

. Form - форма;

. ListBox - список;

. LabeledEdit - текстовое поле с ярлыком;

. Edit - текстовое поле;

. GroupBox - контейнер;

ü  Свойства программ:

1. Randomize - генератор случайных чисел;

. Enabled -подключение объекта;

. Clear - очистка;

. Text, Caption - текст;

7. ShowModal - открытие модальной формы;

. Close - закрытие формы.

ü  Кол-во объектов:

1. Форм - 3;

. Списков - 2;

З. Кнопок - 5;

. Текстовых полей - 15;

. Ярлыков - 3;

. Комбинированных списков - 6;

. Контейнеров GroupBox - 4.

ü  Операторы:

1. Оператор присвоения - :=;

2. Условный оператор - if then else;

3. Цикл со счётчиком - for to do.

Размер - 532 КБ (545 092 байт), создан - 26 мая 2013 г., 23:55:37.

. Руководство пользователя

Для того чтобы запустить программу, нужно:

Запустить файл программы «COMP.exe». На экране появится диалоговое окно дохода предприятия.

В результате работы нашей программы вы сможете рассчитать доход, расход и рентабельность на месяцы или даже на года вперёд.

моделирование листинг программа delphi

Заключение

Положительные качества:

· Удобный интерфейс;

·        Понятность;

·        Точность.

·        Достоинства программы можно выделить в заключении. Программа создана на языке программирования Borland Delphi 7.

·   Удобный интерфейс облегчает работу с документацией.

·        Экономия времени.

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

·   Актуальность во всех сферах бизнеса.

·        Доступность, качественность, результативность и надежность программы.

·        Облегчает работу с документацией, сокращает и экономит время работы.

·        Гарантирует правильность и безошибочность выполнение работы.

Список использованной литературы

1. Сеть Internet

. Конспекты за 2-3 курсы