• Самый лучший способ изучать язык программирования — это писать на нем программы.

Работа со стеком

Программа иллюстрирует различные способы работы с массивами.

Стек — это массив, который позволяет хранить много однотипных значений в оперативной памяти компьютера, используя одно общее имя для обращения к самому стеку и специальные методы обращения к его элементам: в стек можно положить значение или забрать из него значение. При этом обращение к стеку происходит по принципу стопки тарелок, стоящей на столе: можно добавить одну тарелку сверху или снять сверху одну тарелку — в порядке их помещения в стек: последнее помещенное значение будет извлечено первым. Высота стопки может расти и уменьшаться.

Перед использованием переменная стека должна быть проинициализирован любым значением, отличным от пустой строки («»)!

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

 

' Инициализируем стеки

первый стек = "первый"

второй стек = "второй"

' Заполняем первый стек

Stack.PushValue("первый стек", "первый - 1")

Stack.PushValue("первый стек", "первый - 2")

Stack.PushValue("первый стек", "первый - 3")

' Заполняем второй стек

Stack.PushValue("второй стек", "второй - 1")

Stack.PushValue("второй стек", "второй - 2")

Stack.PushValue("второй стек", "второй - 3")

Stack.PushValue("второй стек", "второй - 4")

' выводим количество элементов с стеках

TextWindow.WriteLine("Первый стек содержит " + Stack.GetCount("первый стек") + " элемента(ов).")

TextWindow.WriteLine("Второй стек содержит " + Stack.GetCount("второй стек") + " элемента(ов).")

' забираем элементы из стеков

TextWindow.WriteLine("Верхний элемент для первого стека это: " + Stack.PopValue("первый стек") + ".")

TextWindow.WriteLine("Верхний элемент для второго стека это: " + Stack.PopValue("второй стек") + ".")

TextWindow.WriteLine("После извлечения, верхний элемент первого стека это: " + Stack.PopValue("первый стек") + ".")

TextWindow.WriteLine("После извлечения, верхний элемент первого стека это: " + Stack.PopValue("второй стек") + ".")


Поделиться: