Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Анатолий_
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 15
1

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

12.04.2012, 22:38. Просмотров 1818. Ответов 7
Метки нет (Все метки)

в visual basic 6.0
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в
данной строке.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2012, 22:38
Ответы с готовыми решениями:

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в заданной строке
Создать программу в которой можно будет: 1)Проверить, одинаковое ли число открывающихся и...

Количество открывающихся и закрывающихся скобок
помогите выполнить задание В тексте есть скобки «(» или «)» Подсчитать количество открывающихся...

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

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке
Помогите пожалуйста! Нужно написать программу в Dlphi! Проверить, одинаковое ли число...

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Пожалуйста,...

7
Alex77755
10985 / 3442 / 592
Регистрация: 13.02.2009
Сообщений: 10,223
13.04.2012, 10:22 2

Не по теме:

Тем создал много и ждёшь, что тебе просто решат?
Сам-то хоть попробуй.
Выложи свои попытки. И тогда спрашивай.


Не по теме:

Ведь в правилах не зря написано:


Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены.
3
PAnT0P
1029 / 553 / 106
Регистрация: 26.03.2012
Сообщений: 993
13.04.2012, 12:42 3
Прозрачно намекну. Просматриваешь строку с лева на право (или наоборот, кому как нравится) если стоит открывающая скобка то увеличиваешь счетчик на 1, если закрывающая скобка то уменьшаешь на 1. на выходе счетчик показывает сколько лишних скобок: положительное - открывающих, отрицательное - закрывающих, ноль - количество скобок одинаково.
1
Анатолий_
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 15
15.04.2012, 22:05  [ТС] 4
подскажите пожалуйста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
char1 = "("
char2 = ")"
k = 0
For i = 1 To Len(str1)
    If Mid(str1, i, Left) = char1 Then k = k + 1
    If Mid(str1, i, Left) = char2 Then k = k - 1
    Next
       If k > 0 Then Picture1.Print "áîëüøå îòêðûâàþùèõñÿ"
       If k < 0 Then Picture1.Print "áîëüøå çàêðûâàþùèõñÿ"
       If k = 0 Then Picture1.Print "ðàâíî"
End Sub
0
15.04.2012, 22:05
SoftIce
es geht mir gut
11189 / 4612 / 1161
Регистрация: 27.07.2011
Сообщений: 11,317
Завершенные тесты: 1
15.04.2012, 23:26 5
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
char1 = "("
char2 = ")"
k = 0
For i = 1 To Len(str1)
    If Mid(str1, i, 1) = char1 Then k = k + 1
    If Mid(str1, i, 1) = char2 Then k = k - 1
    Next
       If k > 0 Then Picture1.Print "больше открывающихся"
       If k < 0 Then Picture1.Print "больше закрывающихся"
       If k = 0 Then Picture1.Print "равно"
End Sub
1
Анатолий_
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 15
10.05.2012, 19:06  [ТС] 6
помогите нарисовать блок схему данной программы
0
SoftIce
es geht mir gut
11189 / 4612 / 1161
Регистрация: 27.07.2011
Сообщений: 11,317
Завершенные тесты: 1
10.05.2012, 19:41 7
_________
1
Миниатюры
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке  
Апострофф
Заблокирован
10.05.2012, 19:46 8
Цитата Сообщение от Анатолий_ Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
char1 = "("
char2 = ")"
k = 0
For i = 1 To Len(str1)
 If Mid(str1, i, Left) = char1 Then k = k + 1
 If Mid(str1, i, Left) = char2 Then k = k - 1
 Next
 If k > 0 Then Picture1.Print "больше открывающихся"
 If k < 0 Then Picture1.Print "больше закрывающихся"
 If k = 0 Then Picture1.Print "равно"
End Sub
Прозрачно подправлю -
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
char1 = "("
char2 = ")"
k = 0
For i = 1 To Len(str1)
    If Mid(str1, i, 1) = char1 Then k = k + 1
    If Mid(str1, i, 1) = char2 Then k = k - 1
 
    if k<0 then Picture1.Print "Вы сумели закрыть больше скобок, чем открыли! А это не понравится ни одному компилятору!": exit sub
 
Next
If k > 0 Then Picture1.Print "больше открывающихся"
If k < 0 Then Picture1.Print "больше закрывающихся"
If k = 0 Then Picture1.Print "равно"
End Sub
2
10.05.2012, 19:46
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 19:46

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке
3. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке...кто-нибудь...

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

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Большое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.