Програма, проверяющая правильность расставления скобок в тексте

@Nastia. · Регистрация: 17.01.2012

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

Ребят, помогите пожалуйста написать простенькую программку, которая будет у любого введенного текста проверять правильность расставления круглых скобок. Т.е. если ввел текст "Тогда крокодил )он был очень большой( ..." Программа выдавала бы ошибку. Помогите пожалуйста...Зачет неумолимо кончается

Добавлено через 13 минут
P.S.
Надо в виде процедуры и в виде функции

@PAnT0P · 17.05.2012, 10:19

Было уже неделю-две назад, ищи по форуму

SoftIce · 17.05.2012, 10:29

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Dim s As String, i As Integer, k As Integer
s = InputBox("", "", "Тогда крокодил )он был очень большой( ...")
For i = 1 To Len(s)
If Mid(s, i, 1) = "(" Then k = k + 1
If Mid(s, i, 1) = ")" Then k = k - 1
If Mid(s, i, 1) = ")" And k < 0 Then MsgBox ("Error")
Next i
If k <> 0 Then MsgBox "Количество открывающих и закрывающих скобок не равно"
End Sub

Добавлено через 8 минут

Сообщение от Nastia.

в виде процедуры и в виде функции

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim s As String
  s = InputBox("", "", "Тогда крокодил )он был очень большой( ...")
  If Skobki(s) Then MsgBox ("ERROR")
End Sub
 
 
Private Function Skobki(s As String) As Boolean
Dim i As Integer, k As Integer
 For i = 1 To Len(s)
    If Mid(s, i, 1) = "(" Then k = k + 1
    If Mid(s, i, 1) = ")" Then k = k - 1
    If Mid(s, i, 1) = ")" And k < 0 Then Skobki = True ' Если встретилась закрывающая скобка, но не было открываюшей
 Next i
If k <> 0 Then Skobki = True ' Если количество открывающих и закрывающих скобок не совпадает
End Function

@Nastia. · 17.05.2012, 10:30 **[ТС]**

Спасибо Огромное

SoftIce · 17.05.2012, 10:34

Сообщение от Nastia.

а как насчет выражения этого кода ввиде функции

Visual Basic
1
Private Function Skobki(s As String) As Boolean

Функция Skobki возвращает True, если в передаваемой ей в качестве аргумента строке имеются ошибки в расстановке скобок.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Nastia. 0 / 0 / 0 Регистрация: 17.01.2012 Сообщений: 5

	Програма, проверяющая правильность расставления скобок в тексте 17.05.2012, 10:12. Показов 1172. Ответов 4 Метки нет (Все метки) Ребят, помогите пожалуйста написать простенькую программку, которая будет у любого введенного текста проверять правильность расставления круглых скобок. Т.е. если ввел текст "Тогда крокодил )он был очень большой( ..." Программа выдавала бы ошибку. Помогите пожалуйста...Зачет неумолимо кончается Добавлено через 13 минут P.S. Надо в виде процедуры и в виде функции 0

@PAnT0P 1492 / 587 / 107 Регистрация: 26.03.2012 Сообщений: 1,039
	17.05.2012, 10:19
	Было уже неделю-две назад, ищи по форуму 0

@Nastia. 0 / 0 / 0 Регистрация: 17.01.2012 Сообщений: 5
	17.05.2012, 10:30 [ТС]
	Спасибо Огромное 0