12150

Модель 2-х процессорной системы

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 4 Модель 2х процессорной системы Блоксхема 2 процессорной системы Код отвечающий за моделирование: Memo2.Lines.Add Начало моделирования while flag0 do begin Memo2. Lines. AddinttostrTime {Проверка процессора 1 на наличие задач и решение з

Русский

2013-04-24

83.5 KB

1 чел.

Лабораторная работа № 4

Модель 2-х процессорной системы

Блок-схема 2 процессорной системы

Код отвечающий за моделирование:

Memo2.Lines.Add('Начало моделирования');

while flag0 do

begin

Memo2.Lines.Add(inttostr(Time)+':');

  {Проверка процессора 1 на наличие задач и "решение" задач}

 If p0[0]<>-1 then

 Begin

 inc(p0[1]);

 If p0[1] = ZTO[p0[0]] then

  begin

  Memo2.Lines.Add('>>Задание '+inttostr(p0[0]+1)+' >> Обработанно процессором №1');

  p0[0]:=-1;

  end;

 end;

   {Проверка процессора 2 на наличие задач и "решение" задач}

 If p1[0]<>-1 then

 Begin

 inc(p1[1]);

 If p1[1] = ZTO[p1[0]] then

  begin

  Memo2.Lines.Add('>>Задание '+inttostr(p1[0]+1)+' >> Обработанно процессором №2');

  p1[0]:=-1;

  end;

 end;

  {Обработка очереди}

 If ochered[0]<>-1 then

 begin

  if p0[0]=-1 then

   begin

    p0[0]:=ochered[0];

    p0[1]:=0;

    Memo2.Lines.Add('>>Задание '+inttostr(ochered[0]+1)+' >> Начало обработки процессором №1 (из очереди)');

    ochered[0]:=-1;

   end

   else

  if p1[0]=-1 then

   begin

    p1[0]:=ochered[0];

    p1[1]:=0;

    Memo2.Lines.Add('>>Задание '+inttostr(ochered[0]+1)+' >> Начало обработки процессором №2 (из очереди)');

    ochered[0]:=-1;

   end;

 end;

 If ochered[0]=-1 then

  If ochered[1]<>-1 then

   begin

   ochered[0]:=ochered[1];

   ochered[1]:=-1;

    If ochered[2]<>-1 then

     begin

     ochered[1]:=ochered[2];

     ochered[2]:=-1;

     end;

   end;

  {Начало цикла просмотра Задач поступивших во время Time, с

   целью распределения по процессорам или местам в очереди}

 For i:=0 to N-1 do

 begin

 if ZTP[i]=Time then

  Begin

  if p0[0]=-1 then

   begin

    p0[0]:=i;

    p0[1]:=0;

    Memo2.Lines.Add('>>Задание '+inttostr(i+1)+' >> Начало обработки процессором №1');

   end

   else

  if p1[0]=-1 then

   begin

    p1[0]:=i;

    p1[1]:=0;

    Memo2.Lines.Add('>>Задание '+inttostr(i+1)+' >> Начало обработки процессором №2');

   end

   else

  if ochered[0]=-1 then

   begin

    ochered[0]:=i;

    Memo2.Lines.Add('>>Задание '+inttostr(i+1)+' >> В очереди (место 1)');

   end

   else

  if ochered[1]=-1 then

   begin

    ochered[1]:=i;

    Memo2.Lines.Add('>>Задание '+inttostr(i+1)+' >> В очереди (место 2)');

   end

   else

  if ochered[2]=-1 then

   begin

    ochered[2]:=i;

    Memo2.Lines.Add('>>Задание '+inttostr(i+1)+' >> В очереди (место 3)');

   end

   else

   Memo2.Lines.Add('>>Задание '+inttostr(i+1)+' >> Не может быть обработанно!');

  end;

 end;

   {Конец цикла просмотра Задач поступивших во время Time, с

    целью распределения по процессорам и местам в очереди}

 inc(Time);

if (Time>strtoint(Edit3.Text)) and (p0[0]=-1)

and (p1[0]=-1) {and (ochered[0]=-1) and (ochered[1]=-1)

and (ochered[2]=-1)}then flag0:=false;

end;

Memo2.Lines.Add('Моделирование завершенно...');

Пример


Прибытие заявки

ачало обслуживания

После завершения

Запись время завершения обработки

Записать время прибытия заявки

Заняты ли ЦПУ?

Перевести процессор в состояние «свободно»

Память =  Память -1

Узнать очередное событие

Перевести процессор в состояние «занято»

Память = Память +1

Память = 0 ?

Да

Нет

Да

Нет


 

А также другие работы, которые могут Вас заинтересовать

192. Финансовое планирование в коммерческой организации 436.5 KB
  Цели, задачи, принципы и этапы финансового планирования. Классификация финансовых планов. Особенности бюджетирования: сущность, функции, виды. Миссия и сущность стратегии финансового планирования организации.
193. Реализация игры жизнь 276 KB
  Установка начальных значений ячеек сетки, анализ поведения различных комбинаций клеток на доске в математический игре Жизнь. Хранение значений клеток методом использования двумерного массива и заполнение его соответственными комбинациями.
194. Автоматизированные системы управления технологическими процессами 257.5 KB
  Изучение функционирования программы Electronics Workbench для приобретения навыков по исследованию электрических схем с помощью виртуальных электроизмерительных приборов. Снятие нагрузочных характеристик с помощью амперметра и вольтметра.
195. Расчет устойчивости естественных откосов 187 KB
  Метод круглоцилиндрической поверхности скольжения. Метод горизонтальных сил и расчет устойчивости склона. Определённые возможности появления и степени распространения активных (движущихся) оползней при инженерно–геологических условиях и действующих нагрузках.
196. Контроль качества и определение свойств материалов 777 KB
  Кратковременное механическое растяжение, типичные графические зависимости напряжения от деформации. Методы определения теплопроводности, температуропроводности и теплоемкости. Методы определения электрических свойств.
197. Определение договорной цены и расчет эффективности строительства 620.5 KB
  Расчет сметной стоимости строящегося здания по заданному аналогу. Сводная ведомость стоимости работ выполненных по объекту. Определение сметной стоимости на благоустройство территории (дороги и тротуары).
198. Створення сайту 422.52 KB
  Парні теги, позначають початок і кінець дії команди. Тег, що закриває область дії, має косу риску. Головні параметри тега body, основний текст, до якого застосовуються теги форматування. Написання заголовку сторінки.
199. Разработка конструкции транзисторного радиопередатчика, размещенного в кабине планера 9.15 MB
  Передающий тракт систем радиосвязи, расчет режимов транзистора мощного усилителя. Расчет режима мощного усилителя СВЧ и некоторое значение тока возбуждения. Расчет режима транзистора по схеме ОЭ без учета индуктивности выводов.
200. Разработка базы данных с помощью Microsoft Excel и Microsoft Access 466 KB
  Разработка логической модели базы данных средствами Microsoft Excel. Создание базы данных Microsoft Access, а также SQL-запросов и макросов. Создание таблиц и построение схемы данных, создание форм ввода-вывода информации.