что не так в процедуре поиска?

[Юлечка]

Мне нужно создать очередь в которой помещается какое-то количество элементов. необходимо создать третье поле prioritet, согласно которому будут извлекаться данные из стека. Я написала программу, но видимо из меня некудышный программист))

вот код на Паскале АBC:

program prioritet;
type TP=^TU;
tu=record
pr:integer;
d:integer;
p:Tp;
end;
var q,vchod,m :Tp;
    i,x,y:integer;

{procedure p1(k,s:integer);
begin
new(m);
vchod:=m;
m^.d:=k;
m^.pr:=s;
vchod^.p:=m;
end; }

procedure p1(k,s:integer);
begin
new(m);
 m^.d:=k;
m^.pr:=s;
m^.p:=vchod;
vchod:=m;
end;


procedure poisk (m:TP);
var max,maxx:TP;
begin
if vchod=nil then writeln('очередь пуста') else
     begin
     m:=vchod^.p;
     max:=m;
     while m<>nil do
     begin
      if max^.pr<m^.pr then max^.pr:=m^.pr;
      m:=m^.p;
     end;
     while m<>nil do
     begin
      if m^.p=max then maxx:=m;
      m:=m^.p;
     end;
     writeln('приоритет',m^.pr, ' значение',m^.d);
     maxx^.p:=max^.p;
     dispose(max);
     end;
     writeln('--------------');
     while m<>nil do
     begin
      writeln('приоритет',m^.pr,' значение',m^.d);
      m:=m^.p;
      end;
end;

begin
vchod:=nil;
for i:=1 to 4 do begin
writeln('ввести элемент');
readln(x);
writeln('ввести приоритет');
readln(y);
 p1(x,y);
end;

     writeln('--------------');
     
                                   poisk(q);
     while q<>nil do
     begin
      writeln('приоритет',q^.pr,' значение',q^.d);
      q:=q^.p;
      end;
end.

заранее спасибо)

[Stilet]

Юля, если тема еще актуальна поясни подробно на что должен влиять приоритет?
Очередь должна сортироваться на выходе по приоритету?

[Юлечка]

Тема актуальна) Да, ты правильно понял! Очередь должна сортироваться на выходе по приоритету. Ну точнее просто выводиться по приоритету.

[Serge_Bliznykov]

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

А ещё можно составить дополнительную структуру (очередь) где расположить индексы элементов в порядке приоритета. и уже выводить элементы основной очереди согласно порядку в этой вспомогательной очереди.

Но можно и выводить в порядке приоритета.
Хоть это и КРАЙНЕ неэффективно!
Алгоритм такой:

Перебором находим PrioritetMin: элемент с минимальной величиной приоритета.
Одновременно подсчитываем, сколько элементов в очереди.
Количество выведенных элементов := 0

в цикле, пока Количество выведенных элементов <  КоличестваЭлементов в очереди 
     начиная от первого элемента проверяем величину и выводим все элементы, приоритет которых равен минимальному = PrioritetMin 
     (при выводе элемента Количество выведенных элементов = Количество выведенных элементов + 1)
     Одновременно ищем PrioritetMinNext: следующую минимальную величину приоритета > PrioritetMin
     Если дошли до конца очереди, то PrioritetMin := PrioritetMinNext
конец цикла.