Дан произвольный русский текст. Проверить каких букв в нем больше: гласных или согласных

@justkeeper · Регистрация: 05.12.2012

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

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

Visual Basic
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Dim stroka As String
Private Sub Command1_Click()
stroka = "я люблю УГАТУ"
r = Split(stroka, "а") 'глассные
g = UBound(r)
r = Split(stroka, "е")
g = g + UBound(r)
r = Split(stroka, "ё")
g = g + UBound(r)
r = Split(stroka, "и")
g = g + UBound(r)
r = Split(stroka, "о")
g = g + UBound(r)
r = Split(stroka, "у")
g = g + UBound(r)
r = Split(stroka, "ы")
g = g + UBound(r)
r = Split(stroka, "э")
g = g + UBound(r)
r = Split(stroka, "ю")
g = g + UBound(r)
r = Split(stroka, "я")
g = g + UBound(r)
p = Split(stroka, "б") 'соглассные
s = s + UBound(p)
p = Split(stroka, "в")
s = s + UBound(p)
p = Split(stroka, "г")
s = s + UBound(p)
p = Split(stroka, "д")
s = s + UBound(p)
p = Split(stroka, "ж")
s = s + UBound(p)
p = Split(stroka, "з")
s = s + UBound(p)
p = Split(stroka, "й")
s = s + UBound(p)
p = Split(stroka, "к")
s = s + UBound(p)
p = Split(stroka, "л")
s = s + UBound(p)
p = Split(stroka, "м")
s = s + UBound(p)
p = Split(stroka, "н")
s = s + UBound(p)
p = Split(stroka, "р")
s = s + UBound(p)
p = Split(stroka, "п")
s = s + UBound(p)
p = Split(stroka, "с")
s = s + UBound(p)
p = Split(stroka, "т")
s = s + UBound(p)
p = Split(stroka, "ф")
s = s + UBound(p)
p = Split(stroka, "х")
s = s + UBound(p)
p = Split(stroka, "ц")
s = s + UBound(p)
p = Split(stroka, "ч")
s = s + UBound(p)
p = Split(stroka, "ш")
s = s + UBound(p)
p = Split(stroka, "щ")
s = s + UBound(p)
If (g > s) Then Picture3.Print "Гласных больше чем согласных"
If (s > g) Then Picture3.Print "Согласных больше чем гласных"
If (s = g) Then Picture3.Print "Количество гласных совпадает с количеством гласными"
Picture1.Print g
Picture2.Print s
End Sub

@Kogb · 05.12.2012, 13:38

Прописные буквы не считает.

Добавлено через 17 минут
...потому что.

@Казанский · 05.12.2012, 15:54

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Const GLAS$ = "аеёиоуыэюя"
Const SOGL$ = "бвгджзйклмнпрстфчцчшщ"
 
Dim stroka As String
Private Sub Command1_Click()
Dim g&, s&, i&
stroka = "я люблю УГАТУ!,!:!!"
For i = 1 To Len(stroka)
    If InStr(1, SOGL, Mid$(stroka, i, 1), vbTextCompare) Then
        s = s + 1
    ElseIf InStr(1, GLAS, Mid$(stroka, i, 1), vbTextCompare) Then
        g = g + 1
    End If
Next
 
Picture3.Print Choose(Sgn(g - s) + 2, "Согласных больше чем гласных", _
    "Количество гласных совпадает с количеством согласных", "Гласных больше чем согласных")
Picture1.Print g
Picture2.Print s
End Sub

Dragokas · 05.12.2012, 15:59

Та у него там проблемы с подсчетом кол-ва одинаковых букв (т.е. нет вообще кода),
а этот и так работает.

Разве что дописать в начало:

Visual Basic
1
stroka = LCase(stroka)

@Kogb · 05.12.2012, 16:34

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

Та у него там проблемы с подсчетом кол-ва одинаковых букв (т.е. нет вообще кода)

А це що?

Visual Basic
1
2
r = Split(stroka, "а") 'глассные
g = UBound(r)

