4 / 3 / 2
Регистрация: 03.11.2013
Сообщений: 32
1

Дана строка, состоящей из слов, слова отделены друг от друга одним пробелом. Определить длину каждого слова

13.01.2014, 00:54. Показов 1938. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана строка, состоящей из слов, слова отделены друг от друга одним пробелом. Определить длину каждого слова.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 00:54
Ответы с готовыми решениями:

Определить самое длинное слово в тексте. Считать, что слова в тексте отделены друг от друга одним пробелом
Определить самое длинное слово в тексте. Считать, что слова в тексте отделены друг от друга одним...

Дана строка, содержащая слова из латинских букв, соседние слова отделены друг от друга запятой, за последним словом – то
Дана строка, содержащая слова из латинских букв, соседние слова отделены друг от друга запятой, за...

Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве [‘-’, ‘*’, ‘/
Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных...

Задана строка, состоящая из символов. Символы объединяются в слова. Слова друг от друга отделяются одним или
Задана строка, состоящая из символов. Символы объединяются в слова. Слова друг от друга отделяются...

7
11504 / 3791 / 680
Регистрация: 13.02.2009
Сообщений: 11,194
13.01.2014, 04:21 2
Len тебе поможет определить длину слова
1
Заблокирован
13.01.2014, 07:17 3
А Split разделить строку на слова.
А For ... Next пройтись по всем словам.
1
Заблокирован
13.01.2014, 09:45 4
или вот...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
option explicit
private sub form_load()
    dim stroka$, j$(),f&
    stroka="список всех слов"
    j=split(stroka)
    for f=0 to ubound(j)
        j(f)=j(f) & " = " & len(j(f))
    next
    stroka=join(j , vbCrLf)
    msgbox stroka
    end
end sub
1
4 / 3 / 2
Регистрация: 03.11.2013
Сообщений: 32
13.01.2014, 13:07  [ТС] 5
Всем спасибо за помощь.
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
13.01.2014, 13:59 6
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
a$ = "ssss ddddddddd ffffffff sd"
l Trim(a) & " ", 1
End Sub
 
Sub l(s$, k%)
If k < Len(s) Then
  d = InStr(k, s, " ")
      Print Mid(s, k, d - k); vbTab; d - k
   l s, d + 1
End If
End Sub
2
Заблокирован
13.01.2014, 14:07 7
Это вызов ? )
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
13.01.2014, 14:08 8
это вариант
1
13.01.2014, 14:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 14:08
Помогаю со студенческими работами здесь

Дана строка, в которой слова разделены одним пробелом. Найдите и выведите все слова указанной длины
В итоге вышло, что если первое слово правильной длинны - выводит все слова в строке. Если нет -...

Определить количество повторений в тексте заданного слова. Считать, что слова в тексте отделены друг от друга
1)В строке удалить введённое буквосочетание. 2)Определить количество повторений в тексте заданного...

Дана строка символов. Изменить ее таким образом, чтобы все символы отделялись друг от друга одним пробелом
Дана строка символов. Изменить ее таким образом, чтобы все символы отделялись друг от друга одним...

Дана строка символов до точки. Изменить ее таким образом, чтобы все символы отделялись друг от друга одним пробелом
Дана строка символов до точки. Изменить ее таким образом, чтобы все символы отделялись друг от...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru