Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 12.02.2012
Сообщений: 6
1

Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных

12.02.2012, 21:49. Показов 1899. Ответов 4
Метки нет (Все метки)

Пожалуйста помогите решить задание,не могут понять как это делать в VB, просмотрела все похожие задачи на форуме,но в итоге ничего не получается
Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2012, 21:49
Ответы с готовыми решениями:

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово
Уже долго сижу над данной задачей. Плохо понимаю тему работы с файлами и текстом. Объясните...

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

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

Найти самое длинное слово в предложении
Найти самое длинное слово в предложении. Например: Горные вершины спят во тьме ночной. Вершины....

__________________
4
Эксперт Hardware
2679 / 1857 / 317
Регистрация: 25.10.2011
Сообщений: 5,428
12.02.2012, 22:09 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const not_abc = "àå¸èîóûýþÿ"
 
Private Sub Command1_Click()
st = "Äàí òåêñò. Íàéòè ñàìîå äëèííîå ñëîâî è ïîäñ÷èòàòü â íåì êîëè÷åñòâî ñîãëàñíûõ."
st = Replace(st, ".", "")
Dim mas
mas = Split(st, " ")
Max = 0
For i = 0 To UBound(mas)
    If Len(mas(i)) > Max Then Max = Len(mas(i)): word = mas(i)
Next
cnt = 0
For i = 1 To Len(word)
    If 0 = InStr(1, not_abc, Mid(word, i, 1)) Then cnt = cnt + 1
Next
Print word
Print cnt & " ñîãëàñíûõ áóêâ"
End Sub
несколько одинаково больших слов не обрабатывает
1
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,673
12.02.2012, 22:11 3
1.Split разбиваешь по пробелам на слова.
2.Len Находишь самое длинное слово.
3. считаешь в нём согласные(заранее заданные в массиве)
0
1900 / 777 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
16.02.2012, 17:02 4
вот реализация при помощи регулярных выражений
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Sub aa()
    S = "Оказывается, при проведении эзофагогастродуэденоскопии пациента... надувают!"
    Set r = CreateObject("vbscript.RegExp"): r.IgnoreCase = True: r.Global = True
    r.pattern = "[а-яё]+": Set ms = r.Execute(S)
    S = Empty
    For Each m In ms
        If Len(m) > Len(S) Then S = m.Value
    Next
    r.pattern = "[^аеёиоуыэюя]": Set ms = r.Execute(S)
    MsgBox ("в самом длинном слове - " & S & vbCrLf & ms.Count & " согласных")
End Sub
1
0 / 0 / 0
Регистрация: 12.02.2012
Сообщений: 6
16.02.2012, 21:38  [ТС] 5
спасибо огромное!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2012, 21:38

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

Найти самое длинное слово в TextBox-е
Нужно в вводимом текстбоксе найти самое длинное слово, что не так? Dim i As Integer, a() As...

Нужно найти самое короткое и длинное слово в тексте
Нужно найти самое короткое и длинное слово в тексте. КТО НИБУДЬ ЗНАЕТЬ КАК МОЖНО СОЗДАТЬ ПРОГРАММУ...

Вывести самое длинное и самое короткое слово из введенного предложения
нужно написать программу!!! пользователь вводит предложение, нужно вывести самое длинное и самое...

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


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

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

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