Смоделируйте бизнес-процессы BPMN предприятия ООО Высокоточная механика. Смоделируйте бизнес-процессы предприятия, с учетом того, что на нём не внедрена информационная система. Само предприятие небольшое, согласовывает 1 заказ от 1 недели до месяца. Выполнения заказа зависит от сложности детали.
Структура:
Заказчик – Частное лицо или организация.
Исполнитель – ООО высокоточная механика.
Отдел контроля качества – Проверяет правильность чертежа и соответствие изготовленной детали чертежу.
Экономический отдел – Расчёт экономической эффективности
Производственный отдел – Выполнение заказа.
Отдел логистики – Занимается закупкой материалов и последующей доставкой изготовленных изделий.
Организация занимается изготовлением изделий на станках. Изготавливаются как отдельные детали, так и изделия из нескольких деталей.
Заказчик присылает чертежи на согласование.
1. Отдел контроля качества проверяет чертёж на реальность изготовления.
2. После подключается экономический отдел. Он рассчитывает стоимость, сроки и рентабельность выполнения заказа.
3. Производственный отдел получает чертёж. Выполняет заказ, согласовывая этапы производства.
4. Отдел логистики закупает материалы после расчёта экономической эффективности. После производства детали отправляет заказчику готовую партию.
Наше предприятие не исправляет неверные чертежи заказчиков. Если чертёж неверен, то он возвращается клиенту на доработку.
К каждому заказу прикрепляется несколько файлов чертежей. Данные чертежи хранятся в формате для дальнейшей обработки в программе Autodesk. (Обязательно)
Так же может прикрепляться картинка чертежа в любом формате (Необязательно)
Так же заявку должны согласовать отдел по контролю качества и экономический отдел. Отдел контроля качества согласовывает чертёж, подготавливает список материалов для детали. После заявка обрабатывается экономическим отделом, который рассчитывает стоимость изготовления изделия, сроки изготовления, стоимость для заказчика и даёт обратную связь заказчику.
var n, x, L, F, k, kint, max:integer;
begin
kint := 0;
max := 0;
for n := 2095 to 19402 do begin
x := n;
k := 0;
while x > 0 do begin
k := k + 1;
if k = 1 then
L := x mod 10;
F := x mod 10;
x := x div 10;
end;
if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin
kint := kint + 1;
if n > max then
max := n;
end;
end;
writeln(kint,' ',max);
end.
Объяснение:
F - первая цифра числа
L - последняя(Слева направо)