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

[Pavia]

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

А система потом получиться когда будете делать "прикладное" ПО. Чтобы создать планировщик Вы должны абстрагироваться от задачи, то есть выделить общие элементы. На самом деле за вас уже многое сделали и расживали в задание. Имена функциям за вас придумали имена состояниям тоже. Вам по сути остаётся только закодировать, что написано в задании.

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

[goto ∞]

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

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

Переписал

Program Potok2;

type
    descriptor = record
         id, status : integer;
    end;

const MAX = 4;


var
           que : array [0..MAX-1]of descriptor;
i, qnext, qindex, qlength : integer;

  procedure queadd(x:integer);
  begin
    if (qnext+1) < MAX then
      begin
       que[qnext].id :=x;
       que[qnext].status := random(3);
       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].id;
        inc(qindex);
       end;
  end;

begin
qnext := 0; qindex := qnext;
end.

И зачем собственно говоря удаление? Вторая процедура queget извлекает текущий элемент и при извлекание очередь будет указывать на следующий. Она логический считается удаленным.


К сожалению нас учать по пособиям что является полной чушью, это же не просто объявить массив и найти максимальный элемент. Я не намерен испортить знание по каким то пособиям, а намерен всеми правдами неправдами сделать задание на отмыш. Лучше я книжку почитаю потом по соответствующим темам, а сейчас время поджимает.

[goto ∞]

Очередь из потоков вроде бы правильно сделал. Можно добавить и извлечь, при извлечение элемента извлекаемый элемент удаляется. Удаляется, значит указатель больше не смотрит на извлеченный элемент.
Как двигаться дальше?

[Pavia]

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

Очередь из потоков вроде бы правильно сделал. Можно добавить и извлечь, при извлечение элемента извлекаемый элемент удаляется. Удаляется, значит указатель больше не смотрит на извлеченный элемент.
Как двигаться дальше?

Возьми и протестируй...

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

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

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

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

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

Неа. Семантика слова get предполагает возврат без удаления. Лучше использовать слово Delete или ещё лучше обще принятое dequeue.

С add тоже не всё в порядке, мы же добавляем. а тебя тут генерация!
que[qnext].status := random(3);
Неизвестные значения следует вынести в параметры. И вообще там должно быть дескриптор.

queadd(value:TTheardDescriptor)

Куда деть рендом?
Когда пишешь программу ты должен мысленно разделить её на 3-части. Модель. Ввод/вывод. И управление.
Вот в часть управления ты и должен написать тест для проверки очереди вот туда и следует пометить генерацию.
А Write() тоже следует вынести отдельно. А в модели оставить только код ошибки.
Мы же не знаем как будет сделан вывод в нашей ОС. Толи на консоль, толи в терминал будем выводить или же окошко кидать. А может и вовсе просто выставлять сигнал на тревожную линию.

[goto ∞]

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

Возьми и протестируй...


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


Неа. Семантика слова get предполагает возврат без удаления. Лучше использовать слово Delete или ещё лучше обще принятое dequeue.

С add тоже не всё в порядке, мы же добавляем. а тебя тут генерация!
que[qnext].status := random(3);
Неизвестные значения следует вынести в параметры. И вообще там должно быть дескриптор.

queadd(value:TTheardDescriptor)

Куда деть рендом?
Когда пишешь программу ты должен мысленно разделить её на 3-части. Модель. Ввод/вывод. И управление.
Вот в часть управления ты и должен написать тест для проверки очереди вот туда и следует пометить генерацию.
А Write() тоже следует вынести отдельно. А в модели оставить только код ошибки.
Мы же не знаем как будет сделан вывод в нашей ОС. Толи на консоль, толи в терминал будем выводить или же окошко кидать. А может и вовсе просто выставлять сигнал на тревожную линию.

В параметрах поменял целочисленный тип на элемент потока.

Насчет get или del, сути она не меняет. Как бы их не назвать он будет делать тоже самое.
Мне не понятно последнее условие задачи, какая еще перестановка при удаление, переменная qindex всегда будет указывать на начало очереди, зачем что то переставлять.

Если очередь из потоков у меня сделан то как реализовать следующие вещи? пункт 2-3 в условиях задачи?

var
           que : array [0..MAX-1]of descriptor;
i, qnext, qindex, qlength : integer;

  function queadd(eque:descriptor):boolean;
  begin
    queadd := true;
    if (qnext+1) < MAX then
      begin
       que[qnext] := eque;
       inc(qnext);
      end
    else queadd := false;
  end;

  function quedel:boolean;
  begin
   if qindex = qnext then
       quedel := false
   else
       begin
        quedel := true;
        inc(qindex);
       end;
  end;

begin
qnext := 0; qindex := qnext;
end.

[p51x]

Насчет get или del, сути она не меняет. Как бы их не назвать он будет делать тоже самое.

Да вы шутник...
гет должен "взять" поток, отдать его под управление, например, чтобы дать квант времени и убрать свои ручки от него
а вот делете, должен удали поток, например, если он завершил свою работу

Мне не понятно последнее условие задачи, какая еще перестановка при удаление, переменная qindex всегда будет указывать на начало очереди, зачем что то переставлять.

Затем что при удалении потоков в середине будут возникать дырки.

[goto ∞]

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

Да вы шутник...
гет должен "взять" поток, отдать его под управление, например, чтобы дать квант времени и убрать свои ручки от него
а вот делете, должен удали поток, например, если он завершил свою работу


Затем что при удалении потоков в середине будут возникать дырки.

Какая еще середина потоков? Есть массив записей которая имитирует очередь из потоков, доступ в очередь только по "указателю"(переменная qindex) о чем мы вообще говорим.

[p51x]

1. У вас есть планировщик потоков. Прочтите, что это и чем он занимается.
2. У планировщика есть очередь потоков: 1 2 3 4 5
3. В процессе своей работы планировщик может удалить один из потоков из очереди, например, 3 и получить: 1 2 Х 4 5
Видите дырку?

[goto ∞]

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

1. У вас есть планировщик потоков. Прочтите, что это и чем он занимается.
2. У планировщика есть очередь потоков: 1 2 3 4 5
3. В процессе своей работы планировщик может удалить один из потоков из очереди, например, 3 и получить: 1 2 Х 4 5
Видите дырку?

1.У меня нету планировщика потоков, и я представления не имею как её реализовать программно, поэтому и прошу помощи тут.

Ведь массив записей которая имитирует очередь из потоков(поток в моем понимание это запись с двумя полями, id и статус). Когда планировщик что то хочет сделать то она обращается к очереди и когда она обращается к первому элементу это означает что она выбирает его и перемещает указатель на следующий элемент очереди. Значит пути назад нету, извлекаемый элемент потерян, нельзя просто написать qindex = qindex + 1, логический она противоречить понятию очередь. Иначе это просто массив к которой можно обращаться как угодно. Или я совсем тупой

[p51x]

Вы точно прочитали, что делает планировщик?
Вы теперь понимаете, что планировщик в простейшем случае берет поток из очереди, дает ему квант и снова отправляет поток в очередь?
Теперь смотрим вашу очередь: *1 2 3 4 -> 1 *2 3 4 -> 1 2 *3 4 и т.д., т.к. это массив то мы можем просто двигать индекс-указатель не ворочая элементы.
Теперь (по заданию! надо обработать завершение текущего потока):
*1 2 3 4 -> 1 *2X 3 4 -> 1 X *3 4 -> 1 X 3 *4 = *4 1 X 3 видите дырку в вашей очереди?