Разработка имитационной модели сборочного участника цеха.

Содержание

Введение
Постановка задачи
Терминология
Блок-схема алгоритма
Инструкция к программе
Исходный код программы
Результаты моделирования
Выводы
Заключение
Список использованной литературы

Разработка имитационной модели сборочного участника цеха.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, Math;
type
TForm1 = class(TForm)
Button1: TButton;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit4: TSpinEdit;
SpinEdit5: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
SpinEdit6: TSpinEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:system.text;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,m : Integer;
ttime : Integer;
ttime_detail:Integer;
count_detail:Integer;
ttime_one:Integer;
ttime_work:Integer;
ttime_stop:Integer;
count_izdelie:Integer;
begin
DeleteFile(ExtractFilePath(Application.ExeName)+'\resultat.csv');
AssignFile(f,ExtractFilePath(Application.ExeName)+'\resultat.csv');
Rewrite(f);
writeln(f,'N прогона;Количество изделий;Время простоя (мин.);');
//цикл до количества прогонов
for i:=1 to SpinEdit6.Value do
begin
m:=1;
ttime:=0;
count_detail:=0;
ttime_one:=0;
ttime_work:=0;
ttime_stop:=0;
count_izdelie:=0;
//цикл до окончания суток (24 часов, например)
while ttime<=SpinEdit5.Value*60 do
begin
//рассчитаем время поступления партии по экспоненциальному распределению
randomize;
ttime_detail:=round((-1.0)*SpinEdit2.Value*Ln(random)); //время до появления детали;
//проверим закончился или нет процесс предыдущей сборки
if (ttime_one>ttime_detail) then
begin
//если сборка не закончилась, то к общему времени прибавим время предыдущей сборки и увеличим общее время простоя
ttime:=ttime+ttime_one;
ttime_stop:=ttime_stop+ttime_one-ttime_detail;
end