@Казанский · 05.12.2012, 17:07

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

а этот и так работает

Этот код оскорбляет мои эстетические чувства!

Добавлено через 13 минут
Так еще можно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim stroka As String
 
Private Sub Command1_Click()
Dim g&, s&, i&
stroka = "я люблю УГАТУ!,!:!!"
With CreateObject("vbscript.regexp")
    .Global = True
    .ignorecase = True
    .Pattern = "[аеёиоуыэюя]"
    g = .Execute(stroka).Count
    .Pattern = "[бвгджзйклмнпрстфчцчшщ]"
    s = .Execute(stroka).Count
End With
 
Picture3.Print Choose(Sgn(g - s) + 2, "Согласных больше чем гласных", _
    "Количество гласных совпадает с количеством согласных", "Гласных больше чем согласных")
Picture1.Print g
Picture2.Print s
End Sub

Dragokas · 06.12.2012, 00:32

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

А це що?

Подсчет гласных.

Не по теме:

Kogb, украинский запрещен :D

Сообщение от Казанский

Этот код оскорбляет мои эстетические чувства!

Для 1 курса самое то ;D

@justkeeper · 10.12.2012, 17:09 **[ТС]**

Visual Basic
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub Command1_Click()
Open Text1 For Input As #1
Input #1, stroka
Close #1
Text2 = stroka
stroka = LCase(stroka)
r = Split(stroka, "à") 'ãëàññíûå
g = UBound(r)
r = Split(stroka, "å")
g = g + UBound(r)
r = Split(stroka, "¸")
g = g + UBound(r)
r = Split(stroka, "è")
g = g + UBound(r)
r = Split(stroka, "î")
g = g + UBound(r)
r = Split(stroka, "ó")
g = g + UBound(r)
r = Split(stroka, "û")
g = g + UBound(r)
r = Split(stroka, "ý")
g = g + UBound(r)
r = Split(stroka, "þ")
g = g + UBound(r)
r = Split(stroka, "ÿ")
g = g + UBound(r)
p = Split(stroka, "á") 'ñîãëàññíûå
s = s + UBound(p)
p = Split(stroka, "â")
s = s + UBound(p)
p = Split(stroka, "ã")
s = s + UBound(p)
p = Split(stroka, "ä")
s = s + UBound(p)
p = Split(stroka, "æ")
s = s + UBound(p)
p = Split(stroka, "ç")
s = s + UBound(p)
p = Split(stroka, "é")
s = s + UBound(p)
p = Split(stroka, "ê")
s = s + UBound(p)
p = Split(stroka, "ë")
s = s + UBound(p)
p = Split(stroka, "ì")
s = s + UBound(p)
p = Split(stroka, "í")
s = s + UBound(p)
p = Split(stroka, "ð")
s = s + UBound(p)
p = Split(stroka, "ï")
s = s + UBound(p)
p = Split(stroka, "ñ")
s = s + UBound(p)
p = Split(stroka, "ò")
s = s + UBound(p)
p = Split(stroka, "ô")
s = s + UBound(p)
p = Split(stroka, "õ")
s = s + UBound(p)
p = Split(stroka, "ö")
s = s + UBound(p)
p = Split(stroka, "÷")
s = s + UBound(p)
p = Split(stroka, "ø")
s = s + UBound(p)
p = Split(stroka, "ù")
s = s + UBound(p)
If (s > g) Then Sum = "Ñîãëàñíûõ áîëüøå ÷åì ãëàñíûõ"
If (g > s) Then Sum = "Ãëàñíûõ áîëüøå ÷åì ñîãëàñíûõ"
If (g = s) Then Sum = "Êîëè÷åñòâî ãëàñíûõ ñîâïàäàåò ñ êîëè÷åñòâîì ñîãëàñíûõ"
Open Text3 For Output As #2
Print #2, Sum
Close #2
End Sub

