В исходной строке а$
определить и вывести слова, в которых первая буква встречается всего один раз.(Бэйсик)
Ответы
Ответ дал:
0
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)
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)
Ответ дал:
0
Написано на VBA
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад