Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 14
На сайте нет зарегистрированных пользователей

Пользователей: 13,372
новичок: vausoz
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Диплом - база данных поставщиков на Delphi (MS Sql Server)+ Пояснительна...
Диплом RSA, ЭЦП, сертификаты, шифрование на C#
Поиск пути в графе заданном списками инцедентности на Turbo Pascal

Моделирование банка
Задание:
Банк имеет один пункт, где клиенты обслуживаются банковским автоматом не выходя из автомобиля. Автомобили пребывают в среднем с интенсивностью 12 автомобилей в час. Среднее время, необходимое для обслуживания клиента банкоматом, равно 6 мин. Максимальная вместимость полосы обслуживания банкоматом составляет 10 автомобилей. При заполненной полосе прибывающие клиенты должны искать обслуживание в другом банке. Определить следующие величины:
- количество прибывших автомобилей, количество клиентов, получивших отказ;
- вероятность того, что прибывающий клиент не сможет воспользоваться услугами банковского автомата;
- вероятность того, что прибывающий клиент обслуживается без ожидания;
- среднее время ожидания клиента в очереди.
Смоделировать работу банкомата в течение суток

Моделирование банка

Исходный код программы для Delphi 7:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Edit5: TEdit;
Label7: TLabel;
Label8: TLabel;
Edit6: TEdit;
Label9: TLabel;
Edit7: TEdit;
Label10: TLabel;
Edit8: TEdit;
Label11: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
K,p,i,io,n,m:integer;ro,Potk,Pbo,tz,bTz,tobsl,Tzvezda:real;
landa,Toc,T,Tk,Mi,R,Trazg:real;
Tin: array [0..300] of real;
Tout: array [0..300] of real;
begin
Landa:=Strtofloat(edit1.Text);//интенсивность автомобилей в час
Trazg:=Strtofloat(Edit2.Text)/60;//среднее время
Mi:=1/Trazg;
Tk:=12;//часов в сутки
P:=Strtoint(Edit3.Text);//емкость накопителя
ro:= Landa/ Mi;
T := 0;
Tzvezda := 0;
K := 0;
n := 0; // обслужено
m := 0; // отказано
Pbo:=0;
i:=0;
io:=0;
Randomize;
R:=random;
tz := (1/Landa)*Ln(R);
bTz:=T+tz;
while T < Tk do
begin
if Tzvezda > bTz then begin
T := bTz;
K := K+1;
if p+1 >= k then
begin
n := n+1;
end
else
begin
m := m+1;
k := k-1;
end;
if K = 1 then
begin
R := random;
tobsl := -(1/Mi)*ln(R);
Tzvezda := bTz+tobsl;
Pbo:=Pbo+1;
end
else
begin
Tin[i] := T;
i := i+1;
end;
if K > 0 then begin
R:=random;
tobsl := -(1/Mi)*ln(R);
Tzvezda := bTz+tobsl;
end;
R:=Random;
tz := -(1/Landa)*ln(R);
bTz := bTz+tz; end
else begin
T := Tzvezda;
if K > 0 then begin
K := K-1;
end;
if K = 0 then begin
Tzvezda := Tk;
end else
begin
Tout[io]:=T;
io:=io+1;
R:=Random;
tobsl := -(1/Mi)*Ln(R);
Tzvezda := T+Tobsl;
end; end;end;
//вычисление характеристик
n:=n-K;
Toc:=0;
for i:= 0 to io-1 do begin
Toc:=Toc+Tout[i]-Tin[i];
end;
Toc:=Toc/io;// клиентов прибыло
Edit4.Text:=inttostr(n+m);//количество отказов
Edit5.Text:=inttostr(m);// n-m количество обслуженных машин
//вероятность отказа
Potk:=m/(n+m);
Edit6.Text:=floattostr(Potk);
// вероятность что будет обслужена без очереди
Pbo := Pbo/(Pbo+io);
//Pbo:=1-Potk;
Edit7.Text:=floattostr(Pbo);
// время ожидания
Edit8.Text:=floattostr(Toc);
end;
end.






Блок схема:
Блок схема
Опубликовал Kest February 18 2011 14:34:58 · 1 Комментариев · 9250 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Иван April 30 2014 09:17:44
хорошая попыткаsmiley
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
SODA [Исходник на...
C++ для начинающих
Delphi и технолог...
База Allsubmitter...
Программирование ...
Globus VCL Extent...
Info
Последнее загруж...
Панель поиска
Динамические за...
Создание оригинал...
Цветной Grid
Трассировка прово...
Основы Delphi. Пр...
Пишем программы и...
Программа "AutoRu...
ИНТЕРНЕТ ПРОГРАММ...
Клавиатурный трен...
EditNew
Архив значков

Топ загрузок
Приложение Клие... 100793
Delphi 7 Enterp... 98012
Converter AMR<-... 20297
GPSS World Stud... 17053
Borland C++Buil... 14236
Borland Delphi ... 10371
Turbo Pascal fo... 7388
Калькулятор [Ис... 6077
Visual Studio 2... 5228
Microsoft SQL S... 3673
Случайные статьи
Что предлагает каз...
Разработать и реал...
В них можно включа...
Пространство внутр...
Windows XP Profess...
Label
Где мы находимся?
В среде с постоянн...
Open-GL Графика в ...
Пример сеанса рабо...
Как сделать анализ...
Модули таблиц
Создание пользоват...
Использование ICQ
Сериализация. Выво...
Пример сеанса рабо...
Форма контроля до...
пару открытый/закр...
Сортировка числово...
Решения, по органи...
В свою очередь эта...
Точная арифметика
Основные сведения ...
Источник данных
Многопользовательс...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?