Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок

@sokolovskii · Регистрация: 08.02.2016

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

Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок, имея в виду, что балансом, например будет комбинация ((.)), в то время как комбинация). .(.).( балансом не является

@Joy · 09.02.2016, 05:36

Проверить сбалансированность скобок в тексте

@F_M_D · 03.11.2020, 17:20

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace Program
{
    class Program
    {
        public static bool CheckString(string input)
        {
            int parenSum = 0;
 
            foreach (char c in input)
            {
                if (c == '(') parenSum++;
                if (c == ')') parenSum--;
 
                if (parenSum < 0)
                    return false;
            }
            if (parenSum == 0)
                return true;
            else
                return false;
        }
        static void Main(string[] args)
        {
            string text = Console.ReadLine();
            bool count = CheckString(text);
            if (count == true)
                Console.WriteLine("Баланс скобок есть");
            else
                Console.WriteLine("Баланса скобок нет");
 
            Console.ReadKey();
 
        }
    }
}

@canadamoscow · 03.11.2020, 21:24

Pascal
1
2
3
4
5
6
7
##
var s := ReadlnString('==>');
var a := s.Select(t-> t = '(' ? 1 : t=')' ? -1 : 0).DefaultIfEmpty.toArray;
a.Fill(i -> i = 0 ? a[0] : a[i-1] + a[i]);
if (a.Last <> 0) or (a.Min < 0) then 'Скобки не сбалансированы'.Println
else if a.Max = 0 then 'Скобки отсутствуют'.Println
else 'Скобки сбалансированы'.Println;

@canadamoscow · 08.11.2020, 12:55

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
## 
var St := new Stack<char>; 
foreach var c in ReadlnString('Введите выражение:') do 
  case c of 
    '(': St.Push(c); 
    ')':  
      if St.Count > 0 then St.Pop 
         else 
      begin 
        Println('Скобки расставлены неверно'); 
        Exit 
      end 
  end; 
if St.Count = 0 then 
  Println('Скобки расставлены верно') 
else 
  Println('Скобки расставлены неверно')

Источник: Осипов А.В. PascalABC.NET: выбор школьника. Часть 3 стр.102

@Sun Serega · 08.11.2020, 16:43

Использовать Stack имеет смысл только если надо поддерживать несколько видов скобок, которые друг-другу не равноценны.
А когда все элементы стека одинаковые - получается что из переменной реально используется только .Count, то есть лучше только число и хранить.

@eaa · 09.11.2020, 07:18

Pascal
1
2
3
4
##
var s := ReadString;
while '()' in s do s := s.Replace('()', '');
Print(s = '' ? 'YES' : 'NO')

Добавлено через 15 минут
а вообще вот:

Pascal
1
2
3
4
5
6
7
8
9
10
##
var s := ReadString;
var k := 0;
foreach var b in s do
begin
  k += b = '(' ? 1 : -1;
  if k < 0 then
    break
end;
Print(k = 0 ? 'YES' : 'NO')

@Sun Serega · 09.11.2020, 10:22

eaa, в тексте могут быть не только скобки. Посмотрите хотя бы на примеры из первого сообщения.

@eaa · 09.11.2020, 10:35

не вижу проблем 2ое решение переделать, если в тексте встречаются не только скобки.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@sokolovskii 0 / 0 / 0 Регистрация: 08.02.2016 Сообщений: 12

	Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок 08.02.2016, 17:22. Показов 1664. Ответов 8 Метки нет (Все метки) Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок, имея в виду, что балансом, например будет комбинация ((.)), в то время как комбинация). .(.).( балансом не является 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	09.02.2016, 05:36
	Проверить сбалансированность скобок в тексте 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	08.11.2020, 16:43
	Использовать `Stack` имеет смысл только если надо поддерживать несколько видов скобок, которые друг-другу не равноценны. А когда все элементы стека одинаковые - получается что из переменной реально используется только `.Count`, то есть лучше только число и хранить. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	09.11.2020, 10:22
	eaa, в тексте могут быть не только скобки. Посмотрите хотя бы на примеры из первого сообщения. 0

@eaa Status 418 4584 / 2350 / 601 Регистрация: 26.11.2017 Сообщений: 5,262 Записей в блоге: 3
	09.11.2020, 10:35
	не вижу проблем 2ое решение переделать, если в тексте встречаются не только скобки. 0