При выполнении задания необходимо считать текст из файла. Результат выполнения программы записать в файл. Опять у меня только так получилось , говорят , что не рационально это все.. Через массив ни как не получается создать счетчик...

@desant · 18.01.2015, 19:46

Сообщение от Казанский

InStr(1, SOGL, Mid$(stroka, i, 1), vbTextCompare) Then
s = s + 1
ElseIf InStr(1, GLAS, Mid$(stroka, i, 1), vbTextCompare) Then
g = g + 1

а может кто нить объяснить, что это и как это есть ? Просто скопировать нет смысла ибо потом могут спросить, а я понятия не имею.... типо посмотри в книжках или в гугли.... там не для людей пишут , ну или не для меня

@Genn55 · 19.01.2015, 11:35

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

там не для людей пишут , ну или не для меня

Это счетчик.Сердце счетчика - оператор s = s + 1. Именно он в нужный момент увеличивает счетчик на 1.
Вот простенький код

Visual Basic
1
2
3
4
5
6
    c = 0                       'Обнуляем счетчик
    For i = 1 To 5
        a = InputBox("Введите очередное число")
        If a > 0 Then c = c + 1
    Next i
    Debug.Print "Из них положительных -"; c

Прокрутите его в пошаговом режиме и все поймете.
Точно так же работают и сумматоры только "сердце" немножко другое

Visual Basic
1
s=s+a           'Увеличиваем сумматор

Пример

Visual Basic
1
2
3
4
5
    s = 0
    For i = 1 To 5
        a = InputBox("Введите очередное число")
        s = s + a
    Next i

Думаю разобрались.

@desant · 19.01.2015, 13:02

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

Думаю разобрались

Дело не в счётчиках ( с ними я давно разобрался). Меня интересует именно InStr и Mid, их значения я прочитал в книги но понять не могу как это тут происходит

@Апострофф · 19.01.2015, 13:18

Visual Basic
1
2
IF InStr(1, SOGL, Mid$(stroka, i, 1), vbTextCompare) Then 'если в строке SOGL (содержащей согласные символы алфавита) начиная с первого символа имеется i-й символ строки stroka (регистры игнорируем) то
  s = s + 1 'нарашиваем счётчик согласных букв

@desant · 19.01.2015, 16:17

То есть если буква в stroka совпадает с буквой SOGL то мы выполняем это действие: s = s + 1 , а можно ли использовать эти функции (InStr, Mid) что бы узнать есть ли совпадение и "забрать" букву а не цифру (s = s + 1), чтоб уже с ней выполнять какие то манипуляции

@Alex77755 · 19.01.2015, 16:53

каких букв в нем больше: гласных или согласных

А меня что-то затормозило: в комбинаторике есть понятия "с повторением" и "без повторения"
Так вот как здесь считать?
Допустим слово Маша. Сколько в нём гласных букв?
Одна или две?

@desant · 19.01.2015, 17:19

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

Одна или две?

Поровну )) 4 буквы из них 2 глас и 2 соглас.... по крайней мереи у меня так : Согласных больше, Гласных больше, Одинаково

@Alex77755 · 19.01.2015, 18:28

Это как считать. Без повторений гласная одна. С повторением две

Новые блоги и статьи Все статьи Все блоги /
Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого 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 Результат:

@Kogb 367 / 128 / 28 Регистрация: 17.07.2011 Сообщений: 253 Записей в блоге: 1
	05.12.2012, 13:38
	Прописные буквы не считает. Добавлено через 17 минут ...потому что. 0

@desant 2 / 2 / 3 Регистрация: 15.11.2014 Сообщений: 188
	19.01.2015, 16:17
	То есть если буква в stroka совпадает с буквой SOGL то мы выполняем это действие: s = s + 1 , а можно ли использовать эти функции (InStr, Mid) что бы узнать есть ли совпадение и "забрать" букву а не цифру (s = s + 1), чтоб уже с ней выполнять какие то манипуляции 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.01.2015, 18:28
	Это как считать. Без повторений гласная одна. С повторением две 0