Песни о Паскале

      { возвращаем последний элемент }
      arg:= aStack[Length(aStack)];
      { и удаляем его из стека }
      Delete(aStack, Length(aStack), 1);
      Pop:= true; { признак того, что стек не был пуст }
      end;
end;
var S : string;       { исходный состав }
      SA, SB, SC : string; { три сортировочных тупика A,B,C}
      c : char;       { очередной вагон }
begin
S:= 'HEjd31kDJK62px912se3BKdwL9'; { Исходный состав }
Writeln('Исходный состав: '+S);
SA:=’’; SB:=’’; SC:=’’; { очистка тупиков }
{ Отцепляем вагоны от исходного состава и заталкиваем в тупики }
while Pop(S, c) do begin
      if c in ['A'..'Z'] then Push(SA, c);
      if c in ['a'..'z'] then Push(SB, c);
      if c in ['0'..'9'] then Push(SC, c);
end;
{ Теперь исходный состав пуст, то есть S='' }
{ Выкатываем вагоны из тупика A и цепляем к первому составу }
while Pop(SA, c) do Push(S, c);
Writeln('На станцию A : '+S);
S:=''; { Освобождаем пути }
{ Выкатываем вагоны из тупика B и цепляем ко второму составу }
while Pop(SB, c) do Push(S, c);
Writeln('На станцию B : '+S);
S:=''; { Освобождаем пути }
{ Выкатываем вагоны из тупика C и цепляем к третьему составу }
while Pop(SC, c) do Push(S, c);
Writeln('На станцию C : '+S);
Readln;
end.

Вы познакомились с механизмами очередей и стеков. Мы построили их на основе символьных строк, но в системном программировании это делается иначе, и скоро вы узнаете об этом больше.

Итоги

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

• Очередь обслуживает элементы по принципу «первый пришел – первый ушел» или сокращенно FIFO (First-In, First-Out).

• Стек обслуживает элементы по принципу «последний пришел – первый ушел» или сокращенно LIFO (Last-In, First-Out).

А слабо?

А) Исследуя модель танцевального кружка, можно заметить, что в любой момент одна из двух очередей обязательно пуста. В самом деле, если приходит больше мальчиков, то будет пуста девчоночья очередь и наоборот. Можно ли обойтись одной очередью? Придумайте, как это сделать.

Подсказка: добавьте функцию для тестирования очереди с тем, чтобы выяснить, не пуста ли она. И, если не пуста, то кто томится в ней – мальчик или девочка? Эта функция не должна изменять состояние очереди.

Б) На реальных станциях на горку последовательно загоняют несколько составов, а уж потом освобождают тупики. Добавьте в модель сортировочной горки возможность такой обработки. Исходные составы (строки) должны вводиться с клавиатуры, признак окончания ввода – пустая строка. Совет: