Планировщик потоков

[goto ∞]

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



Я даже не знаю каким образом подступиться к заданию. Допустим напишем в паскале все это дело.

[Pavia]

Сообщение от goto ∞

Я даже не знаю каким образом подступиться к заданию.

Глаза боятся, а руки делают. Начните с того, что знаете как сделать. К примеру с написания теста создания потоков - вернее просто заполнение массива. Потом отработки их планирования по принципу карусели.

[goto ∞]

Сообщение от Pavia

Глаза боятся, а руки делают. Начните с того, что знаете как сделать. К примеру с написания теста создания потоков - вернее просто заполнение массива. Потом отработки их планирования по принципу карусели.

Всё равно не понятно общая картина, я не понимаю дополнительных условий задачи.
Вот как мне понять массив дескрипторов с двумя полями?

То ли так?

type
   Descriptor = record;
          id : integer;
     status: integer;
end;
...
var Potop array of Descriptor;
begin
  for i := 0 to N do Potop.id= random(2);  Potop.status := random(3);

end;

То ли не нужно через запись сделать все это дело, а просто через массив целых чисел где индекс ячеек и есть идентификаторы?

[p51x]

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

[Pavia]

Сообщение от goto ∞

о ли не нужно через запись сделать все это дело, а просто через массив целых чисел где индекс ячеек и есть идентификаторы?

Вам же чётко сказали 2 поля. Зачем спорите с заданием?
id - потока это номер присвоенный потоку при его создании. Он должен быть уникальным. А у вас сейчас они могут случайно совпасть - такого нельзя допускать.

Сообщение от goto ∞

Вот как мне понять массив дескрипторов с двумя полями?

Да, так.
Только status и state это разные слова.

Сообщение от goto ∞

for i := 0 to N do Potop.id= random(2); Potop.status := random(3);

Не работаете на прямую с массивом. Работайте через функции. Инкапсулируйте.

[goto ∞]

Сообщение от p51x

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

Хорошо, индекс массива и будет идентификатором а значение ячеек будет состоянием. Правильно понял?

for i := 0 to N do Potop[i] := random(3);

[goto ∞]

Сообщение от Pavia

Вам же чётко сказали 2 поля. Зачем спорите с заданием?
id - потока это номер присвоенный потоку при его создании. Он должен быть уникальным. А у вас сейчас они могут случайно совпасть - такого нельзя допускать.

Да, так.
Только status и state это разные слова.


Не работаете на прямую с массивом. Работайте через функции. Инкапсулируйте.

Тогда я понял так :

type
   Descriptor = record;
          id : integer;
     status: integer;
end;
...
var Potop array of Descriptor;
begin
  for i := 0 to N do pAdd(i);
end;


procedure pAdd(i: integer);
begin
Potop[i].id := i;  Potop[i].status := random(3);
end;

[Pavia]

Ну вот продолжай дальше. Закодируй всё что тут перечислено:

Сообщение от goto ∞

- массив реализует простейшую очередь со сдвигом элементов при удалении

Сделай на основе статического массива очередь. Все функции которые есть у очереди. Посмотри как очереди сделаны у других.
Затем на основе этих функций сделай следующие:

Сообщение от goto ∞

- отрабатываемые события: создание нового потока, завершение активного потока, завершение кванта времени у активного потока, блокирование потока, разблокирование потока

И походу дела тебе потребуется ещё и функции для работы ID.

И если совсем не знаешь с чего начать, начни с определений. Определения сам найдёшь в интернете или в книгах.

[goto ∞]

[QUOTE=Pavia;1696118]Ну вот продолжай дальше. Закодируй всё что тут перечислено:

Сделай на основе статического массива очередь. Все функции которые есть у очереди. Посмотри как очереди сделаны у других.
Затем на основе этих функций сделай следующие:

Ну вот сделал, только я мало чего пока понимаю как это будет работать вместе.

Program Potok2;

type
    descriptor = record
         id, status : integer;
    end;
const n = 10;
const MAX = 4;


var
         potok : array [0..n-1]of descriptor;
           que : array [0..MAX-1]of integer; //Для очереди
i, qnext, qindex, qlength : integer;           //Для очереди, первый свободный элемент, первый занятый, длина

  procedure queadd(x:integer);               //Добавление элемента 
  begin
    if (qnext+1) < MAX then
      begin
       que[qnext] :=i;
       inc(qnext);
      end
    else writeln('MecT HeT');
  end;

  function queget:integer;           //Извлечь
  begin
   if qindex = qnext then
      begin
       writeln('|7ycTo');
       queget := 0;
      end
   else
       begin
        queget := que[qindex];
        inc(qindex);
       end;
  end;


begin
qnext := 0; qindex := qnext;
for i:= 0 to n-1 do begin potok[i].id := i; potok[i].status := random(3) end;

end.

[Pavia]

Сообщение от goto ∞

Ну вот сделал, только я мало чего пока понимаю как это будет работать вместе.

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