Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Greym
0 / 0 / 0
Регистрация: 26.03.2012
Сообщений: 16
1

Определить гласную букву, которая чаще всего встречается в тексте

26.03.2012, 19:02. Просмотров 920. Ответов 7
Метки нет (Все метки)

Нужна помощь, в Vb я разбираюсь неплохо, но вот проги где используется текст вообще полный 0.
Само задание:
В тексте произвольной длины с точкой в конце определить гласную букву, которая чаще всего встречается . напечатать результат и текст.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 19:02
Ответы с готовыми решениями:

Подсчитать, сколько слов в тексте оканчивается на букву а
Подсчитать, сколько слов в тексте оканчивается на букву а

Найти в массиве букв букву которая встречается чаще всего
Как найти в массиве букв букву которая встречается чаще всего? вывести число...

Дано слово. Найти букву, которая чаще всего встречается в слове
Дано слово. Найти букву, которая чаще всего встречается в слове. Нужно...

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

Определить какой символ встречается в тексте чаще всего
//определить какой символ встречается в тексте чаще всего var...

7
Alex77755
10779 / 3344 / 561
Регистрация: 13.02.2009
Сообщений: 9,825
26.03.2012, 19:29 2
Самое распростанённое решениё такого вопроса - сравнивать размер массива при разбиении(Split) текста по гласным буквам.
0
Greym
0 / 0 / 0
Регистрация: 26.03.2012
Сообщений: 16
26.03.2012, 19:34  [ТС] 3
Дело в том что массивами пользоваться нельзя
0
Alex77755
10779 / 3344 / 561
Регистрация: 13.02.2009
Сообщений: 9,825
26.03.2012, 19:36 4
Ну тогда только считать в цикле Do

Добавлено через 1 минуту
Хотя не уверен. Возможно регулярные выражения рулят
0
Sylar47
25 / 25 / 4
Регистрация: 29.01.2012
Сообщений: 160
26.03.2012, 19:53 5
Если текст вводится по символам, то можно сравнивать введенный символ с каждой гласной и если равны, то увеличивать переменную(счетчик количества этой гласной в тексте. соотвественно для каждой гласной свой счетчик) на 1. Одновременно с этим просто считать количество символов в тексте (тоже переменная - счетчик). Потом после ввода текста сравнить эти значения и вывести нужную гласную...

наверно как-то так
1
SoftIce
es geht mir gut
10556 / 4072 / 1034
Регистрация: 27.07.2011
Сообщений: 9,979
Завершенные тесты: 1
26.03.2012, 19:55 6
Подойдёт ли?

Там массив только гласных, а текст обрабатывается как строка.
Упс.... Присмотрелся, там цикл по j вообще не нужен.
1
Вложения
Тип файла: rar Кол. Вхожд.rar (5.9 Кб, 13 просмотров)
Апострофф
Заблокирован
26.03.2012, 20:13 7
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Option Compare Text
Const a = "аяоёуюеэыи"
Sub main()
Dim Text
Text = "афпоьутёчэрьыааыоеяэпяаичобьачп."
Dim i As Long, c As Long, max As Long, b As String * 1
For i = 1 To Len(a)
  c = Len(Text) - Len(Replace(Text, Mid(a, i, 1), ""))
  If c > max Then
    b = Mid(a, i, 1)
    max = c
  End If
Next i
MsgBox "Буква """ & UCase$(b) & """ в строке """ & Text & """ " & max & " раз"
End Sub
2
Greym
0 / 0 / 0
Регистрация: 26.03.2012
Сообщений: 16
26.03.2012, 21:27  [ТС] 8
Спасибо всем за помощь, не думал что так быстро откликнуться.
0
26.03.2012, 21:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2012, 21:27

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

Как определить в заданном тексте, какая буква чаще всего встречается
Такая вот задача "Определить в заданном тексте, какая буква чаще всего...

В файле a1 набран текст. Вывести латинскую букву, которая встречается в тексте чаще остальных в 3 и 4 строках.
В файле a1 набран текст. Вывести латинскую букву, которая встречается в тексте...


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

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

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