Строки: найти количество групп с пятью символами

@holyhex · Регистрация: 21.06.2018

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

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью символами.

SoftIce · 25.06.2018, 12:16

А нули и единицы могут быть в одной группе ?

@holyhex · 25.06.2018, 14:22 **[ТС]**

да такое допустимо

SoftIce · 25.06.2018, 14:36

Приведите пример строки.

Добавлено через 12 минут
holyhex, ну что застеснялся ? Не знаешь что такое строка ?
Держи что есть, мне некогда тут ждать.

Visual Basic
1
2
3
4
5
6
7
Sub holyhex()
    st = Split(" 00 00000 01111 0101 000 01010 11111 1 0 00001 11000")
    For i = 0 To UBound(st)
       If Len(st(i)) = 5 Then k = k + 1
    Next i
    MsgBox k
End Sub

@holyhex · 28.06.2018, 20:32 **[ТС]**

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью символами (Пример: 1010 10101 101010 10000 11010 111111 1110 0000).

SoftIce · 28.06.2018, 20:41

Было уже. Что не так ?

@holyhex · 28.06.2018, 22:39 **[ТС]**

Выдаёт ошибку в строке 3, на Split.

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim i, st, k As Integer
st = Split(" 00 00000 01111 0101 000 01010 11111 1 0 00001 11000")
For i = 0 To UBound(st) Step (1)
If Len(st(i)) = 5 Then k = k + 1
Next i
MsgBox k
 
End Sub

SoftIce · 28.06.2018, 22:56

Сообщение от holyhex

Выдаёт ошибку в строке 3, на Split.

???

@holyhex · 29.06.2018, 00:31 **[ТС]**

Забыл написать, что работа с text1.text, а не Split(" 00 00000 01111 0101 000 01010 11111 1 0 00001 11000")
st = text1.text

Добавлено через 53 минуты
Все разобрался.
Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim i, st, k As Integer
st = Split(Text1.Text)
For i = 0 To UBound(st) Step (1)
If Len(st(i)) = 5 Then k = k + 1
Next i
MsgBox k
End Sub
 
Private Sub Command2_Click()
Text1.Text = ""
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < Asc(0) Or KeyAscii > Asc(1) Or KeyAscii > Asc(20)) And KeyAscii <> 32 And KeyAscii <> 8 And KeyAscii <> 110 Then KeyAscii = 0
End Sub

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@holyhex 0 / 0 / 0 Регистрация: 21.06.2018 Сообщений: 33

	Строки: найти количество групп с пятью символами 25.06.2018, 12:11. Показов 677. Ответов 8 Метки нет (Все метки) Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью символами. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	25.06.2018, 12:16
	А нули и единицы могут быть в одной группе ? 0

@holyhex 0 / 0 / 0 Регистрация: 21.06.2018 Сообщений: 33
	25.06.2018, 14:22 [ТС]
	да такое допустимо 0

@holyhex 0 / 0 / 0 Регистрация: 21.06.2018 Сообщений: 33
	28.06.2018, 20:32 [ТС]
	Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью символами (Пример: 1010 10101 101010 10000 11010 111111 1110 0000). 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.06.2018, 20:41
	Было уже. Что не так ? 0