Опубликовано 5 лет назад по предмету Информатика от izyavaizer

В исходной строке а$
определить и вывести слова, в которых первая буква встречается всего один раз.(Бэйсик)

Ответ

Ответ дан Аккаунт удален

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)
1. Ответ
  
  Ответ дан Аккаунт удален
  
  Написано на VBA

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.