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

[kr3v3tkus]

теперь вот сел за очередь ( та же задача http://forum.pascalnet.ru/index.php?showtopic=13227 ). Скатал готовый пасс ( тк своей башки на написание не хватит ), но как всегда пока переделывал чёто левое наворотил, проверьте пожалста. Я его описал ...
uses
MyQueue;
var
l,p,t: TQueue;
... вот так, но при обращении к этим переменным (када точечку ставиш ) пишет чёто типа не могу откомпилировать пас

[kr3v3tkus]

ooops оч лучше
а в фак я защёл сразу, но чёт ваще через объект не понял () я даже не знаю что такое halt(102) кста там гдето и вытянул эту очередь мнеб тут бы разобраться - вот у нас процедура пуш

Код

Procedure TQueue.Push(var q:TQueue; e: Char);
var z:Tlist;
begin
  new(z);
  z^.info:=E;
  z^.next:=nil;
  If Empty(q) then q.head:=z else q.tail^.next:=z;
  q.tail:=z
end;

вот например a.push(q,e) - e это наш символ, который мы передаём, а что такое q? у меня блин проблемы с описаниями и передачею всегда
зы а с очередью всё ок? тоесть в хвост кладём голову вынимаем? а то в инструкции к модулю написано так

Procedure OueuePush(var q:TQueue; e:TElem);
поместить в хвост

Function QueuePop(var q:TQueue):TElem;
извлечь из хвоста

или я чёт не догоняю?


Сообщение отредактировано: kr3v3tkus - 7.11.2006 0:25