Ответы на вопрос:
Option explicit const n = 50 'максимальная емкость стека dim lifo(1 to n) as variant dim ptr as integer 'указатель на вершину стека, моделируемого lifo dim overflow as boolean dim emptylifo as boolean sub push(elem as variant) 'добавляет элемент на вершину стека if ptr < n then ptr = ptr + 1 lifo(ptr) = elem overflow = false emptylifo = false else overflow = true end if end sub sub pop(elem as variant) 'возвращает элемент с вершины стека и удаляет его из стека if ptr > 0 then elem = lifo(ptr) ptr = ptr - 1 end if emptylifo = (ptr = 0) end sub sub main() ' пример работы со стеком - перестановка букв в словах строки. ' не меняя порядка слов в строке, переставить в каждом слове буквы в обратном порядке. ' слова разделяются ровно одним пробелом. dim s as string, s1 as string, i as integer, e as string s = sheets("лист1").cells(1, 1).value if len(s) = 0 then msgbox "нет входной строки" exit sub end if emptylifo = true overflow = false s1 = "" for i = 1 to len(s) e = mid(s, i, 1) 'очередной символ if e < > " " then push e else s1 = s1 + " " do while not emptylifo pop e s1 = s1 + e loop end if next i s1 = s1 + " " do while not emptylifo pop e s1 = s1 + e loop s1 = trim(s1) sheets("лист1").cells(2, 1).value = s1 end sub
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vikapataeva26.05.2023 06:50
-
minzer11.04.2022 22:07
-
prve1726.01.2021 20:27
-
Леголаска04.11.2020 10:58
-
steshagoncharov23.12.2021 13:22
-
GreenDiamonds04.04.2021 14:34
-
SoktoevTimur03.12.2021 14:55
-
sinjay26.05.2021 00:41
-
LarzMarz10.04.2023 18:35
-
jotik991p010co10.04.2021 06:30
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.