Помощь в учёбе, очень быстро...
Работаем вместе до победы

Автоматизация технологического процесса обнаружения металлических частиц в движущемся материале

Диссертация: Автоматизация технологического процесса обнаружения металлических частиц в движущемся материале
ДиссертацияПомощь в написанииУзнать стоимостьмоей работы

В настоящее время при изготовлении одежды, обуви, кожгаланте-рейных и других изделий широко используются искусственные кожи, являющиеся единственным источником восполнения острой нехватки натуральной кожи. Искусственные кожи изготавливаются с применением основы из химических волокон и растворов полиуретана для формирования лицевого покрытия. Они обладают кожеподобным видом, высокой… Читать ещё >

Содержание

  • Глава 1. Технологические причины возникновения металлических частиц в нетканых материалах. Анализ способов обнаружения и удаления металлических частиц из движущегося материала
    • 1. 1. Причины возникновения и проблемы, связанные с наличием металлических частиц в продуктах производства
    • 1. 2. Анализ существующих способов очистки полотна
    • 1. 3. Анализ существующих способов обнаружения металлических частиц
  • Выводы
  • Глава 2. Исследование существующего подхода к обнаружению металлических частиц в движущемся полотне с автоматическим определением координат их расположения
    • 2. 1. Структурный анализ системы автоматического определения координат расположения металлических частиц
    • 2. 2. Критерий оценки качества работы системы автоматического определения координат
    • 2. 3. Исследование существующего способа обнаружения металлических частиц в движущемся материале с автоматическим определением координат их расположения
      • 2. 3. 1. Математическая модель системы автоматического определения координат
      • 2. 3. 2. Разработка имитационной модели существующей АСУ ТП удаления металлических частиц
      • 2. 3. 3. Исследование и анализ результатов имитационного моделирования
    • 2. 4. Разработка нового способа обнаружения металлических частиц в движущемся материале с автоматическим определением координат их расположения
      • 2. 4. 1. Основные положения нового способа
      • 2. 4. 2. Разработка математической модели системы автоматического определения координат для нового 74 способа
      • 2. 4. 3. Разработка имитационной модели АСУ ТП удаления металлических частиц из движущегося полотна
      • 2. 4. 4. Исследование и анализ результатов имитационного моделирования
  • Выводы
  • Глава 3. Формирование нового подхода к обнаружению металлических частиц в движущемся материале с автоматическим определением координат их расположения
    • 3. 1. Основные положения нового подхода
    • 3. 2. Математическая модель первого алгоритма реализации нового подхода
    • 3. 3. Разработка имитационной модели АСУ ТП удаления металлических частиц из движущегося полотна, основанной на первом алгоритме реализации нового подхода
    • 3. 4. Математическая модель второго алгоритма реализации нового подхода
    • 3. 5. Разработка имитационной модели АСУ ТП удаления металлических частиц из движущегося полотна, основанной на втором алгоритме реализации нового подхода
    • 3. 6. Исследование и анализ результатов имитационного моделирования
  • Выводы
  • Глава 4. Новый способ обнаружения металлических частиц с автоматическим определением координат расположения с повышенной достоверностью
    • 4. 1. Сущность нового способа
    • 4. 2. Разработка схемы электрической блока обработки и управления
    • 4. 3. Анализ экономической эффективности внедрения нового способа
  • Выводы

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

Актуальность темы

.

В настоящее время при изготовлении одежды, обуви, кожгаланте-рейных и других изделий широко используются искусственные кожи, являющиеся единственным источником восполнения острой нехватки натуральной кожи [25, 81, 95]. Искусственные кожи изготавливаются с применением основы из химических волокон и растворов полиуретана для формирования лицевого покрытия. Они обладают кожеподобным видом, высокой морозостойкостью, теплостойкостью, изгибостойкостью и высокими гигиеническими свойствами [37, 42, 45]. В качестве основы искусственной кожи наиболее широко используют нетканый материал. Интенсивный рост производства нетканых материалов объясняется прогрессивностью технологии, обеспечивающей возможность комплексной механизации и автоматизации производственных процессов, и использованием дешевого сырья [110].

Производство нетканого материала осуществляется иглопробивным способом. При его использовании формируется трехмерная структура, скрепленная самими волокнами холста за счет протаскивания волокон зазубринами пробивных игл в поперечном направлении [50, 70, 96, 102].

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

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

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

Цель работы.

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

Основные задачи исследований:

1. Разработка имитационной модели существующей АСУ ТП удаления металлических частиц из движущегося полотна, включающей обнаружение металлических частиц и определение координат их расположения, позволяющей установить причины возникновения ошибок определения координат расположения частиц в материале.

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

3. Имитационное моделирование АСУ ТП удаления металлических частиц из движущегося полотна, в основе функционирования которой лежит предложенный способ, с целью получения количественной оценки достоверности определения координат, определения преимуществ предложенного способа по сравнению с существующими и возможности его практического использования.

Методы и средства исследований.

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

Научная новизна.

1. Разработана имитационная модель существующей АСУ ТП удаления металлических частиц из движущегося полотна, позволившая установить причины возникновения ошибок определения координат расположения металлических частиц.

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

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

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

5. Разработана имитационная модель АСУ ТП удаления металлических частиц из движущегося полотна, в основе функционирования которой лежит предложенный способ, позволившая установить преимущество предложенного способа, выразившееся в уменьшении количества ложных срабатываний исполнительного органа при удалении.

Основные положения, выносимые на защиту.

1. Результаты исследования существующего подхода к обнаружению металлических частиц в движущемся полотне с автоматическим определением координат их расположения.

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

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

4. Результаты исследования имитационной модели АСУ ТП удаления металлических частиц из движущегося полотна, в основе работы которой лежит предложенный способ.

Практическая ценность и реализация результатов работы.

Практическую ценность работы составляют:

— разработанный в рамках предложенного подхода способ обнаружения металлических частиц в движущемся материале с автоматическим определением координат их расположения, основанный на попарной конъюнктивной оценке значений соответствующих элементов множеств сигналов от датчиков обнаружения, позволивший повысить достоверность определения координат;

— разработанная структурная схема АСУ ТП удаления металлических частиц из движущегося полотна, в основу работы которой положен предложенный способ;

— разработанная схема электрическая принципиальная блока обработки и управления для устройства, позволяющего вести обработку полотна по 80 зонам по ширине.

Результаты, полученные в ходе работы, используются опытным производством Орловского НИИЛегмаш в проектах по модернизации технологической линии по производству основы искусственной кожи и при проведении.

10 лабораторных работ по курсу «Основы АСУ ТП» дня студентов кафедры КиПРА ОрелГТУ.

Апробация работы.

Основные положения и результаты работы были обсуждены и одобрены на: Всероссийской научной конференции «Проблемы создания и развития информационно-телекоммуникационных систем специального назначения» (г. Орел, ВИПС, февраль 1997 г.), Международной научно-технической конференции: Микроэлектроника и информатика — 97 (г. Москва, март 1997 г.), а также на научно-технических конференциях в ОрелГТУ в 1995;1997гг. и научно-методических семинарах кафедры КиПРА ОрелГТУ.

Публикации.

По материалам диссертационной работы опубликовано 9 печатных работ.

Структура и объем диссертации

.

Диссертационная работа изложена на 125 страницах машинописного текста, содержит 41 рисунок и 11 таблиц. Состоит из введения, четырех глав, заключения, списка используемых источников, включающего 110 наименований, и 7 приложений.

Выводы:

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

2. Разработана схема электрическая принципиальная блока обработки и управления для устройства, позволяющего вести обработку материала при разбиении последнего на 80 зон по ширине.

3. Проведена краткая оценка экономической эффективности внедрения разработанного способа, показавшая, что разработанный способ позволяет получить экономию порядка 306 400 рублей в год.

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

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

2. Проведен анализ существующих методов и средств автоматизированного обнаружения металлических частиц. Установлено, что наиболее перспективным с точки зрения автоматизации технологического процесса обнаружения металлических включений в нетканом материале является метод электромагнитного контроля.

3. Проведен анализ существующих датчиков обнаружения. Установлено, что для обнаружения металлических частиц в движущемся нетканом материале целесообразно использовать накладной трансформаторный датчик обнаружения.

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

5. Разработана имитационная модель существующей АСУ ТП удаления металлических частиц и на ней проведено исследование рассматриваемого технологического процесса с целью установления достоверности определения координат расположения металлических частиц.

6. В процессе анализа результатов исследования АСУ ТП удаления металлических частиц на имитационной модели установлено:

— существующая АСУ ТП удаления металлических частиц, включающая обнаружение частиц и определение координат их расположения, обладает избыточностью информации при определении координат частиц с коэффициентом ошибочности С>=0,27;

— выявлена причина возникновения избыточности информации: очередность появления сигналов о частицах с датчика обнаружения во многих случаях не совпадает с очередностью появления сигналов о тех же частицах с датчика обнаружения Т>2, что приводит к формированию ложных координат.

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

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

9. Разработана имитационная модель АСУ ТП удаления металлических частиц из движущегося материала с учетом разработанной математической модели.

10. На основании результатов имитационного моделирования АСУ ТП удаления металлических частиц установлено, что предложенный алгоритм формирования эталонного множества является несовершенным, так как не позволяет выделить истинное сочетание сигналов, получаемых от датчиков обнаружения, соответствующее реальному расположению частиц в полотне.

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

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

