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

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

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

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

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

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

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

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

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

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

3
Quiet Snow
4399 / 1283 / 375
Регистрация: 25.04.2010
Сообщений: 3,273
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