Написать программу, которая подсчитывает количество слов в предложении

@Vd_11 · Регистрация: 11.04.2017

Author24 — интернет-сервис помощи студентам

между словами может стоять несколько пробелов: двойных,тройных и т.д.
необходимо написание кода без использования функции Trim

SoftIce · 12.05.2017, 09:37

.........

Сообщение от Апострофф

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub программ()
Dim предложение As String
предложение = " we s  sg sfg  ghjmcv   "
Dim i As Long, b As Boolean, cnt As Long
b = True
For i = 1 To Len(предложение)
  If Mid$(предложение, i, 1) = " " Then
    b = True
  ElseIf b Then
    b = False
    cnt = cnt + 1
  End If
Next
MsgBox cnt, , "В предложении " & предложение & " слов:"
Stop
End Sub

@Vlad999 · 12.05.2017, 10:43

еще вариант

Visual Basic
1
2
3
For Each S In Split(предложение)
  If S <> "" Then cnt = cnt + 1
Next

Не по теме:

SoftIce, для чего команда Stop? для общего развития. :)

SoftIce · 12.05.2017, 10:54

Сообщение от Vlad999

для чего команда Stop?

Уже не нужна, можно удалить.

@Svsh2015 · 12.05.2017, 13:50

Vd_11, вариант функции в D1

Code
1
2
3
4
5
6
 Function yyy%(t$)
   With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
    .Pattern = "(?:[^а-яё\w]|^)[а-яё\w]+(?=[^а-яё\w]|$)"
      yyy = .Execute(t).Count
  End With
End Function

@Vd_11 · 14.05.2017, 10:13 **[ТС]**

предложение нужно вводить самому

@Alex77755 · 14.05.2017, 15:53

предложение нужно вводить самому

Не по теме:

хмм.... а что мешает? вводи!

@Vlad999 · 14.05.2017, 20:49

Visual Basic
1
предложение =InputBox("Введите текст","ВВОД ДАННЫХ")

Новые блоги и статьи Все статьи Все блоги /
Шаблоны и протоколы для создания устойчивых микросервисов ArchitectMsa 19.04.2025 Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .	Изменяемые и неизменяемые типы в Python py-thonny 19.04.2025 Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .	Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .	Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .

@Vd_11 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 20

	Написать программу, которая подсчитывает количество слов в предложении 11.05.2017, 18:41. Показов 1813. Ответов 7 Метки нет (Все метки) между словами может стоять несколько пробелов: двойных,тройных и т.д. необходимо написание кода без использования функции Trim 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.05.2017, 10:54
	Сообщение от Vlad999 для чего команда Stop? Уже не нужна, можно удалить. 0

@Vd_11 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 20
	14.05.2017, 10:13 [ТС]
	предложение нужно вводить самому 0

@Alex77755 11523 / 3810 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	14.05.2017, 15:53
	предложение нужно вводить самому Не по теме: хмм.... а что мешает? вводи! 0

Опции темы