13. Разработаны две математические модели системы автоматического определения координат с учетом нового подхода к обнаружению металлических частиц.

14. Разработаны две имитационные модели АСУ ТП удаления металлических частиц, в основу работы которых положен новый подход, на основании исследования результатов которых установлено, что использование нового подхода к обнаружению позволяет значительно повысить достоверность определения координат расположения металлических частиц: — количество ложных срабатываний исполнительного органа снижается до 23% (на 13% по сравнению с существующим подходом) — -коэффициент ошибочности С) снижается до 0,15.

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

143 ботки нового способа обнаружения металлических частиц и структуры АСУ ТП удаления металлических частиц.

16. В рамках предложенного подхода разработан новый способ обнаружения металлических частиц с автоматическим определением координат их расположения, основанный на попарной конъюнктивной оценке значений соответствующих элементов множеств сигналов от датчиков обнаружения, и его техническая реализация на базе микропроцессорных средств.

17. Разработана схема электрическая принципиальная блока обработки и управления для устройства, позволяющего вести обработку материала при разбиении последнего на 80 зон по ширине.

18. Проведена краткая оценка экономической эффективности внедрения разработанного способа, показавшая целесообразность внедрения разработанного способа.

Показать весь текст

Список литературы

  1. Н.Д., Петров Ю. П. Теория и методы проектирования оптимальных регуляторов. Л.: Энергоатомиздат. Ленингр. отд-ние, 1985. -240 с.
  2. С.А., Зингман A.A. Основы автоматизации технологических процессов в текстильной и легкой промышленности : Учеб. пособие для техникумов. М.: Гизлегпром, 1963. — 378 с.
  3. Автоматизация имитационного моделирования сложных систем / Под ред. Н. П. Бусленко. М.: Наука, 1977. — 240 с.
  4. Автоматизация типовых технологических процессов и установок: Учебник дня вузов / А. М. Корытин, Н. К. Петров, С. Н. Радимов, Н.К. Шапа-рев. 2-е изд., перераб и доп. — М.: Энергоатомтиздат, 1988. — 432 с. с ил.
  5. Автоматизированное проектирование систем управления / Под ред. М. Джамшиди, пер. с англ. М.: Машиностроение, 1989. — 344 с.
  6. В.И., Бернштейн М. Х. Нетканые волокнистые основы для производства искусственных кож // Кожевенно-обувная промышленность. 1975. — № 12 — стр.26−29.
  7. .И., Шамрай Б. В. Электромагнитные устройства автоматики. -М.-Л.: Энергия, 1965. 484 с. с ил.
  8. В.А., Овчинников М. А. Обнаружение металлических частиц в нетканых материалах // В кн.: Орловский НИИлегмаш. Труды института. -1974. Т 3. — с.78.
  9. А. С. 1 201 379 СССР, МКИ D 06 Н 3/14. Устройство дня удаления обломков игл из движущегося полотна / Мамонов А. П. (СССР) № 3 659 203/2812- Заяв. 29.08.83- Опубл. 30.12.85- Бюл.№ 48 2 с. ил.
  10. А. С. 1 348 425 СССР, МКИ D 06 Н 3/14. Устройство для удаления обломков игл из движущегося полотна / Мамонов А. П. (СССР) № 4 008 332/2812- Заяв. 17.01.86- Опубл. 30.10.87- Бюл.№ 40 3 с. ил.
  11. А. С. 545 714 СССР, МКИ D 06 Н 3/14. Устройство для обнаружения и удаления металлических частиц из движущегося материала / Мамонов
  12. A.П., Овчинников М. А., Распопов A.C., Спринцын Д. Е., Архангельский
  13. B.А. (СССР) № 2 120 071/12- Заяв. 04.04.75- Опубл. 05.02.77- Бюл.№ 5 2 с. ил.
  14. А. С. 592 897 СССР, МКИ D 06 Н 3/14. Устройство для управления рабочим органом / Суздальцев А. И., Костенко В. А., Архангельский В. А. (СССР) № 2 307 264/28−12- Заяв. 04.01.76- Опубл. 15.02.78- Бюл.№ 6 2 с. ил.
  15. A.C. 594 227 СССР, МКИ D 06 Н 3/14. Устройство для обнаружения и удаления металлических частиц из движущегося материала / Мамонов А. П. (СССР) № 2 406 229/28−12- Заяв. 21.09.76- Опубл. 25.02.78- Бюл.№ 7 -3 с. ил.
  16. A.C. 649 768 СССР, МКИ D 06 Н 3/14. Способ удаления металлических частиц из движущегося немагнитного материала / Мамонов А. П. (СССР) № 2 341 883/28−12- Заяв. 05.04.76- Опубл. 28.02.79- Бюл.№ 8 2 с. ил.
  17. A.C. 745 999 СССР, МКИ D 06 Н 3/14. Устройство для обнаружения и удаления металлических частиц из движущегося полотна / Суздальцев А. И., Мамонов А. П. (СССР) № 2 629 997/28−12- Заяв. 12.06.78- Опубл. 07.07.80- Бюл.№ 25 3 с. ил.
  18. A.C. 748 343 СССР, МКИ D 06 Н 3/14. Устройство для управления рабочим органом / Овчинников М. А., Суздальцев А. И., Пудов В. А. (СССР) № 2 622 988/18−24- Заяв. 30.05.78- Опубл. 15.07.80- Бюл.№ 26 3 с. ил.
  19. A.C. 755 923 СССР, МКИ D 06 Н 3/14. Устройство для управления рабочим органом / Овчинников М. А., Суздальцев А. И., Пудов В. А., Ланген A.M. (СССР) № 2 628 261/28−12- Заяв. 07.06.78- Опубл. 15.08.80- Бюл.№ 30 4 с. ил.
  20. A.C. 825 741 СССР, МКИ D 06 Н 3/14. Индуктор к устройству для удаления металлических частиц из движущегося полотна / Мамонов А. П., Хансуваров A.A. (СССР) №> 2 821 947/28−12- Заяв. 14.09.79- Опубл. 30.04.81- Бюл.№ 16 3 с. ил.
  21. A.C. 839 075 СССР, МКИ D 06 Н 3/14. Индуктор для нагрева удлиненных металлических частиц, размещенных в полосе из немагнитного материала / Мамонов А. П. (СССР) № 2 818 990/24−07- Заяв. 14.09.79- Опубл. 15.06.81- Бюл.№ 22 3 с. ил.
  22. А.С.767 254 СССР, МКИ D 06 Н 3/14. Устройство для обнаружения металлических частиц в движущемся материале / Овчинников М. А., Суз-дальцев А.И., Ланген А. М (СССР) № 2 656 177/28−12- Заяв. 18.08.78- Опубл. 30.09.80- Бюл.№ 36 3 с. ил.
  23. В.Н., Колмановский В. Б., Носов В. Р. Математическая теория конструирования систем управления . 2-е изд., дополненное. — М.: Высшая школа, 1998. — 573 с.
  24. Л.Б., Маркова Р. Ф. Основы автоматизации технологических процессов: Учеб. пособие для техникумов. М.: Легкая индустрия, 1981. -288 с.
  25. С.И. Синтез микропрограммных автоматов. Л.: Энергия, Ле-нингр. отд-ние, 1974. — 276 с.
  26. М.Х. Производство рулонной искусственной кожи на поточных линиях: Учеб. пособие / Под. ред. А. Д. Зайончковского. М.: Легкая индустрия, 1964. — 53 с.
  27. М.Х., Ябко Я. М., Зайончковский А. Д., Кржижановский К. О., Замятин К. К., Бернштейн Е. С., Баркова Л. В., Прокурат Р. Э., Вто-ров Г.Н. Искусственная кожа на нетканой основе // Кожевенно-обувная промышленность. 1963. — № 4 — стр. 18−21.
  28. Л.Н., Дойников A.C. Краткий справочник метролога: Справочник. М.: Издательство стандартов, 1991. — 79 е., ил.
  29. В.А., Бернштейн М. Х. Особенности изготовления иглопробивных материалов для основы искусственной кожи. Информационный листок «Нетканые текстильные материалы». М.: ЦНИИТЭНлегпром, 1970, № 1, стр. 1.
  30. В.А., Бернштейн М. Х. Усадка иглопробивных материалов из химических волокон. Информационный листок «Нетканые текстильные материалы». М.: ЦНИИТЭНлегпром, 1970, № 2, стр. 1.
  31. В.М., Вершин В. Е. Автоматизированные системы управления технологическими процессами. 2-е изд., перераб. и доп. — JL: Машиностроение. Ленингр. отд-ние, 1977. — 237 с.
  32. Вырубочные прессы фирмы Fortuna // Оборудование для легкой промышленности. Экспресс информация. ЦНИИ ТЭИлегпищемаш. 1983. -№ 5-стр.20.
  33. Ю.А. Инструментальные стали. 5-е изд., перераб. и доп. — М.:i
  34. Металлургия, 1983. 526 е.: ил.
  35. В.Г. Методы и приборы электромагнитного контроля промышленных изделий / В. Г. Герасимов, В. В. Клюев, В. Е. Шатерников. -М.: Энергоатомиздат, 1983. 272 с.
  36. В.М. Синтез цифровых автоматов. М.: Физматгиз, 1962. — 476 с.
  37. А.Л. Электро-индуктивная дефектоскопия. М.: Машиностроение, 1967. — 231 с.
  38. В.В. Оборудование и механизация производства полимерных пленочных материалов и искусственных кож: Учеб. пособие для техникумов. 2-е изд. перераб. и доп. — М.: Легпромбытиздат, 1992. — 227 с.
  39. С.Н., Бернштейн М. Х. Искусственные кожи. М.: Легкая и пищевая промышленность, 1983. — 184 с.
  40. Имитационное моделирование производственных систем / Под общ. ред. Вавилова A.A. М.: Машиностроение- Берлин: Техника, 1983. — 416 с. с ил.
  41. Информационный листок № 91−2. Серия Р.55.59.33. Устройство для удаления обломков игл. Орел: Орловский ЦНТИ, 1991. — 4 с.
  42. Искусственные кожи (Пер. с чеш. Б. Я. Краснова под науч. ред. С.Л. По-линского). М.: Легкая индустрия, 1973. — 152 с. с ил.
  43. Исследования по совершенствованию систем обнаружения и удаления обломков игл из основы синтетической кожи: Отчет о НИР / Орловский НИИлегмаш- Иванов Э. А., Кашин В. П., Мамонов А. П., Овчинников М. А. Тема 71/12−80. — Орел, 1980. — 96 е.: ил.
  44. Т.Д. Коммутация магнитного потока / Под. ред. Б.С. Сотков-ского. М.: Энергия, 1974. — 248 с. с ил.
  45. В.П. и др. Теоретические основы САПР: Учебник для вузов / В. П. Корячко, В. М. Курейчик, И. П. Норенков. М.: Энергоатомиздат, 1987. — 400 с,: ил.
  46. Е.А., Минстер М. А. Новые металлоискатели для ферромагнитных руд // Научно- технический информационный бюллетень. Институт Механобр. Ленинград. -1963. № 2. — стр. 27.
  47. Р. Нетканые текстильные материалы (Пер. с чешс.). М.: Легкая индустрия, 1964. — 244 с.
  48. М.М., Волчкевич Л. И., Замчанов Ю. П. Автоматизация производственных процессов: Учебник для вузов / Под ред. Г. А. Шаумяна. -М.: Высшая школа, 1978. 431 с.
  49. И.С. Имитационные системы: (Методология исследования и проектирования) / Отв. ред. Н. Б. Мироносецкий. Новосибирск: Наука, Сиб. отд-ние, 1981. — 300с.
  50. В.Г., Пийль Е. И. Синтез управляющих автоматов. М.: Энергия, 1978. — 408 с.
  51. А.Я., Розенман Е. А. Оптимальное управление. М.: Энергия, 1970. — 359 с.
  52. А.П., Архангельский В. А. Агрегат для удаления обломков игл из нетканого волокнистого материала // Оборудование для легкой промышленности. Реферативная информация. ЦНИИТЭИлегпищемаш. -1978. № 6 — стр.11−13.
  53. Н.С. Основы теории обработки результатов эксперимента: Учебн. пособие. М.: Издательство стандартов, 1991. — 176 е., ил.
  54. Э., Мюллер П. Методы принятия технических решений: Пер. с нем. М.: Мир, 1990. — 208 е.: ил.
  55. В.А., Вальков В. М., Омельченко И. С. Автоматизированные и автоматические системы управления технологическими процессами. -М.: Машиносторение, 1978. 232 с.
  56. A.A., Степанов В. Н. Персональные ЭВМ и микроЭВМ. Основы организации: Справочнок / Под. ред. A.A. Мячева. М.: Радио и связь, 1991.-320 е.: ил.
  57. В.Н., Пятов Л. И. Автоматика и автоматизация производственных процессов в легкой промышленности: Учеб. для вузов. М.: Легкая и пищевая промышленность, 1981. — 256 с.
  58. Неразрушающий контроль. В 5 кн. Кн. 1. Общие вопросы. Контроль проникающими веществами: Практическое пособие / Гурвич А. К., Ермолов И. Н., Сажин С. Г.- Под ред. Сухорукова В. В. М.: Высшая школа, 1992. — 242 с.: ил.
  59. Неразрушающий контроль. В 5 кн. Кн. 2. акустические методы контроля / Ермолов И. Н., Алешин Н. П. Потапов А.И.- Под ред. Сухорукова B.B. М.: Высшая школа, 1991. — 283 с.: ил.
  60. Неразрушающий контроль. В 5 кн. Кн. 3. Электромагнитный контроль: Практическое пособие / Герасимов В. Г., Покровский А. Д., Сухоруков В.В.- Под ред. Сухорукова B.B. М.: Высшая школа, 1992. — 312 с. с ил.
  61. Неразрушающий контроль. В 5 кн. Кн. 4. Контроль излучениями: Практическое пособие / Епифанцев Б., Гусев Е., Матвеев В. Соснин Ф.- Под ред. Сухорукова B.B. М.: Высшая школа, 1992. — 321 е.: ил.
  62. Неразрушающий контроль. В 5 кн. Кн. 5. Интроскопия и автоматизация контроля: Практическое пособие /Сухоруков В., Вайнберг Э., Кажис Р., Абакумов А.- Под ред. Сухорукова B.B. М.: Высшая школа, 1993. — 321 с.: ил.
  63. Нетканые текстильные полотна: Справочное пособие / E.H. Бершев, Г. П. Смирнов, Б. В. Заметта, Ю. П. Назаров, В. Н. Корнеев. М.: Лег-промбытиздат, 1987. — 400 с.
  64. М.А. Устройство для управления рабочими органами удаления обломков игл из нетканого волокнистого материала // Оборудование для легкой промышленности. Экспресс информация. ЦНИИ ТЭИ-легпищемаш. 1983. — № 5 — стр.4−6.
  65. М.А., Пудов В. А. Изменение параметров электромагнитного датчика при обнаружении частиц различных материалов // В кн.: Орловский НИИлегмаш. Труды института. 1977. — Т 28. — с.32.
  66. Основы метрологии: Учебник для вузов / Б. Я. Авдеев, Е. М. Антонюк, Е. М. Душин и др.- Под ред. Е. М. Душина. 6-е изд., перераб. и доп. — Л.: Энергоатомиздат. Ленингр. отд- ние, 1987. — 480.: ил.
  67. Паллю де Ла Барьер Р. Курс теории автоматического управления / Под ред. П. И. Кузнецова., пер. с франц. М.: Машиностроение, 1973. — 396 с.
  68. К.А., Листвин B.C. Контроль за посторонними ферромагнитными телами, попадающими в штучно-кусковую продукцию // Труды Московского технологического института пищевой промышленности. -1958. вып. 12-стр.82.
  69. Пат. ПНР, кл.76 b 7/02, (D 01 g 23/02). Устройство для удаления частиц магнитных материалов / Денис Хенрик, Бьяли Густав (ПНР) № 66 124- Заявл. 3.08.70- Опубл. 31.08.72 2 с. ил.
  70. Пат. США, кл. 209−233 R (В 03 с 1/22). Устройство для выделения из волокна металлических предметов / Парнел Роберт (США) № 3 658 178- Заявл. 26.03.70- Опубл. 25.04.72 2 с. ил.
  71. Пат. ФРГ № 957 384, МКИ D06 Н 3/14. Устройство для удаления металлических частиц из движущегося материала. № 957 384,1966.
  72. Пат. ЧССР, кл. 76 b 10, (D 01 g 15/94). Устройство для удаления ферромагнитных частиц из ватки текстильных волокон на кардочесальной машине / Манфред Моравек, Иосиф Прегода (ЧССР) № 152 792- Заявл. 23.01.70- Опубл. 05.07.73 5 с. ил.
  73. Ф.И., Тарасенко Ф. П. Введение в системный анализ : Учеб пособие для вузов. М.: Высшая школа, 1989. — 367 е.: ил.
  74. Приборы для неразрушающего контроля материалов и изделий. Справочник. В 2-х кн./ Под ред. В. В. Клюева, Кн.1. М.: Машиностроение, 1976. — 391 с: ил.
  75. Приборы для неразрушающего контроля материалов и изделий. Справочник. В 2-х кн./ Под ред. В. В. Клюева, Кн.2. М.: Машиностроение, 1976. — 326 с: ил.
  76. Производство искусственных кож: Пер. с нем./ Хифнагель В., Леман Р., Майнель К.- М.: Легпромбытиздат, 1986. 248 с. с. ил.
  77. Н.С. Основы теории управления технологическими процессами / С. А. Анисимов, В. Н. Дынькин, А. Д. Касавин и др. Под ред. Н. С. Райбмана. М.: Наука, 1978. — 440 с.
  78. Л.А. Современные принципы управления сложными объектами. М.: Сов. радио, 1980. — 232 с.
  79. А.К. Новое устройство для обнаружения металлических частиц в полотнах ткани и валах каландров // Технология текстильной промышленности. Известия вузов. 1966. — № 5 — стр. 120.
  80. А.К. Приборы для обнаружения металлических частиц в ткани и валах каландров // Технология текстильной промышленности. Известия вузов. -1961. № 4 — стр. 108.
  81. И.Х. Машинный анализ и проектирование технических систем. -М.: Наука, 1985. -160 е.: ил.
  82. Я.Н. Автоматическое управление: Учеб. пособие для вузов, 3-е изд., перераб. и доп. М.: Наука, 1992. — 576 с.
  83. Руководство по методам анализа качества и безопасности пищевых продуктов / Под. ред. Скурихина И. М., Тупельяна В.А.- М.: Медицина, 1998.-342 с.
  84. А.Я. Арифметические и логические основы теории цифровых автоматов: Учебник для студентов вузов. М.: Высшая школа, 1980. — 255 с.
  85. А.Я. Прикладная теория цифровых автоматов: Учеб. пособие для вузов. М.: Высшая школа, 1987. — 271 с.
  86. .Я., Яковлев С. А. Моделирование систем: Учебник для вузов по спец. Автоматизированные системы управления. М.: Высшая школа, 1985.-271 с.
  87. Ф.Р. Об эффективности некоторых видов неразрушающего контроля // Стандарты и качество. 1990. — № 4 — стр.27−31.
  88. Специальные стали: Учеб. для вузов / М. И. Гольдштейн, C.B. Грачев, Ю. Г. Векслер. М.: Металлургия, 1985. — 406 е.: ил.
  89. Справочник по искусственным кожам и пленочным материалам / Лит-виненко А.Г., Кипнис Б. Я., Дюнина В. Г. М.: Легкая и пищевая промышленность, 1982.- 344 с.
  90. Справочник по производству искусственной кожи / Сост. Кипнис Б. Я., Колесников В. Н., Лернер Д. В. Под общ. ред. В. А. Михайлова. М.: Гиз-легпром, 1963.- т. 1−2.
  91. Справочник по теории автоматического управления /Под. ред. А. А. Красовского. М.: Наука, 1987. — 713 с.
  92. В.В. Автоматика и вычислительная техника. 2-е изд. — М.: Высшая школа, 1977. — 295 с.
  93. В.В. Основы автоматики и вычислительной техники: Учеб. пособие для техникумов. М.: Энергоатомиздат, 1981. — 376 с.
  94. ЮО.Теория автоматического управления. В 2-х ч. 4.2. Теория нелинейных и специальных систем автоматического управления / Под ред. A.A. Воронова. М.: Высшая школа, 1986. — 504 с.
  95. TepMO-, жаростойкие и негорючие волокна / Под ред. A.A. Конкина. -М.: Химия, 1978. 424 с. ил.
  96. Технология производства нетканых материалов. М.: Легкая индустрия, 1967. — 236 с.
  97. Устройство для управления рабочими органами удаления обломков игл из основы синтетической кожи к АУИ-1600-Н. Руководство по эксплуатации. АУИ-1600-Н.05. Орел, Орловский НИИлегмаш, 1982.- 18 с.
  98. Ю4.Физико- химические и комбинированные способы производства нетканых материалов / Бершев E.H., Горчаков В. М., Курицына В. В., Овчинникова С. А. М.: Легпромбытиздат, 1993. — 352 с. ил.
  99. Физико-механические способы производства нетканых материалов и валяльно-войлочных изделий /Баранов Г. Л., Бершев E.H., Смирнов Г. П., Тюленев Ю. А. М.: Легпромбытиздат, 1994. — 256 с.
  100. Юб.Шаматова H.H. Сигнализатор обнаружения металлопримесей в фарше // Мясная индустрия СССР. 1964.- № 2. — стр. 24.
  101. Р. Имитационное моделирование систем искусство и наука : Пер. с англ. / Под ред. Е. К. Масловского. — М.: Мир, 1978. — 418 с.
  102. Л.С., Лифшиц И. Д. Искусственная кожа на прошитой нетканой основе // Кожевенно-обувная промышленность. 1960. — № 8 -стр.24−26.
  103. Электромагнитный метод контроля содержания металлургических магнитных включений в неметаллических материалах: Метод, рекомендации / ВНИИАШ 2-е изд., испр. и доп. — М.: ВНИИТЭИМР, 1987. -16 с.
  104. Ю.Эффективность производства нетканых материалов: Обзор / Рыбакова В. И., Черных В. Д., Мусатова Л. А. М.: ЦНИИТЭИлегпром, 1986. — 56 с. program ModelofProcess- uses Crt-type
  105. FillChar (X, SizeOf (X), 0) — for i:=l to 4 do for j:=1 to 4 doif Random (100)<20 then begin1. Xi, j.:=1- K[i, j]: =1- end-end-procedure KeyboardFillArray (var X: MainTable)label 01-vari, j, btK chK Code begin 01:
  106. GotoXY (31,11) GotoXY (31,12) GotoXY (31,13) GotoXY (31,14) GotoXY (31,15) GotoXY (31,16) GotoXY (31,17) GotoXY (31,18)
  107. GotoXY (31,19) — WriteLn ('L---+
  108. FillChar (X, SizeOf (X), 0) — FillChar (K, SizeOf (K), Obbyte- Char- integer-
  109. GoToXY (29+j*4, 10+i*2) — Write (Xi, j.) — end- repeatchK:=ReadKey- until chK in #13, #27.- if chK=#27 then goto 01- end-procedure LinearFillArray (var X: MainTable) — vari, j, kk, z: byte-
  110. FillChar (BinArray, SizeOf (BinArray), 0) — for i:=l to z do beginremainder := number mod 2- number := number div 2-if remainder <> 0 then BinArray1. := 1- end- kk:=l-for i:=l to 4 dofor j:=l to 4 do begin
  111. X i, j. := BinArray[kk]- K[i, j]: =BinArray[kk]- kk:=kk+l- end-end-procedure DrawlBlock (X:MainTable) — begin
  112. GotoXY (1,1) — WriteLn ('— —T---T— -T—
  113. GotoXY (1,2) — WriteLn ('| X1,1., 1 1 1 2], ' ', X[1,3],' ! ' f X [1, 4], ' ! ')
  114. GotoXY (1, 3) — WriteLn ('± —±--+— -+— -+') —
  115. GotoXY (1,4) — WriteLn ('! ', X2,1., 1 1 1 ', X[ 2, 2], ' ' / X [2, 3], ' ! ', X[2,4],' ! ')
  116. GotoXY (1,5) — WriteLn ('± —±--+— -+— -+') —
  117. GotoXY (1,6) — WriteLn ('! X3,1., 1 1 1 ', X[3, 2], ' •, x[3,3],' ! '/X[3,4],' ! ')
  118. GotoXY (1,7) — WriteLn ('± —±--+— -+— -+ ¦) —
  119. GotoXY (1,8) — WriteLn ('! •, X4,1., 1 1 1 ', X[4, 2], ' 1 /X[4, 3], ' 1 X[4,4], ' ! ')
  120. GotoXY (1,9) — WriteLn ('L- —±--+— +— --') -end-procedure Draw2Block (X:MainTable) — begin
  121. GotoXY (18,1) — WriteLn ('----T---T---T---T---T----.')-1. Х1,2., '
  122. GotoXY (18,2) — WriteLnC! ' r X 1,1., '
  123. X 1, 5., 1 *, X [1, 6], ' ! ') —
  124. GotoXY (18, 3) — WriteLn ('±--±--±--+
  125. GotoXY (18,4) — WriteLn ('| ', X2,1.,'
  126. X 2, 5., ' ! X[2,6], ' !•) —
  127. GotoXY (18, 5) — WriteLn ('±--±--±--+
  128. GotoXY (18, 6) — WriteLnC! ', X3,1.,'
  129. X 3,5., ' ! X [3,6], ' !') —
  130. GotoXY (18, 7) — WriteLn ('±--±--±--±--±--±--+') —
  131. GotoXY (18, 8) — WriteLnC! ', X4,1.,
  132. X 4, 5. , ' ! X[4,6], ' !•) —
  133. GotoXY (18, 9) — WriteLn ('L---±--±--±--±--±---') -end-+ «- ±--+.) -1. X2,2., ' -+—+—+¦-1. X3,2.,'procedure Draw3Block (X:MainTable) — begin
  134. GotoXY (43,1) — WriteLnC----T---T---T1. GotoXY (43,2) — WriteLnC1. GotoXY (43,3) — WriteLn ('+
  135. GotoXY (43, 4) — WriteLnC ! ')-1. GotoXY (43,5) — WriteLn ('+
  136. GotoXY (43, 6) — WriteLnC i i. i I I
  137. GotoXY (43,7) — WriteLn (' + GotoXY (43, 8) — WriteLnCi 11 .i) I
  138. GotoXY (43, 9) — WriteLn ('L---±--±--±---') -end-procedure Draw4Block (X:MainTable) — begin
  139. GotoXY (60,1) — WriteLnC----T---T---T----) -1. X1,1., •1. X2,1.,'1. X3,1.,' ---±--±--+—1. X4,1.,'1. X1,2., ¦1. X2,2., '1. X 3, 2., '-+') -/ X4,2., '
  140. GotoXY (60, 2) — WriteLnC! ', X1,1.,' ') —
  141. GotoXY (60, 3) — WriteLn ('±--±--±--+—
  142. GotoXY (60,4) — WriteLnC! ', X 2,1., ' ') — Go Gc ') —
  143. GotoXY (60, 7) — WriteLn ('±--±--±--+—
  144. GotoXY (60,8) — WriteLnC! ', Х4,1.,' ') —
  145. GotoXY (60,5) — WriteLn (' ±--±--±--+—
  146. GotoXY (60, 6) — WriteLnC! ', X3,1.,'
  147. X 1, 2., 1 '"X[2, 2], ' '"X [3, 2], '1. X4,2.,¦
  148. GotoXY (60,9) — WriteLn (' L---±--±--±---1) -end-•, X1,3.,' ' (X [2, 3], ' X[3,3], ' ', X[4,3],•
  149. X1,3., ' ', X[2,3],' ', X[3,3],' ' г X[4,3], '
  150. WriteLn (Computer1,1., Computer[1,2], Computer[1,3], Computer[1,4],
  151. Computer1,5., Computer[1,6], Computer[1,7], Computer[1,8],
  152. Computer1,9., Computer[1,10], Computer[1,11]) —
  153. WriteLn (Computer2,1., Computer[2,2], Computer[2,3], Computer[2,4]
  154. Computer2,5., Computer[2,6], Computer[2,7], Computer[2,8]
  155. Computer2,9., Computer[2,10], Computer[2,11]) —
  156. WriteLn (Computer3,1., Computer[3,2], Computer[3,3], Computer[3,4]
  157. Computer3,5., Computer[3,6], Computer[3,7], Computer[3,8]
  158. Computer3,9., Computer[3,10], Computer[3,11]) —
  159. WriteLn (Computer4,1., Computer[4,2], Computer[4,3], Computer[4,4]
  160. Computer4,5., Computer[4,6], Computer[4,7], Computer[4,8]end-
  161. Computer4,9., Computer[4,10], Computer[4,11])-procedure DrawDetector- begin
  162. GotoXY (61,2) — TextColor (01.) — Write (s) — GotoXY (61,4) — TextColor (02.) — Write (s) — GotoXY (61,6) — TextColor (0[3]) — Write (s) — GotoXY (61,8) — TextColor (0[4]) — Write (s) — FillChar (0, SizeOf (0), Red) — TextColor (LightGray) — end-procedure ShiftOnTau- begin
  163. Dl, 4.:=D[1,3]- D[2,4]: =D[2,3]- D[3,4]: =D[3,3]- D[4,4]
  164. D1,3.:=D[1,2]- D[2,3]: =D[2, 2]- D[3,3]: =D[3, 2]- D[4,3]
  165. Dl, 2.:=D[1,1]- D[2,2]: =D[2,1]- D[3,2]: =D[3,1]- D[4,2]
  166. Dl, l.:=C[1,4]- D[2,1]: =C[2,4]- D[3,1]: =C[3,4]- D[4,l]
  167. D4, 3. :D[4, 2] :D[4,1] :C [ 4, 4 ]
  168. Cl, 4.:=C[1,3]- C[l, 3]: =C[1,2]- C[l, 2]: =C[1,1]- C[l, l]: =B[1,6]-
  169. C2,4.:=C[2,3]- C[2,3]: =C[2,2]- С[2,2]: =C[2,1]- С[2,1]: =B[2,6]-
  170. C3,4.:=C[3,3]- С[3,3]: =C[3,2]- C[3,2]: =C[3,1] - С[3,1]: =B[3,б]-
  171. C4,4.:=C[4,3] С[4,3]: -С[4,2] С[4,2]: =C[4,1] C[4,l]: =B[4,6]
  172. Bl, 6.:=B[1,5]- B[l, 5]: =B[1,4]- B[l, 4]: =B[1,3]- B[l, 3]: =B[1,2]- В[1,2]: =B[1,1]- B[l, l]: =A[1,4]-
  173. В2,6.:=B[2,5]- B[2,5]: =B[2,4]- B[2,4]: =B[2,3]- B[2,3]: =B[2,2]- В [2, 2]: =B[2,1] - B[2,l]: =A[2,4]-
  174. B3,6.: =B[3,5]- В[3,5]: =B[3,4]- В[3,4]: =B[3,3]- B[3,3]: =B[3,2]- В[3,2]: =B[3,1] - В[3,1]: = A[3,4] -
  175. B4,6.:=B[4,5] В [4,5]: =B[4,4] B[4,4]: =B[4,3] В [4,3]: =B[4,2] В[4,2]: =B [4,1] В[4,1]: =A[4,4]
  176. Al, 4.:=A[1,3]- A[2,4]: =A[2,3]- A[l, 3] :=A[1,2]- A[2,3]: =A[2,2] - A[l, 2] :=A[1,1]- A[2,2]: =A[2,1]-1. Al, 1.:=0- end-1. A2,1.:=0-
  177. A3,4.:= A[3,3] - A[3, 3]: =A[3,2]- A[3,2]: =A[3,1]- A[3,1]: =0 —
  178. A4,4.:=A[4,3] A[4,3]: = A [4,2] A[4, 2]: =A[4,1] A[4,1]: =0-procedure ShiftComputer- begin
  179. Computer1,11. Computer[1,10] Computer[1, 9] Computer[1, 8]. Computer[1,7] Computer[1,6] Computer[1,5] Computer[1,4] Computer[1,3] Computer [1,2] Computer[1,1]
  180. Computer1,10.- =Computer[1,9] =Computer[1,8] =Computer[1,7] =Computer[1,6] =Computer[1,5] =Computer[1,4] =Computer[1,3] =Computer[1,2] =Computer[1,1] =Detector2-
  181. Computer Computer Computer Computer Computer Computer Computer Computer Computer Computer Computer2,11. 2,10] [2,9] [2,8] [2,7] [2,6] [2,5] [2,4] [2,3] [2,2] [2,1]
  182. Computer2,10. — =Computer[2,9]- = Computer[2,8] = Computer[2,7] = Computer[2,6] = Computer[2,5] = Computer[2,4] = Computer[2,3] = Computer[2,2] = Computer[2,1] = Detector2-
  183. Computer Computer Computer Computer Computer Computer Computer Computer Computer Computer Computer3,11.3,10.3,9.3,8.3,7.3,6.3,5.3,4.3,3.3,2.3,1.
  184. Computer3,10.- Computer [3,9] Computer [3, 8] Computer [3,7] Computer [3, 6] Computer [3, 5] Computer [3, 4] Computer [3, 3] Computer [3,2] Computer [3,1] =Detector2-
  185. Computer4,11. Computer[4,10] Computer[4,9] Computer[4,8] Computer[4,7] Computer[4,6] Computer[4,5] Computer[4,4] Computer[4,3] Computer[4,2] Computer[4,1]
  186. Computer4,10.- :=Computer[4,9] = Computer[4,8] = Computer[4,7] = Computer[4,6] = Computer[4,5] = Computer[4,4] = Computer[4,3] = Computer[4,2] = Computer[4,1] = Detector2-
  187. Computer1,6.+Detectorl- Computer[2,5]+Detectorl- Computer [3,4] +Detector 1 — Computer[4,3]+Detectorl-
  188. Extender3.:=2 Extender[2]: =3 Extender1.:=4
  189. Computer1,6. Computer[2,5] Computer[3,4] Computer[4,3]
  190. WriteLn (F, n, '-й вариант') —
  191. WriteLn (F, 1ipГ£IJI .—, —т---T---T---→') /
  192. WriteLn (F, '! ', K1,1.,' ! ', K[l, 2], ' ! ', K[1,3],' l K[1, 4], '1., 4., ' | L[1,3], ' ! ', L [1, 2], ' ! ', L[1, 1], '
  193. WriteLn (F, '±--±--±--+— —±--±--±--+') f
  194. WriteLn (F, '! ', K2,1.,' ! ', K[2,2], ': ', K[2,3],' ! ', K[2, 4], '1., 4., ' ! L[2,3], ': 1 f L[2, 2], ' ', L [2,1], ¦ ! ') —
  195. WriteLn (F, —±--±--+— -+ +— -±--±--±--+) —
  196. WriteLn (F, i i ', K3,1., ' ! 1/K[3,2],': ', к[з, з],' 1, K[3,4], 1 I 1 1 /1., 4., ' ! ', L[3,3],' ! ', L[3,2],' ¦, Lt3, l],' I 1. I / r
  197. WriteLn (F, '± —±--±--+— -+ +— -±--±--±--+
  198. WriteLn (F, i i '/K4,1.,' | ', K[4,2],' ! ', K[4,3],' ', K[4,4], ' 1 t 1 1 /1., 4., ' ! -, L[4,3],' ! 1 / L[4,2], ' ', L [4,1], ' !') —
  199. WriteLn (F, 'L- —±--±--+— L— -±--±--±---) —
  200. WriteLn ('----T---T---T----, ----T---T---T----.') -1. GotoXY (21,12) —
  201. WriteLn ('! K1,1.,' ! 1, K[l, 2], 1 ! K[1,3],' ! ', K[1,4],' |1., 4., ' | ', L[1,3], 1 | ', L[1, 2], ' 1 ', L[1,1] ,' j ') — GotoXY (21,13) —
  202. WriteLn (' ±--±--±--±--+ ±--±--±--±--+1) -1. GotoXY (21,14) —
  203. WriteLn (1| ', K2,1., ' ! ', K[2, 2], 1 ! K[2,3],' K[2,4],' |1.2,4.,' ! 1, L[2,3],' ! ', L[2,2], ' ! ', L[2,1],' !') — GotoXY (21,15) —
  204. WriteLn (' ±--±--±--±--+ ±--±--±--±--+ ')-1. GotoXY (21,16) —
  205. WriteLn ('! ', К3,1.,' ! ', K[3,2], 1 ! >, K[3,3],' | ', K[3,4],' |1.3,4., ' ! ', L[3,3], ' ! ', L[3,2], ' | ', L[3,1],' !') — GotoXY (21,17) —
  206. WriteLn ('±--±--±--±--+ ±--±--±--±--+')-1. GotoXY (21,18) —
  207. WriteLnC! ', К 4,1. , ' | ', K[4, 2], ' | ', K[4,3],' ! >, K[4,4],' |1.4,4., 1 ! ', L[4,3], ' | ', L [ 4, 2 ], ' ! -, L[4,1],' ?') — GotoXY (21,19) —
  208. WriteLn ('L---±--±--±--- L---±--±--±---')-end-var1. Buf: buffer- begin
  209. Assign (F, 'var2dall.rez') — SetTextBuf (F, Buf) — Rewrite (F) — Randomize-1. ClrScr- {очистить экран}n:=l-rogram ModelofProcess- ses Crt, Trans-ре
  210. MainTable = array1.4, 1.6. of byte- {определение типа основные таблицы}ar Key KeyStr Code1. A, B, C, D, K, L 0
  211. Х1,Л := Вз. пАггау[кк. — К[:з:)] :=Вл.пАггау[кк] - кк:=кк+1- еп<1-cocedure DrawlBlock (X:MainTaЫe) — 5длпбссЬоХУ (1,1) ДОгл^еЬп (' — —Т---Т---Т— —'') —
  212. GotoXY (1,2) WriteLn ('| Х1,1.,' ! 2], ' ¦, Х[1,3], ' ! ' / X [1, 4], ' ! ') —
  213. GotoXY (1,3) Юг: ие1,п ('± —±--±--+—6о1-оХУ (1,4) WriteLn (1| Х2,1.,' ! -, Х[2, 2], ' ', Х[2, 3] ': '/X[2,4],' ! ') —
  214. GotoXY (l, 5) WriteLn ('± —±--±--+—
  215. GotoXY (1,6) WriteLn ('| Х3,1.,' ! ', Х[3, 2], ' •, Х[3,3], ': -, х[з, 4],' ! ')-6о1-оХУ (1, 7) ДОгз^еЬп (1 ± —±--±--+— -+¦) —
  216. СоЪоХУ (1,8) Игз^еЬп ('| ' /Х4,1., ' | '/X[4, 2], ' ', Х[4, 3] ' ! >, Х[4,4],' ! ') —
  217. СоЪоХУ (1, 9) ДОгл^еЬп (' Ь- —±--+—+— —')-1-cocedure Бга1лг2В1оск (Х:Мал.пТаЫе) — гдл. п
  218. GotoXY (18,1) — WriteLn ('----Т---Т---Т---Т---Т----) —
  219. Со1-оХУ (18,2) — Игл^еЬпГ! ', Х1,1.,' ] ', Х[1,2],' !
  220. X1,5.,: х [1, б], • ! •) —
  221. GotoXY (18, 3) — Юг: иеЬп (,±--±--±--±--±--±--+') -бо'ЬоХУ (18,4) — WriteLn (,! *, X 2,1., ' 1 ', Х[2,2],' !
  222. X2,5., ' | X[2, б], ' ! ') —
  223. GotoXY (18,5) — WriteLn (' ±--±--±--±--±--±--+') —
  224. GotoXY (18,6) — ВДгзЛеЬпС', ', Х3,1.,' ', Х[3,2],
  225. X3,5., • | X[3, б], ' ! ') —
  226. GotoXY (18,7) — WriteLn (•±--±--±--±--±--±--+ ') —
  227. GotoXY (18,8) — ИпиеЬпГ!, Х4,1.,' 1 Х[4,2],' |
  228. Х4,5., ' ! X[4,б], ' |') —
  229. GotoXY (18, 9) — Юг: иеЬп ('Ь---±--±--±--±--±---') -ocedure DrawЗBlock (Х:Ма1пТаЫе) — гд1п
  230. Со1-оХУ (43,1) — Югз^еЬп ('----Т---Т---Т----. •) —
  231. GotoXY (43, 2) — Игл^еЬпС! ' ГХ1,1., ' 1 ', Х[1,2],' ') —
  232. GotoXY (43, 3) — Иг: иеЬп (' ±--±--±--±--+') —
  233. GotoXY (43, 4) — Игз^еЬпС', ', Х2,1.,' | 1, X [2, 2], ' ') -вс^оХУ (43, 5) — WriteLn (,±--±--±--+—
  234. GotoXY (43, 6) — ЮгзЛеЬпС! ', X3,1., 1 ') —
  235. GotoXY (43, 7) — 1/?гл^е1.п (,±--±--±--+—6о1-оХУ (43, 8) — Югз^еЬп (1 ! ', Х4,1.,' ') —
  236. GotoXY (43, 9) — WriteLn ('Ь---±--±--±---•) -1с1-l:ocedure Draw4Block (X:MainTaЫe) — эдэ. пэ1:оХУ (60, 1) — WriteLn ('----Т---Т---Т----) —
  237. СсЛоХ¥-(60,2) — 1АГг^еЬп ('! ', Х1,1.,' | ', Х[1,2],' ') —
  238. GotoXY (60,3) — Шг 11еЪп (' ±--±--±--±--+1) -во1:оХУ (60, 4) — ВДг^еЬпС! !, Х2,1.,' 1 ', Х[2,2],' ') —
  239. GotoXY (60, 5) — Югл^еЬп (' ±--±--±--±--+') -, Х1, 3., ' ' /Х[2, 3], ' ! ', Х[3,3],' Х[4,3],'
  240. Х1,4., ' ' /X[2, 4], ' 1 / X [3, 4], • •, Х[4,4], '/ X 3, 2., 1. Х4,2.,
  241. Х1,3., • ' /X[2,3], 1 -, Х[3,3], 1 ', Х[4,3], '
  242. Х1,4., ' Х[2,4], ' ', Х[3,4], ' ' г X [4,4], '1. Х1,3., 1 I 11 / X 2, 3., '1. X 1, 4., ', Х[2,4], '
  243. GotoXY (60,6) — WriteLn (1. ', Х3,1],' 1 Х[3,2],' | Х[3,3],' | ', Х[3,4],' GotoXY (60,7) — WriteLn (' ±--±--±--±--+ ') —
  244. GotoXY (60,8) — WriteLn ('| X4,1.,' | -, Х[4,2],' | X[4,3],' | ', X[4,4],' ') —
  245. GotoXY (60, 9) — WriteLn ('L---±--±--±---') -nd-rocedure DrawAllBlocks- sgin
  246. DrawlBlock (A) — Draw2Block (B) — Draw3Block (С) — Draw4Block (D) — GotoXY (1,11) —
  247. WriteLn (BTZ1,1., BTZ[1,2], BTZ[1,3], BTZ[1,4]) — WriteLn (BTZ[2,1], BTZ[2,2], BTZ[2,3], BTZ[2,4]) — WriteLn (BTZ[3,1], BTZ[3,2], BTZ[3,3], BTZ[3,4]) — WriteLn (BTZ[4,1], BTZ[4,2], BTZ[4,3], BTZ[4,4]) — WriteLn (#13#10+'XRegisrer') —
  248. WriteLn (XRegister1., XRegister2., XRegister[3], XRegister[4], XRegister[5], XRegister[6], XRegister[7], XRegister[8], XRegister[9], XRegister[10]) — WriteLn (#13#10+'YRegisrer') —
  249. WriteLn (' 1, YRegister1., YRegister2., YRegister[3], YRegister[4],
  250. YRegister5., YRegister[6], YRegister[7], YRegister[8]) — WriteLn ('ROM[', X,',', Y,'] = ROMData) — WriteLn (#13#10+'Вариант N n)-nd-rocedure DrawDetector- sgin
  251. GotoXY (61,2) — TextColor (О1.) — Write (s) — GotoXY (61,4) — TextColor (02.) — Write (s) — GotoXY (61,6) — TextColor (0[3]) — Write (s) — GotoXY (61,8) — TextColor (0[4]) — Write (s) — FillChar (0, SizeOf (0), Red) — TextColor (LightGray) — nd-rocedure ShiftOnTau- sgin
  252. Dl, 4.:=D[1,3]- D[2,4]: =D[2,3]- D[3,4]: =D[3,3]- D[4,4]: =D[4,3]
  253. D1,3.:=D[1,2]- D[2,3]: =D[2,2]- D[3,3]: =D[3, 2]- D[4,3]: =D[4,2]
  254. Dl, 2. :=D[1,1]- D[2, 2] :=D[2, 1]- D[3, 2] :=D[3,1] - D[4,2] :=D[4,1]
  255. Dl, l.:=C[1,4]- D[2,1]: =C[2,4]- D[3,1]: =C[3,4]- D[4,1]: =C[4,4]
  256. Cl, 4.:=C[1,3] C[l, 3]: =C[1,2] C[l, 2]: =C[1,1] C[l, 1]: =B[1,6]
  257. С 2, 4. :=C [2, 3] С [2, 3] :=C [2, 2] С[2, 2]: =C[2,1] С [2,1 ] :=B[2,6]
  258. С 3, 4. :=C[3,3] C[3,3]: =C[3,2] С[3, 2]: =C[3,1] С[3,1]: =B[3,6]
  259. С4,4.: =C [4,3] С[4,3]: =C [4, 2] C[4,2]: =C [4,1] С[4,1]: =B[4, 6]
  260. В1,6. В[1,5] В[1,4] В[1,3] В[1,2] В[1,1]
  261. А1,4. А[1,3] 1 А[1,2] А[1,1] end-1. В1,5.- В[2,6]: =В[2, 5]
  262. В1,4.- В[2,5]: =В[2,4] =В[1,3]- В[2,4]: =В[2, 3] =В [ 1, 2] - В [2, 3]: =В [2, 2] =В[1,1]- В[2,2]: =В[2,1]1. В3,6.:=В[3,5]- В[4,б]1. В3,5.:=В[3,4]- В[4,5]1. В3,4.:=В[3,3]- В[4,4]1. В3,3.:=В[3,2]- В[4,3]1. В3,2.:=В[3,1]- В[4,2]
  263. А1,4.- В[2,1]: =А[2,4]- В[3,1]: =А[3,4]- В[4,1]
  264. А1,3.- А[2,4]: =А[2,3]- А[3,4]: =А[3,3]- А[4,4]
  265. А1,2.- А[2,3]: =А[2,2]- А[3,3]: =А[3,2]- А[4,3]
  266. А1,1. — А[2, 2]: =А[2,1]- А[3,2]: =А[3,1]- А[4,2]0−1. А2,1.: =0−1. А3,1.:=0−1. А4,1.
  267. В4,5. =В[4,4] =В[4,3] =В[4,2] =В[4,1] =А[4,4]
  268. А 4,3. =А[4,2] =А[4,1] =0-procedure ShiftComputer- var i, j, z, zz: byte- begin
  269. XRegister10. XRegister[9] XRegister[8] XRegister[7] XRegister[6] XRegister[5]
  270. XRegister4. XRegister[3] XRegister[2] XRegister1.
  271. XRegister9. =XRegister[8] =XRegister[7] =XRegister[6] =XRegister[5] =XRegister[4] =XRegister[3] =XRegister[2] =XRegister1. =Detectorl-
  272. ROMData:=''- XData:=''- YData:=''- for i: =7 to 10 do if XRegister 1. =1 KData:=XData+'0 '-for i:=l to 8 do if YRegister 1. =1 YData:=YData+'0'-
  273. XData:=XData+11' else YData:=YData+'1' elseend-if (StepPulser>9) then begin BTZ1,6.:=BTZ[1,5]- BTZ[4,6]: =BTZ[4,5]-1. BTZ2,6.:=BTZ[2,5]
  274. BTZ 1,5. :=BTZ[1,4], BTZ[4,5]: =BTZ[4,4]-
  275. BTZ1,4.:=BTZ[1,3] BTZ[4,4]: =BTZ[4,3]-
  276. BTZ1,3.:=BTZ[1,2] BTZ[4,3]: =BTZ[4,2]-
  277. BTZ1,2.:=BTZ[1,1] BTZ[4,2]: =BTZ[4,1]- BTZ[1,1]: =0- end-
  278. Detectorl:=0- Detector2:=0-
  279. BTZ2,5.:=BTZ[2,4]- BTZ[2,4]: =BTZ[2, 3]- BTZ[2,3]: =BTZ[2,2]- BTZ[2,2]: =BTZ[2,1]- BTZ[2,1]: =0- BTZ[3,1]: =0−1. BTZ3,6.:=BTZ[3,5]-
  280. WriteLn (F, n, '-й вариант') —
  281. WriteLn (F, 1----т---т---t----. --- -T---T---T— —I) —
  282. WriteLn (F, ' ! ' / К 1,1., ' 1 ', К [1, 2], ' 1 ', K[1,3], ', k[1,4], ' i r- V t1., 4.,' 1 ', L[1,3],' ! ', 111,2], ' / L[1,1], 1 r i. i / r
  283. WriteLn (F, '±--±--±--±--+ +— -+—±--+— -+) —
  284. WriteLn (F, 4 ', К2/1.,' ! ', K[2,2]/' ! K[2,3], 1/K[2,4], ' 1 1 r1., 4., 1 ! ', L[2,3]/' ! ', L [2, 2 ], 1/L[2,1], ' 1 f. 1 / r
  285. WriteLn (F, '±--±--±--±--+ +— -±--±--+— -+) —
  286. WriteLn (F, •I ', K3,1.,' ! 1/K[3,2],' ! ', K[3,3], ' / К[3,4], ' 1 1 f /1., 4.,' ! 1, L[3,3],' ! ', L[3,2], ' / L [3,1], 1 in. 1) r
  287. WriteLn (F, '±--±--±--±--+ +— -±--±--+— -+) —
  288. WriteLn (F,. «, ', K4,1., ' ! ' / К[4, 2], 1 ! K[4,3], ' / K[4,4], ' 1 1 11., 4., 1 1 ', L[4,3],' ! 1, L[4,2], ' / L [4,1], ' II). 1 i r
  289. WriteLn (F, •L---±--±--±--- L— -±--±--+—) —
  290. WriteLn ('----T---T---T----. ----T---T---T----.')1. GotoXY (21,12) —
  291. WriteLn ('| ', K1,1., ' | ', K[l, 2], ' | ', K[l, 3], ' L[l, 4],' | ', L [1, 3],' ! ', L[1,2],' ! GotoXY (21,13) —
  292. WriteLn ('±--±--±--±--+ ±--±--±--±--+')1. GotoXY (21,14) —
  293. WriteLn ('| ', K2,1., ' ! 1, K[2,2], ' | ', K[2,3],' |1., 4., ' i ', L[2, 3], ' ', 1, L[2,2], ' GotoXY (21,15) —
  294. WriteLn ('±--±--±--±--+ ±--±--±--±--+1)1. GotoXY (21,16) —
  295. WriteLn ('. ', K3,1],' 1 ', K[3,2], ' | K[3,3],' L[3,4], 1 1 ', L[3,3], ' | ', L[3,2], ' ! GotoXY (21,17) —
  296. WriteLn ('±--±--±--±--+ ±--±--±--±--+')1. GotoXY (21,18) —
  297. WriteLnCI ', K4,1., ' | ', К [4, 2 ], 1 ! >, K[4,3],' | L [4,4], ' 1 ', L[4,3], ' ! ', L[4,2],' 1 GotoXY (21,19) —
  298. WriteLn ('L---±--±--±--- L---±--±--±---')2nd-procedure FillROM-1. Degin0001}
  299. ROM 1, 1. = 32 768 {1 000 000 000 000 000}
  300. ROM 1, 2. = 16 384 {100 000 000 000 000}
  301. ROM 1, 3. = 49 152 {1 100 000 000 000 000}
  302. ROM 1, 4. = 8192 {10 000 000 000 000}
  303. ROM 1, 5. = 40 960 {1 010 000 000 000 000}
  304. ROM 1, 6. = 24 576 {110 000 000 000 000}
  305. ROM 1, 7. = 57 344 {1 110 000 000 000 000}
  306. ROM 1, 8. = 4096 {1 000 000 000 000}
  307. ROM 1, 9. = 36 864 {1 001 000 000 000 000}
  308. ROM 1, 10. = 20 480 {101 000 000 000 000}
  309. ROM 1, 11. = 53 248 {1 101 000 000 000 000}
  310. ROM 1, 12. = 12 288 {11 000 000 000 000}
  311. ROM 1, 13. = 45 056 {1 011 000 000 000 000}
  312. ROM 1, 14. = 28 672 {111 000 000 000 000}
  313. ROM 1, 15. = 61 440 {1 111 000 000 000 000}001 1}
  314. ROM 3, 2. = 18 432 {100 100 000 000 000}
  315. ROM 3, 3. = 51 200 {1 100 100 000 000 000}
  316. ROM 3, 4. = 9216 {10 010 000 000 000}
  317. ROM 3, 5. = 41 984 {1 010 010 000 000 000}
  318. ROM 3, 6. = 27 648 {110 110 000 000 000}
  319. ROM 3, 7. = 60 416 {1 110 110 000 000 000}
  320. ROM 3, 8. = 4608 {1 001 000 000 000}
  321. ROM 3, 9. = 37 376 {1 001 001 000 000 000}
  322. ROM 3, 10. = 23 040 {101 101 000 000 000}
  323. ROM 3, 11. = 55 808 {1 101 101 000 000 000}
  324. ROM 3, 12. = 13 824 {11 011 000 000 000}
  325. ROM 3, 13. = 46 592 {1 011 011 000 000 000}
  326. ROM 3, 14. = 32 256 {111 111 000 000 000}
  327. ROM 3, 15. = 65 024 {1 111 111 000 000 000}
  328. ROM 3, 17. = 33 024 {1 000 000 100 000 000}
  329. ROM 3, 18. = 18 688 {100 100 100 000 000}
  330. ЮМ 9 74. = 20 489 {101 000 000 001 001
  331. ЮМ 9 75. = 53 257 {1 101 000 000 001 001
  332. ЮМ 9 76. = 12 297 {11 000 000 001 001
  333. ЮМ 9 77. = 45 065 {1 011 000 000 001 001
  334. ЮМ 9 78. = 28 681 {111 000 000 001 001
  335. ЮМ 9 79. = 61 449 {1 111 000 000 001 001
  336. ЮМ 9 81. = 32 773 {1 000 000 000 000 101
  337. ЮМ 9 82. = 16 389 {100 000 000 000 101
  338. ЮМ 9 83. = 49 157 {1 100 000 000 000 101
  339. Ьм 9 84. = 8197 {10 000 000 000 101
  340. ЮМ 9 85. = 40 965 {101 000 000 000 010 112М 9 86. = 24 581 {110 000 000 000 101
  341. ЮМ 9 87. = 57 349 {1 110 000 000 000 101
  342. ЮМ 9 88. = 4109 {100 000 000 110 110М 9 89. = 36 877 {1 001 000 000 001 101
  343. ЮМ 9 90. = 20 493 {101 000 000 001 101
  344. ЮМ 9 91. = 53 261 {1 101 000 000 001 101
  345. ЮМ 9 92. = 12 301 {11 000 000 001 101
  346. ЮМ 9 93. = 45 069 {1 011 000 000 001 101
  347. ЮМ 9 94. = 28 685 {111 000 000 001 101
  348. ЮМ 9 95. = 61 453 {1 111 000 000 001 101
  349. ЮМ 9 97. = 32 771 {1 000 000 000 000 011
  350. ЮМ 9 98. = 16 387 {10 000 000 000 001 110М 9 99. = 49 155 {1 100 000 000 000 011
  351. ЮМ 9 100. = 8195 {10 000 000 000 011
  352. ЮМ 9 101. = 40 963 {1 010 000 000 000 011
  353. ЮМ 9 102. = 24 579 {110 000 000 000 011
  354. ЮМ 9 103. = 57 347 {1 110 000 000 000 011
  355. ЮМ 9 104. = 4107 {1 000 000 001 011
  356. ЮМ 9 105. 36 875 {1 001 000 000 001 011
  357. ЮМ 9 106. = 20 491 {101 000 000 001 011
  358. ЮМ 9 107. = 53 259 {1 101 000 000 001 011
  359. ЮМ 9 108. = 12 299 {11 000 000 001 011
  360. ЮМ 9 109. 45 067 {1 011 000 000 001 011
  361. ЮМ 9 110. = 28 683 {111 000 000 001 011
  362. ЮМ 9 111. = 61 451 {1 111 000 000 001 011
  363. ЮМ 9 113. = 32 775 {1 000 000 000 000 111
  364. ЮМ 9 114. = 16 391 {100 000 000 000 111
  365. ЮМ 9 115. = 49 159 {1 100 000 000 000 111
  366. ЮМ 9 116. 8199 {1 000 000 000 011 110М 9 117. = 40 967 {1 010 000 000 000 111
  367. ЮМ 9 118. 24 583 {110 000 000 000 111
  368. ЮМ 9 119. 57 351 {1 110 000 000 000 111
  369. ЮМ 9 120. 4111 {1 000 000 001 111
  370. ЮМ 9 121. = 36 879 {1 001 000 000 001 111
  371. ЮМ 9 122. = 20 495 {101 000 000 001 111
  372. ЮМ 9 123. 53 263 {1 101 000 000 001 111
  373. ЮМ 9 124. 12 303 {11 000 000 001 111
  374. ЮМ 9 125. = 45 071 {1 011 000 000 001 111
  375. ЮМ 9 126. = 28 687 {111 000 000 001 111
  376. ЮМ 9 127. = 61 455 {111 100 000 000 1111snd- 1. bel Ender- segin fillROM-
  377. Assign (F, 'rom2dall.rez')-1. Rewrite (F)-1. Randomize-1. ClrScr- {очистить экран}n:=l- { repeat}for repeater:=1 to 65 535 do begin FillChar (0, SizeOf (O), Red) — FillChar (K, SizeOf (K), 0) —
  378. FillChar (L, SizeOf (L), 0) — FillChar (BTZ, SizeOf (BTZ), 0) — VI:=LightBlue- V2:=V1- ClrScr-
  379. WriteLn ('Выбор метода заполнения исходной таблицы:', #13, #10) — WriteLn ('l Случайное заполнение') — WriteLn ('2 — Заполнение вручную') — WriteLn ('3 — Выход') — repeat
  380. KeyStr:=ReadKey- Val (KeyStr, Key, Code) — until (Key in 1,2,3.) — case Key of1: RandomFi11Array (A)-2: KeyboardFillArray (A) -3: goto Ender- end-
  381. DrawAllBlocks- DrawDetector- I DrawExecOrgan-
  382. Delay (2000)-} {начало основного процесса} LinearFillArray (A) — ExecEnable:=False- for StepPulser:=1 to 18 do begin ShiftOnTau- CheckDetector- ShiftComputer- { DrawAllBlocks-
  383. DrawDetector-} OnExecOrgan- { DrawExecOrgan-1. Delay (1000)-} end-конец основного процесса}
  384. WriteResultToFile- { WriteResultToScreen-}n:=n+l- { until ReadKey = #27-} end-
  385. WriteLn (F) — Close (F) — snd.
  386. Программа заполнения запоминающего устройстваprogram FillROM- ases Crt, Trans-type
  387. Matrix4x4 = array1.4,1.4. of byte-
  388. Array8 = array1.8. of byte-
  389. StrValue: string- SLen: byte absolute StrValue-i: byte-1. Result: Array8- oegin
  390. FillChar (Result, SizeOf (Result), 0) — StrValue:=''-1. Str (n, StrValue) —
  391. StrValue:=Transfer (StrValue, 1)-for i:=1 to SLen do if StrValue1.='1' then Result8-SLen+i.:=1 else Result[8−3Len+i]: =0−1. Z:=Result- snd-procedure Dec2BinArrl6(n:word- var Z: Arrayl6) — yar1. StrValue: string-
  392. SLen: byte absolute StrValue-i: byte-1. Result: Arrayl6- oegin
  393. FillChar (Result, SizeOf (Result), 0) — StrValue:^'-1. Str (n, StrValue) —
  394. Val (S, OutROMNumber, Code)-nd-egin ClrScr-
  395. FillChar (ROM, SizeOf (ROM), 0) — Assign (F, 'ROM2dl.inc') — Rewrite (F) — {0001}
  396. X: =1- aX1.:=0- aX2.:=0- aX[3]: =0- aX[4]: =1- WriteLn (F, '{0001}') — for i:=l to 15 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  397. Write (F, 'ROM', X:2,', i:3,'. := ', OutROMNumber:5,'- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F,'}') — end- end-1. WriteLn (F, •') — {0011}
  398. X:=3- aX1.:=0- aX2.:=0- aX[3]: =l- aX[4]: =l- WriteLn (F, '{0011}') — for i:=l to 31 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  399. Write (F, 'ROM', X:2,',', i:3,'. := ', OutROMNumber:5,'- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F,'}') — end- end-1. WriteLn (F, «) — {0111}
  400. X:=7- aXl.:=0- aX[2]: =l- aX[3]: =1- aX[4]: =l- WriteLn (F, '{0111}') — for i:=l to 63 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  401. Write (F, 'ROM', X:2,',', i:3,'. := OutROMNumber:5,'- {')-for j:=1 to 16 do Write (F, OutROMfj.) — WriteLn (F,'}') — end- end-1. WriteLn (F, '') — {1111}
  402. X:=15- aXl.:=1- aX[2]: =l- aX[3]: =l- aX[4]: =l- WriteLn (F, '{1111}') — for i:=l to 127 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  403. Write (F, 'ROM', X:2,',', i:3,'. := ', OutROMNumber:5,'- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F,'}') — end- end-1. WriteLn (F, «)-0101}
  404. Х:=5- аХ1.:=0- аХ2.:=1- аХ[3]: =0- аХ[4]: =1- WriteLn (F, '{0101}') — for i:=l to 63 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  405. Write (F, 'ROM', X:2,',', i:3,'. := ', OutROMNumber:5,'- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F, 1}') — end- end-1. WriteLn (F, «) — {1011}
  406. X:=ll- aXl.:=1- aX[2]: =0- aX[3]: =l- aX[4]: =l- WriteLn (F, '{Ю11}') — for i:=l to 127 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  407. Write (F, 'ROM', X:2,',', i:3,'} := OutROMNumber:5,'- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F,'}') — end- end-1. WriteLn (F, '') — {1101}
  408. X:=13- aX1.:=1- aX2.:=l- aX[3]: =0- aX[4]: =l- WriteLn (F, '{HOI}') — for i:=l to 127 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  409. Write (F, 1 ROM', X:2,', ', i:3,'. := OutROMNumber:5, '- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F,'}') — end- end-1. WriteLn (F, •') — {1001}
  410. X:=9- aX1.:=1- aX2.:=0- aX[3]: =0- aX[4]: =l- WriteLn (F, '{Ю01}') — for i:=l to 127 do begin Dec2BinArr8(i, aY) — FillMatrix (aX, aY, A) — if CheckValid (aX) then begin
  411. Write (F, 'ROM', X:2,',', i:3,'. := ', OutROMNumber:5- {')-for j:=1 to 16 do Write (F, OutROMj.) — WriteLn (F, 1}1)-end- end-1. WriteLn (F, •')-1. Close (F) — 2nd.
Заполнить форму текущей работой

Пора сдавать?