IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

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

> очередь для символов, +сделать готовые процедурки
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 111
Пол: Мужской
Реальное имя: Рома

Репутация: -  0  +


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


Прикрепленные файлы
Прикрепленный файл  MyQueue.pas ( 958 байт ) Кол-во скачиваний: 235


--------------------
Цитата
          .     .
           \__/
          (**)
(>:=:=:~~ 
  ^ ^ ^ ^ 

Креветка присваивания :DDD
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 111
Пол: Мужской
Реальное имя: Рома

Репутация: -  0  +


ooops smile.gif оч лучше smile.gif
а в фак я защёл сразу, но чёт ваще через объект не понял () я даже не знаю что такое halt(102) smile.gif кста там гдето и вытянул эту очередь smile.gif мнеб тут бы разобраться - вот у нас процедура пуш
Код
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? у меня блин проблемы с описаниями и передачею всегда smile.gif
зы а с очередью всё ок? тоесть в хвост кладём голову вынимаем? а то в инструкции к модулю написано так
Цитата
Procedure OueuePush(var q:TQueue; e:TElem);
поместить в хвост

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

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


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


--------------------
Цитата
          .     .
           \__/
          (**)
(>:=:=:~~ 
  ^ ^ ^ ^ 

Креветка присваивания :DDD
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.12.2022 14:05
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name