Очередь на основе односвязного кольцевого списка , примерно вот так получился список, не уверен что правильно

[volvo877]

Цитата kotmatroskin55 @ 05.06.12, 10:31

Кстати,мне сказали,что наследование использовать нельзя: "Вы еще до этого не доросли"

А ты знаешь, агрегацию тоже никто не отменял:

type
   TQueue =
   object
   private
      Lst : TList;
   public
      constructor Create;
      destructor Destroy; virtual;
 
      procedure Put (X : TItem);
      function Get : TItem;
 
      procedure Print;
   end;
 
// ...
 
constructor TQueue.Create;
begin
   Lst.Create;
end;
destructor TQueue.Destroy;
begin
   Lst.Destroy;
end;
 
procedure TQueue.Put (X : TItem);
begin
   Lst.Append (X);
end;
function TQueue.Get : TItem;
var T : Link;
begin
   if Lst.IsEmpty then WriteLn('<>')
   else
   begin
      Get := Lst.head^.data;
      Lst.RemoveAt (Lst.head);
   end;
end;
 
procedure TQueue.Print;
begin
   Lst.Print;
end;

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

[kotmatroskin55]

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

[kotmatroskin55]

Цитата Vesper @ 05.06.12, 12:37

Цитата volvo877 @ 05.06.12, 12:24

А ты знаешь, агрегацию тоже никто не отменял

вопрос:получается те процедуры,что я написал - неправильные или как?

Добавлено 05.06.12, 14:23
Извини,сам понял, что вопрос предельно глупый

[kotmatroskin55]

еще два вопроса:
1. чем отличается "private" от "protected";
2. и еще компилятор страшно ругается вот на это:

function Queue.Get_Que:TElem;//взять элемент из очереди
    begin
      if Lst.IsEmpty then
        begin
        end
      else
        begin
          Get_Que := Lst.head^.data;
          Lst.RemoveAt (Lst.head);
        end;
    end;

вот так: Error: identifier idents no member "head"

[Vesper]

RTFM: тут, и на лекциях должны рассказывать. Вкратце: public доступен откуда хочешь, private доступен только из методов самого класса и больше ниоткуда, protected еще доступен из методов потомков класса, если они есть. И ругается именно поэтому, head в твоем L1_List не паблик, а достать хочешь из не связанного никак Queue.

[kotmatroskin55]

И еще один вопросик: как организовать обработку ошибок с помощью маски?,честно говоря не понял вообще

[kotmatroskin55]

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

procedure Queue.change(qu1,qu2:Queue;var qu_rez:Queue);
var
p:L1_List;
x,y:TElem;
  begin//вот здесь должен быть цикл,типа пока обе очереди не станут пустыми
    x:=qu1.get_que;
    y:=qu2.get_que;
    if x>=y then
       begin
         qu_rez.put_que(x);
         qu_rez.put_que(y);
       end
    else
       begin
         qu_rez.put_que(y);
         qu_rez.put_que(x);
       end;
  end;

[volvo877]

Цитата kotmatroskin55 @ 08.06.12, 04:35

//вот здесь должен быть цикл,типа пока обе очереди не станут пустыми

Это неправильное предположение. Цикл должен быть до тех пор, пока ОДНА из очередей не станет пустой. Как только одна очередь пустая - выходишь из цикла и потом просто дописываешь в очередь-результат содержимое непустой очереди. Это было первое. Второе: не надо сразу писать и X и Y в очередь-результат. Иначе при вот таких данных:

1: <1, 2, 6, 8>
2: <5, 7>
ты получишь неправильный результат: у тебя первые 2 элемента первой очереди меньше, чем первый элемент второй (а твой алгоритм запишет 1, 5 в результирующую очередь), поэтому надо писать в qu_rez только МЕНЬШЕЕ из значений. Идею понимаешь?

[kotmatroskin55]

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

while lst.head<>nil do

[volvo877]

Обычно у списка есть готовый метод, проверяющий его на пустоту. У тебя в первом сообщении он назывался IsEmptyList, у меня в №15 - IsEmpty. Вот его и вызывай для проверки.

[kotmatroskin55]

попробовал - ничего хорошего не выходит,пишет пустая очередь

procedure Queue.change(qu1,qu2:Queue;var qu_rez:Queue);
var
p:L1_List;
x,y:TElem;
  begin
   while not lst.IsEmpty do
    begin
    x:=qu1.get_que;
    y:=qu2.get_que;
    if x>=y then
       begin
         qu_rez.put_que(x);
         qu_rez.put_que(y);
       end
    else
       begin
         qu_rez.put_que(y);
         qu_rez.put_que(x);
       end;
   end;
  end;

[volvo877]

Знаешь, я второй раз то же самое писать не буду - перечитай мои посты выше и переделай алгоритм, потом будем продолжать. Этот код неверный.

[kotmatroskin55]

кажись разобрался,осталось доделать процедуру сравнения,но это уже мелочи

[kotmatroskin55]

Всем спасибо. Вопрос решен

[kotmatroskin55]

На всякий случай решил выложить. Может кому сгодится, ну или появится желание покритиковать. Эту задачу я сдал. 1 курс матфака ОмГУ
Прикреплённый файлочередь.rar (4,92 Кбайт, скачиваний: 118)