Создать стек с элементами — строками. Исключить из стека элементы, начинающиеся с буквы А

@senioz · Регистрация: 28.09.2021

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

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

@JuriiMW · 08.02.2022, 13:55

Pascal
1
2
3
4
5
6
7
8
## var s:=New Stack<string>;
loop ReadLnInteger('число строк:') do s.Push(ReadLnString);
'строки в стеке:'.Println;s.PrintLines;
var t:=New Stack<string>;while s.Count>0 do t.Push(s.Pop);
while t.Count>0 do if t.Peek[1]='A' then t.Pop else s.Push(t.Pop);
'строки без А:'.Println;s.PrintLines;
$'количество {s.Count}'.Println;
if s.Count>0 then begin s.Peek.Println; s.Last.Println; end;

@senioz · 08.02.2022, 14:09 **[ТС]**

Можно проще, не совсем понимаю код

@XzzzX · 08.02.2022, 18:11

если расставить Enter'ы как надо, то ничего такого сложного нет по моему. если Вы не знает операторы это конечно не поможет..

ну и так немного логичнее по моему

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
##
var s:= new Stack<string>();
loop ReadLninteger('кол-во строк =') do
  s.Push(ReadLnString);
 
var s2:= new Stack<string>;
loop s.Count do
  if s.Peek[1] <> 'А' then
    s2.Push(s.Pop)
  else
    s.Pop;
s:= s2;
s2:= nil;
 
print(#13#10, s.Count, s.Peek, s.Last);

@Cyborg Drone · 08.02.2022, 18:16

senioz, это и есть совсем просто. Но Вы не понимаете код, скорее всего, потому, что Вас такому не учили?

Вы уверены, что Вам нужен код именно на Pascal ABC.NET? Вы Pascal ABC.NET с другим диалектом паскаля не перепутали? К примеру, с Pascal ABC (без .NET)?

Определитесь, на каком из диалектов паскаля Вам требуется решение. Учтите, на других диалектах паскаля будет, может быть, понятнее для Вас, но точно не проще, и точно не короче.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@senioz 0 / 0 / 0 Регистрация: 28.09.2021 Сообщений: 22

	Создать стек с элементами — строками. Исключить из стека элементы, начинающиеся с буквы А 08.02.2022, 13:43. Показов 647. Ответов 4 Метки нет (Все метки) Помогите выполнить задание: Создать стек с элементами — строками. Исключить из стека элементы, начинающиеся с буквы А. Вывести размер (кол-во элементов) получившегося стека и значения его нижнего и верхнего элементов. 0

@senioz 0 / 0 / 0 Регистрация: 28.09.2021 Сообщений: 22
	08.02.2022, 14:09 [ТС]
	Можно проще, не совсем понимаю код 0

@Cyborg Drone Модератор 10442 / 5734 / 3406 Регистрация: 17.08.2012 Сообщений: 17,446
	08.02.2022, 18:16
	senioz, это и есть совсем просто. Но Вы не понимаете код, скорее всего, потому, что Вас такому не учили? Вы уверены, что Вам нужен код именно на Pascal ABC.NET? Вы Pascal ABC.NET с другим диалектом паскаля не перепутали? К примеру, с Pascal ABC (без .NET)? Определитесь, на каком из диалектов паскаля Вам требуется решение. Учтите, на других диалектах паскаля будет, может быть, понятнее для Вас, но точно не проще, и точно не короче. 1