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

@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

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

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@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