Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
ZMnation
0 / 0 / 0
Регистрация: 27.04.2012
Сообщений: 4
#1

Создать программу, которая удаляет все пробелы в тексте

02.05.2012, 17:44. Просмотров 505. Ответов 3
Метки нет (Все метки)

Создать программу, которая удаляет все пробелы в тексте.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2012, 17:44
Ответы с готовыми решениями:

создать программу в Basic которая вычисляет значение функции
Помогите пожалуйста создать программу В BASIC которая вычисляет значение...

Пожалуйста, составьте программу, которая заменяет все слоги ма, если они стоят в начале слова, на па
пожалуйста, составьте программу, которая заменяет все слоги ма, если они стоят...

Очень нужно написать программу, которая удаляет лишние пробелы в тексте: 2 и более пробелов заменяются одним
Помогите, пожалуйста, написать программу (есть часа 3-4, после этого можно не...

Написать функцию, которая удаляет все сдвоенные пробелы пробелы из строки
Написать функцию, которая удаляет все сдвоенные пробелы пробелы из строки,...

Написать программу , которая 1) Выводит текст на экран дисплея 2) Удаляет все пробелы 3) Записывает результат в файл Out
Помогите пожалуйста))) тут задача ,,,, создать файл Input.txt с помощью...

3
Quiet Snow
4404 / 1288 / 375
Регистрация: 25.04.2010
Сообщений: 3,294
02.05.2012, 19:02 #2
QBasic/QuickBASIC
1
2
3
4
5
6
7
CLS
INPUT "Text :", Tx$
  FOR i = 1 TO LEN(Tx$)
     S$ = MID$(Tx$, i, 1)
     IF S$ <> " " THEN Tx2$ = Tx2$ + S$
  NEXT
WRITE Tx2$   ' WRITE для отладки
1
ZMnation
0 / 0 / 0
Регистрация: 27.04.2012
Сообщений: 4
02.05.2012, 19:26  [ТС] #3
Спасибо, разобрался)))
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.06.2016, 15:10 #4
Еще один вариант. Символы копируются парами.
И после обработки LTRIM$ и RTRIM$, пробелов точно нет.
(проверено пробелов нет)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
DIM s AS STRING
DIM t AS STRING
DIM o AS STRING
s = "7      77        7 "
 
FOR i = 1 TO LEN(s) STEP 2
   o = MID$(s, i, 2)
   t = t + LTRIM$(RTRIM$(o))
NEXT i
 
PRINT t
END
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 15:10

Описать функцию, которая удаляет из заданной строковой величины все лишние пробелы. Пробелы считаются лишними,
Описать функцию, которая удаляет из заданной строковой величины все лишние...

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

Написать программу, которая удаляет в строке все буквы b в тексте, написанном латинскими буквами
Помогите пожалуйста написать программу. Нужно написать программу, которая...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru