Моделирование систем

-
...

-

-

Text) * (M-M0)); leCAll25.Text:= FloatToStr(C2); //ShowMessage('C1='+FloatToStr(C1)+' C2='+FloatToStr(C2)); end; end; end; end else // ЕСЛИ ЗАПЧАСТЕЙ НЕ ХВАТАЕТ, ТО РИСУЕМ УБЫТОК С1 begin case Nabor of 1: begin C1:= C1 + (StrToFloat(leC11.Text) * (qty-M)); leCAll11.Text:= FloatToStr(C1); //ShowMessage('C1='+FloatToStr(C1)+' C2='+FloatToStr(C2)); end; 2: begin C1:= C1 + (StrToFloat(leC12.Text) * (qty-M)); leCAll12.Text:= FloatToStr(C1); //ShowMessage('C1='+FloatToStr(C1)+' C2='+FloatToStr(C2)); end; 3: begin C1:= C1 + (StrToFloat(leC13.Text) * (qty-M)); leCAll13.Text:= FloatToStr(C1); //ShowMessage('C1='+FloatToStr(C1)+' C2='+FloatToStr(C2)); end; 4: begin C1:= C1 + (StrToFloat(leC14.Text) * (qty-M)); leCAll14.Text:= FloatToStr(C1); //ShowMessage('C1='+FloatToStr(C1)+' C2='+FloatToStr(C2)); end; 5: begin C1:= C1 + (StrToFloat(leC15.Text) * (qty-M)); leCAll15.Text:= FloatToStr(C1); //ShowMessage('C1='+FloatToStr(C1)+' C2='+FloatToStr(C2)); end; end; end;//ПРОВЕРКА НАЛИЧИЯ ЗАПЧАСТЕЙ - ЕСЛИ МЕНЬШЕ N-ФЛАГ ЗАКАЗА ЗЕЛЕНЫЙ И КРАСНЫМ СКЛАД case Nabor of 1: begin if (M < N) and (leN1.Color = clWindow) then begin leM1.Color:= clRed; // флаг недостатка запчастей на складе leN1.Color:= clGreen; // флаг-сгнал на генерацию заказа поставки запчастей end; end; 2: begin if (M < N) and (leN2.Color = clWindow) then begin leM2.Color:= clRed; // флаг недостатка запчастей на складе leN2.Color:= clGreen; // флаг-сгнал на генерацию заказа поставки запчастей end; end; 3: begin if (M < N) and (leN3.Color = clWindow) then begin leM3.Color:= clRed; // флаг недостатка запчастей на складе leN3.Color:= clGreen; // флаг-сгнал на генерацию заказа поставки запчастей end; end; 4: begin if (M < N) and (leN4.Color = clWindow) then begin leM4.Color:= clRed; // флаг недостатка запчастей на складе leN4.Color:= clGreen; // флаг-сгнал на генерацию заказа поставки запчастей end; end; 5: begin if (M < N) and (leN5.Color = clWindow) then begin leM5.Color:= clRed; // флаг недостатка запчастей на складе leN5.Color:= clGreen; // флаг-сгнал на генерацию заказа поставки запчастей end; end; end; if week = 5 then //проверка конца недели для формирования заказа begin //СИГНАЛ НА ФОРМИРОВАНИЕ ЗАКАЗА case Nabor of 1: begin if leN1.Color = clGreen then begin leN1.Color:= clYellow; // ShowMessage('селеный ячейк'); end; end; 2: begin if leN2.Color = clGreen then begin leN2.Color:= clYellow; // ShowMessage('селеный ячейк'); end; end; 3: begin if leN3.Color = clGreen then begin leN3.Color:= clYellow; // ShowMessage('селеный ячейк'); end; end; 4: begin if leN4.Color = clGreen then begin leN4.Color:= clYellow; // ShowMessage('селеный ячейк'); end; end; 5: begin if leN5.Color = clGreen then begin leN5.Color:= clYellow; // ShowMessage('селеный ячейк'); end; end; end; end; // ЕСЛИ СИГНАЛ ЖЕЛТЫЙ, ТО ГЕНЕРИРУЕМ ПОСТАВКУ ЗАКАЗА // ПО РАВНОМЕРНОМУ ЗАКОНУ, ИСХОДЯ ИЗ РАСПРЕДЕЛЕНИЯ ПО ДНЯМ case Nabor of 1: begin if leN1.Color=clYellow then begin // ВЫБОР РАССПРЕДЕЛЕНИЯ ВЕРОЯТНОСТИ ПОСТАВКИ case Variant of 1: begin case week of 1: begin zakaz(YesNozkz, StrToFloat(LED11.Text)); end; 2: begin zakaz(YesNozkz, StrToFloat(LED12.Text)); end; 3: begin zakaz(YesNozkz, StrToFloat(LED13.Text)); end; 4: begin zakaz(YesNozkz, StrToFloat(LED14.Text)); end; 5: begin zakaz(YesNozkz, StrToFloat(LED15.Text)); end; end; end; 2: begin case week of 1: begin zakaz(YesNozkz, StrToFloat(LED21.Text)); end; 2: begin zakaz(YesNozkz, StrToFloat(LED22.Text)); end; 3: begin zakaz(YesNozkz, StrToFloat(LED23.Text)); end; 4: begin zakaz(YesNozkz, StrToFloat(LED24.Text)); end; 5: begin zakaz(YesNozkz, StrToFloat(LED25.Text)); end; end; end; 3: begin case week of 1: begin zakaz(YesNozkz, StrToFloat(LED31.Text)); end; 2: begin zakaz(YesNozkz, StrToFloat(LED32.Text)); end; 3: begin zakaz(YesNozkz, StrToFloat(LED33.Text)); end; 4: begin zakaz(YesNozkz, StrToFloat(LED34.Text)); end; 5: begin zakaz(YesNozkz, StrToFloat(LED35.Text)); end; end; end; end; if YesNozkz = True then // проверка - ЕСТЬ ПОСТАВКА? begin leN1.Color:= clWindow; // ВОССТАНОВИМ НОРМАЛЬНЫЙ ЦВЕТ ЯЧЕЙКИ leM1.Color:= clWindow; M:=M + StrToInt(leN1.Text);// ДОБАВИМ В ПЕРЕМЕННУЮ СЧЕТЧИК СКЛАДА ДЕТАЛИ leM1.Text:= IntToStr(M); // установим текущее значение склада в польоват интерфейсе end; end; // КОНЕц УСЛОВИЯ ГЕНЕРАЦИИ ПОСТАВКИ end; 2: begin if leN2.Color=clYellow then begin // ВЫБОР РАССПРЕДЕЛЕНИЯ ВЕРОЯТНОСТИ ПОСТАВКИ case Variant of 1: begin case week of 1: begin zakaz(YesNozkz, StrToFloat(LED11.Text)); end; 2: begin zakaz(YesNozkz, StrToFloat(LED12.Text)); end; 3: begin zakaz(YesNozkz, StrToFloat(LED13.Text)); end; 4: begin zakaz(YesNozkz, StrToFloat(LED14.Text)); end; 5: begin zakaz(YesNozkz, StrToFloat(LED15.Text)); end; end; end; 2: begin case week of 1: begin zakaz(YesNozkz, StrToFloat(LED21.Text)); end; 2: begin zakaz(YesNozkz, StrToFloat(LED22.Text)); end; 3: begin zakaz(YesNozkz, StrToFloat(LED23.Text)); end; 4: begin zakaz(YesNozkz, StrToFloat(LED24.Text)); end; 5: begin zakaz(YesNozkz, StrToFloat(LED25.Text)); end; end; end; 3: begin case week of 1: begin zakaz(YesNozkz, StrToFloat(LED31.Text)); end; 2: begin zakaz(YesNozkz, StrToFloat(LED32.Text)); end; 3: begin zakaz(YesNozkz, StrToFloat(LED33.Text)); end; 4: begin zakaz(YesNozkz, StrToFloat(LED34.Text)); end; 5: begin zakaz(YesNozkz, StrToFloat(LED35.Text)); end; end; end; end; if YesNozkz = True then // проверка - ЕСТЬ ПОСТАВКА? begin leN2.Color:= clWindow; // ВОССТАНОВИМ НОРМАЛЬНЫЙ ЦВЕТ ЯЧЕЙКИ leM2.Color:= clWindow; M:=M + StrToInt(leN2.Text);// ДОБАВИМ В ПЕРЕМЕННУЮ СЧЕТЧИК СКЛАДА ДЕТАЛИ leM2.