Найти минимальный элемент в стеке и вставить после него 0

@Alizee · Регистрация: 21.12.2015

Author24 — интернет-сервис помощи студентам

Необходимо найти минимальный элемент в стеке и вставить после него 0.

@JuriiMW · 20.06.2016, 05:56

Стек — это способ хранения информации по принципу «последним пришёл — первым вышел».
Над стеком определены всего две операции:
push — пихнуть (отправить в стек)
pop — выпихнуть (взять из стека и удалить)
Можно, конечно ещё определить одну операцию:
peek — взять элемент с вершины, но не удалять
Можно ещё добавить свойство:
empty — пустой ли стек или count — число элементов стека.
Хоть первое проще, почему-то в реализации PABC.NET используется второе…
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Подводя итог, могу сказать, что в классическом понимании стека, данное задание должно быть реализовано таким вот образом:

Pascal

begin
  Randomize;
  var s := New Stack<integer>;
  var count := ReadLnInteger('Число случайных элементов стека:');
  WriteLn('Заносим значения в стек:');
  for var n := 1 to count do
    begin
      var v := Random(1, 9);
      s.Push(v);
      Print(v);
    end;
  WriteLn(NewLine, 'Создан стек:', NewLine, s);
  
  var minV := s.Peek;
  var t := New Stack<integer>;
  while s.Count > 0 do
    begin
      var v := s.Pop;
      t.Push(v);
      if minV > v then minV := v;
    end;
  WriteLn('Минимальный элемент = ', minV);
  
  while t.Count > 0 do
    begin
      var v := t.Pop;
      s.Push(v);
      if v = minV then
        begin
          s.Push(0);
          minV := Integer.MinValue;
        end;
    end;
  WriteLn('После последнего минимального вставлен 0:', NewLine, s);
end.

P.S. Прошу учесть, что при выводе содержимого стека, „голова“ находится слева, а „хвост“ – справа. Поэтому на самом деле 0 на экран выводится левее минимального значения…
Тот, что „последним пришёл“ — попадает в самую левую позицию „голову“ стека, следовательно становится левее.

@Alizee · 20.06.2016, 06:46 **[ТС]**

Спасибо огромное!)

@M0R · 21.03.2018, 14:57

а если то же самое Pascal ABC? не хочет воспринимать компилятор операторы нетовские

@JuriiMW · 22.03.2018, 06:17

Сообщение от M0R

а если то же самое Pascal ABC?

Хотите — делайте! Я не буду возражать ;–)

@Alizee 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 7
		1
	Найти минимальный элемент в стеке и вставить после него 0 19.06.2016, 18:09. Показов 2990. Ответов 4 Метки нет (Все метки) Необходимо найти минимальный элемент в стеке и вставить после него 0. 0

@Alizee 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 7
	20.06.2016, 06:46 [ТС]	3
	Спасибо огромное!) 0

@M0R 0 / 0 / 0 Регистрация: 04.03.2018 Сообщений: 22
	21.03.2018, 14:57	4
	а если то же самое Pascal ABC? не хочет воспринимать компилятор операторы нетовские 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	22.03.2018, 06:17	5
	Сообщение от M0R а если то же самое Pascal ABC? Хотите — делайте! Я не буду возражать ;–) 0

Найти минимальный элемент в стеке и вставить после него 0

Решение