Лаб работа: создать стек на базе 2 очередей Опции

[Katrin]

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

[orko]

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

[GLuk]

Объясни принцип понятия 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+

Сообщение отредактировано: volvo - 17.12.2004 14:05

[___ALex___]

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

[GLuk]

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

Код

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

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

Сообщение отредактировано: volvo - 17.12.2004 14:06

[zx1024]

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

[___ALex___]

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

[GLuk]

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

[AlaRic]

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

В чем я сомневаюсь! Кому надо - тот на форум по 20 раз за день приходит!