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

@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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@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