Вопрос по информатике:
В исходной строке а$
определить и вывести слова, в которых первая буква встречается всего один раз.(Бэйсик)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.04.2018 08:19
- Информатика
- remove_red_eye 10701
- thumb_up 24
Ответы и объяснения 1
Dim s, s1, s0, t As String 'строка, первая буква слова, слово, список нужных слов
s = InputBox("Введите строку:")
Do
Do
n = n + 1
If s1 = "" Then s1 = Mid(s, n, 1) 'запоминаем первую букву слова
If Mid(s, n, 1) = s1 Then m = m + 1 'считаем, сколько раз она встретилась
s0 = s0 & Mid(s, n, 1) 'запоминаем слово
If n > Len(s) Then Exit Do
Loop While Mid(s, n, 1) " "
If m = 1 Then t = t & s0 'переносим слово в список
m = 0 'сбрасываем промежуточные переменные в исходное состояние
s1 = ""
s0 = ""
Loop Until n > Len(s)
If t = "" Then t = "Искомых слов нет"
MsgBox (t)
- 15.04.2018 08:08
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.