Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Sasha_Smirnov
5464 / 1304 / 142
Регистрация: 08.02.2009
Сообщений: 4,012
Записей в блоге: 29
#1

Подсчитать количество слов, слогов и букв в предложении

24.04.2013, 04:26. Просмотров 955. Ответов 3
Метки нет (Все метки)

Это предложение содержит двенадцать слов, двадцать шесть слогов и семьдесят три буквы.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2013, 04:26
Ответы с готовыми решениями:

Количество слогов в предложении
Определить количество слогов в предложении.

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

Найти количество слов в предложении
Доброго времени суток всем!) Возникла такая проблема, нужно найти количество...

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

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

3
Dmitrii
2601 / 534 / 106
Регистрация: 21.03.2012
Сообщений: 1,043
24.04.2013, 09:51 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Если речь идёт о сборе подобной статистики, то программист, вероятно, воспользуется регулярными выражениями.
Как-то так, например:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim strTemp, arrTemp, intTemp
strTemp = "Это предложение содержит двенадцать слов,  двадцать шесть слогов и семьдесят три буквы."
arrTemp = Split(Trim(strTemp), " ")
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "[А-ЯЁ]"
For i = 0 To UBound(arrTemp)
    If objRegExp.Test(arrTemp(i)) Then intTemp = intTemp + 1
Next
MsgBox "Кол-во слов: " & intTemp
Set objMatches = objRegExp.Execute(strTemp)
MsgBox "Кол-во букв: " & objMatches.Count
objRegExp.Pattern = "[АЕЁИОУЫЭЮЯ]"
Set objMatches = objRegExp.Execute(strTemp)
MsgBox "Кол-во гласных букв (следовательно, и слогов): " & objMatches.Count
Set objMatches = Nothing
Set objRegExp = Nothing
1
m-ch
5248 / 795 / 262
Регистрация: 25.02.2011
Сообщений: 1,097
Записей в блоге: 1
06.12.2014, 12:16 #3
Регулярки для меня темный лес, поэтому я бы сделал так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub main()
    Dim txt$, m$, m0$, i&, k1&, k2&, k3&
    txt = "Это предложение содержит двенадцать слов,  двадцать шесть слогов и семьдесят три буквы."
    For i = 1 To Len(txt) + 1
        m0 = m
        m = Mid$(txt, i, 1)
        If m0 Like "[А-Яа-яЁё]" And Not m Like "[А-Яа-яЁё]" Then k1 = k1 + 1 'количество слов
        If UCase$(m) Like "[АЕЁИОУЫЭЮЯ]" Then k2 = k2 + 1 'количество слогов
        If m Like "[А-Яа-яЁё]" Then k3 = k3 + 1 'количество букв
    Next i
    MsgBox "Кол-во слов: " & k1 & vbLf & "Кол-во слогов: " & k2 & vbLf & "Кол-во букв: " & k3
End Sub
0
Sasha_Smirnov
5464 / 1304 / 142
Регистрация: 08.02.2009
Сообщений: 4,012
Записей в блоге: 29
08.12.2014, 17:34  [ТС] #4
При создании (и до 7 декабря 2014) тема имела менее директивное название: «Как поступит ярый программист?»
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2014, 17:34

Определить Max количество последовательно расположенных согласных букв во введённом предложении
как это можно сделать? 3 недели мучаюсь:( помогите пожалуйста!

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

Подсчитать количество слов
Составить процедуры для решения задач.. Исходные данные вводить с клавиатуры и...


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

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

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