[Nelson1992]

Мне нужна помощь в написании программы к заданию:

1. На языке программирования Pascal реализовать процедуры работы со стеком на последовательном распределении памяти:

- Создание пустого стека

- Добавление элемента на вершину стека

- Удаление элемента с вершины стека

Процедуры, реализующие операции добавления и удаления элемента должны разумным образом обрабатывать ситуации переполнения и нехватки (схемы (2а), (3а)). Стек реализовать, используя одномерный массив и переменную типа integer (указатель на вершину стека).

Т ← Т + 1; если T > M то ПЕРЕПОЛНЕНИЕ, иначе Х[Т] ← Y (2a)

(включить в стек)

если T = 0 то НЕХВАТКА, иначе Y ← X[T]; Т ← Т - 1 (3a)
(исключить из стека)

2. Провести вычислительный эксперимент с полученными процедурами

a) Используя результат задания 1 запрограммировать получение нового текстового файла, в котором все слова во всех предложениях записаны в обратном порядке. В программе установить максимальный размер стека равным 10.

b) Используя результат задания 1 запрограммировать получение нового текстового файла, в котором в котором буквы каждого слова записаны в обратном порядке. В программе установить максимальный размер стека равным 5.

В процессе работы программы должна выводить текущее состояние стека (после каждой операции добавления, извлечения, очистки).

Вот текст который должен содержаться в текстовом файле:

Придется идти ва-банк...
- Ты не вправе слышать его имя!
- Я вправе на все, - сообщает монстр.
И пальцы сжимаются.
Теперь должен произойти выход в реальность. Как следствие
"смертельного" воздействия. Иначе - мозг может вообразить самый настоящий
болевой шок, со всеми последствиями.
Только самоубийца отключит предохранители дип-программы.
Или дайвер.
Мое изуродованное тело валяется на ладони монстра. Череп расплющен,
один глаз смотрит в пыльное жаркое небо, другой - в каменный ноготь. Ифрит
громко, удовлетворенно хохочет, потом кричит:
- Ты, пришедший в облике волка, запомни его судьбу!
Ага, вот как он определил язык... слышал наши разговоры. Однако ему
не хватило "ума" понять, с кем имеет дело...
Монстр снова каменеет. Я выжидаю еще секунду, потом встаю. Тело
медленно собирается воедино. Нормальный пользователь дип-технологии сейчас
очнулся бы в реальности, перед укоризненно верещащим компьютером.
Учитывает ли сторожевая программа "Аль-Кабара" существование
дайверов?
Монстр неподвижен. Я мертв, давно мертв... Осторожно ступаю на
волосяной мост...
- Кто ты?