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 ?

Да

Нет

Да

Нет


 

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

77484. ПРОХОЖДЕНИЕ ГРАЖДАНСКОЙ СЛУЖБЫ 125 KB
  Отпуск на гражданской службе. В отношениях связанных с трудом гражданских служащих закон о гражданской службе ввел ряд новых терминов применительно к общепринятым понятиям трудовые отношения трудовой договор и др. Право поступления на гражданскую службу имеют исключительно граждане Российской Федерации достигшие возраста 18 лет в то время как Трудовой кодекс предусматривает прием на работу с 15 лет владеющие государственным языком Российской Федерации согласно статье 68 Конституции РФ...
77485. СЛУЖЕБНЫЙ КОНТРАКТ ГРАЖДАНСКОГО СЛУЖАЩЕГО 119 KB
  Испытание перевод на иную должность гражданской службы или перемещение. Отстранение от занимаемой должности гражданской службы. Закон о государственной гражданской службе не содержит понятия трудового договора. К ним относятся: наименование замещаемой должности гражданской службы с указанием подразделения государственного органа; дата начала исполнения должностных обязанностей; права и обязанности гражданского служащего должностной регламент; виды и условия медицинского страхования гражданского служащего и иные виды...
77486. КАДРОВАЯ ПОЛИТИКА ГОСУДАРСТВА 85 KB
  Финансирование гражданской службы денежное содержание гражданских служащих. Для обеспечения правовой и социальной защищенности гражданских служащих повышения мотивации эффективности исполнения ими своих должностных обязанностей укрепления стабильности профессионального состава кадров гражданской службы и в порядке компенсации установленных для них ограничений законом о государственной гражданской службе установлены следующие гарантии и компенсации: равные условия оплаты труда а также сопоставимые показатели оценки эффективности...
77487. ОТВЕТСТВЕННОСТЬ ПО АДМИНИСТРАТИВНОМУ ПРАВУ 127 KB
  Понятие основные черты и основания административной ответственности административное правонарушение. Ограничение и освобождение от административной ответственности назначение административных наказаний Понятие основные черты и основания административной ответственности административное правонарушение...
77488. ПРОИЗВОДСТВО ПО ДЕЛАМ ОБ АДМИНИСТРАТИВНЫХ ПРАВОНАРУШЕНИЯХ 186 KB
  Возбуждение дела об административном правонарушении административное расследование. Рассмотрение дела об административном правонарушении 6. Принцип законности выражается в том что лицо привлекаемое к административной ответственности не может быть подвергнуто административному наказанию и мерам обеспечения производства по делу об административном правонарушении иначе как на основаниях и в порядке установленных законом. Применение уполномоченными на то органом или должностным лицом административного наказания и мер обеспечения...
77489. ГОСУДАРСТВЕННОЕ УПРАВЛЕНИЕ И ИСПОЛНИТЕЛЬНАЯ ВЛАСТЬ 127.5 KB
  Понятие назначение и роль в обществе управления. Понятие назначение и роль в обществе управления Все отрасли российского права имеют материальную базу определенную тем или иным видом деятельности при осуществлении которой складываются различные общественные отношения составляющие предмет регулирования данной отрасли. Базой российского административного права является деятельность по осуществлению государственного управления. ХХ век назван веко управления.