Удаление лишних пробелов

@jawist40rus · Регистрация: 29.11.2017

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

Товарищи! Возникла сложность с удалением лишних пробелов из предложения из 2х слов "новый год" в котором 3 пробела. Примеры программ в интернете не работают. Подскажите код программы для решения данной проблемы. Буду благодарен!

@Ли2 · 21.12.2017, 11:30

Предлагаю программу, которая удаляет любое число кратных
пробелов оставляя только один. (программа проверена)
Константа p2 состоит из двух пробелов.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
 
CONST p2 = "  "
DIM TEXT AS STRING
DIM s1 AS STRING
DIM s2 AS STRING
 
INPUT "TEXT = "; TEXT
 
DO WHILE INSTR(TEXT, p2)
   N = INSTR(TEXT, p2)
   s1 = LEFT$(TEXT, N)
   s2 = MID$(TEXT, N + 2)
   TEXT = s1 + s2
LOOP
PRINT TEXT

@jawist40rus · 21.12.2017, 12:45 **[ТС]**

Добавлено через 6 минут
Ли2,
Только что набрал код. При запуске программы запросил ввести предложение, ввел предложение с 3мя пробелами и в ответе вышло тоже самое предложение с 3мя пробелами. В кавычки в коде программы не вводил само предложение. Может что те не правильно сделал?

@Ли2 · 21.12.2017, 13:23

jawist40rus,
проверьте свой код ещё раз. У меня всё работает.
И русский текст и английский и числа....
можно предположить, что у вас ошибка в цикле.
Он должен работать! Именно он удаляет пробелы!

@Quiet Snow · 22.12.2017, 23:54

Гех ты всё равно две строки завёл. Почему одним циклом не сделать посимвольно?
Операция поиска это полный перебор до нахождения, а там целых две штуки...

Может что те не правильно сделал?

Копировать код нужно через CTRL-C CTRL+V напрямую из браузера в текстовый *.BAS файл.
Иначе у вас постоянно будут косяки.

@jawist40rus · 24.12.2017, 14:05 **[ТС]**

Ли2, спасибо за код программы но он у меня так и не заработал. Заработал другой, выглядит он так

QBasic/QuickBASIC
1
2
3
4
5
6
7
CLS
a$=" "
x=INSTR(1,a$," ")
PRINT a$
PRINT x
MID $(a$,x,1)=a$
PRINT a$

@Ли2 · 24.12.2017, 14:15

jawist40rus
В вашем примере конечно можно обойтись без цикла.
Но вообще пробелов может быть много и заранее не
известно где один пробел, где два и более...
Так что без цикла не обойтись...

@jawist40rus · 24.12.2017, 15:05 **[ТС]**

Ли2, а как блок схема в моем случае будет построена? А то как я ее представляю есть сомнения в ее правильности.

@Ли2 · 24.12.2017, 16:30

jawist40rus
Общий принцип такой:
1. Сначала ввод данных
2. Далее запись алгоритма работы программы
3. Вывод данных
...
Тут надо знать, к примеру, такие вещи
1. Ввод данных помещается в параллелограмме
2. Условие помещается в ромбе
3. операторы присвоения - прямоугольник
ну и ещё фигуры есть
Они соединяются прямыми линиями со стрелками
...
А ваша блок-схема - параллелограмм, ниже прямоугольник
ещё ниже снова параллелограмм (это вывод данных).
...
пожалуй еще есть прямоугольник со скруглёнными углами,
в нём написано Стоп.
(честно говоря я блок-схемами не занимаюсь)

@jawist40rus · 24.12.2017, 16:56 **[ТС]**

Ли2, спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@jawist40rus 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 8

	Удаление лишних пробелов 21.12.2017, 10:54. Показов 1904. Ответов 9 Метки нет (Все метки) Товарищи! Возникла сложность с удалением лишних пробелов из предложения из 2х слов "новый год" в котором 3 пробела. Примеры программ в интернете не работают. Подскажите код программы для решения данной проблемы. Буду благодарен! 0

@jawist40rus 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 8
	21.12.2017, 12:45 [ТС]
	Добавлено через 6 минут Ли2, Только что набрал код. При запуске программы запросил ввести предложение, ввел предложение с 3мя пробелами и в ответе вышло тоже самое предложение с 3мя пробелами. В кавычки в коде программы не вводил само предложение. Может что те не правильно сделал? 0

@Ли2 11 / 11 / 24 Регистрация: 12.12.2017 Сообщений: 131 Записей в блоге: 2
	21.12.2017, 13:23
	jawist40rus, проверьте свой код ещё раз. У меня всё работает. И русский текст и английский и числа.... можно предположить, что у вас ошибка в цикле. Он должен работать! Именно он удаляет пробелы! 0

@Ли2 11 / 11 / 24 Регистрация: 12.12.2017 Сообщений: 131 Записей в блоге: 2
	24.12.2017, 14:15
	jawist40rus В вашем примере конечно можно обойтись без цикла. Но вообще пробелов может быть много и заранее не известно где один пробел, где два и более... Так что без цикла не обойтись... 0

@jawist40rus 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 8
	24.12.2017, 15:05 [ТС]
	Ли2, а как блок схема в моем случае будет построена? А то как я ее представляю есть сомнения в ее правильности. 0

@Ли2 11 / 11 / 24 Регистрация: 12.12.2017 Сообщений: 131 Записей в блоге: 2
	24.12.2017, 16:30
	jawist40rus Общий принцип такой: 1. Сначала ввод данных 2. Далее запись алгоритма работы программы 3. Вывод данных ... Тут надо знать, к примеру, такие вещи 1. Ввод данных помещается в параллелограмме 2. Условие помещается в ромбе 3. операторы присвоения - прямоугольник ну и ещё фигуры есть Они соединяются прямыми линиями со стрелками ... А ваша блок-схема - параллелограмм, ниже прямоугольник ещё ниже снова параллелограмм (это вывод данных). ... пожалуй еще есть прямоугольник со скруглёнными углами, в нём написано Стоп. (честно говоря я блок-схемами не занимаюсь) 0

@jawist40rus 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 8
	24.12.2017, 16:56 [ТС]
	Ли2, спасибо за помощь! 0