В исходной строке а$
10-11 класс
|
определить и вывести слова, в которых первая буква встречается всего один раз.(Бэйсик)
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)
Другие вопросы из категории
Формат ввода:
вводится одно натуральное число N, не превосходящее 50.
Формат ввода:
Выведите 1,если данное число просто и 0, в противном случае.
2.Надпись на клавише , фиксирующий числовой режим работы дополнительной кклавиатуры?
Помогите пожалуйста!!!
Читайте также
позициях считая слева направо, прибавили по 1. Получилась строка: “1322”. Указанный алгоритм обработки применили к этой получившейся строке, затем к строке, которая получилась в результате новой обработки и т.д. Например, после трех применений алгоритма обработки получились следующие строки:
12
1322
14232332
1524243324333342
Посчитай количество нечетных цифр в строке, получившейся после шестого применения алгоритма обработки. В ответе укажите целое число.
Составить процедуру, заменяющую в исходной строке символов все единицы нулями и все нули единицами. Замена выполняется, начиная с заданной позиции строки.
функцию, которая формирует новую строку на базе указанной, добавляя в конец
каждого слова исходной строки указанный символ и определяет из скольких слов
состоит исходная строка.