Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Лаб работа: создать стек на базе 2 очередей

Автор: Katrin 22.09.2003 20:31

Помогите создать стек на базе 2 очередей,
т. к. в очередной раз пропустила лекцию по Паскалю.

Автор: orko 22.09.2003 22:28

mda malenkii ia esche (( ne doros do etogo))

Автор: GLuk 22.09.2003 23:38

Объясни принцип понятия 2х очередей в процессе формирования стека...
+ ко всему может сама что сделала?!
Если я так думаю, то это выглядит вот так:

Код

asm
mov ax,@data
mov ds,ax
mov ax,@data
add ax,1000h
mov es,ax
mov bp,sp
call InitStack
end;

DOS 3.0+

Автор: _ALex_ 22.09.2003 23:44

какой нафиг асм!
девушке лабу надо сделать на Паскале
именно сделать, а не ПОМОЧЬ сделать

Автор: GLuk 22.09.2003 23:53

2Alex:
А ты думаешь это не реализация стека на базе двух очередей??
На всякий случай (реализация на Пасе):

Код

Var P,P2:Pointer;
begin
GetMem(P,$FFFF);
GetMem(P2,$FFFF);
InitStack;
end.

Процедуру InitStack поисывать не буду, потому что ее сделает ___Alex___, который понимает, что нужно не ПОМОЧЬ, а СДЕЛАТЬ девушке ее лабу...

Автор: zx1024 23.09.2003 0:21

Я так понял.
Путём извратного применения очередей (они уже как бы есть) в кол-ве 2 штук, создать, что-то напоминающее действия стека (LIFO).
Тогда так.
Очередь1 (О1) служит контейнером, т.е. все элементы заносятся и хранятся в ней.
О2 - пустая.
При чтении из "стека" "верхнего" элемента
из О1 читаются все элементы кроме последнего в О2. Последний и будет искомым (верхним в "стеке").
Затем очереди меняются местами. Т.е. теперь О2 - контейнер, а О1 - пустая.
И т.д.

Автор: _ALex_ 23.09.2003 23:19

делать мне больше нечего
то, что я сказал, что ей надо решить задачку никого не обязывает её делать

Автор: GLuk 23.09.2003 23:56

Не будем разводить полемику, а дождемся ответа Katrin...
Если, конечно, ответ будет ;)

Автор: AlaRic 24.09.2003 13:34

Цитата