0 / 0 / 0
Регистрация: 03.06.2010
Сообщений: 14
1

Замените в заданом слове все пробелы символом ";"

03.06.2010, 09:10. Показов 1383. Ответов 6
Метки нет (Все метки)

Замените в заданом слове все пробелы символом ";"
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2010, 09:10
Ответы с готовыми решениями:

Строковые величины: заменить в слове X все гласные буквы на "O", а согласные на "C"
составить программу ,заменяющую в слове X все гласные буквы на "O" ,а согласные на "C".

Поменять в слове все буквы "б" на заданную
Поменять в нем все буквы б на заданную

Замена букв "а" на "о" в слове
Помогите с задачкой: в любом слове заменить все буквы а на о.

Дан массив с символьными элементами. Заменить все элементы "К" на элемент "C" и подсчитать их количество
REM К na С INPUT "vvedite kol-vo strok massiva"; N INPUT "vvedite kol-vo stolbcov massiva" M DIM...

6
Платежеспособный зверь
8762 / 4193 / 1609
Регистрация: 28.10.2009
Сообщений: 11,326
03.06.2010, 09:18 2
вводим строку,
проходим по ней циклом for
PureBasic
1
if mid$(a$,i,1)=" "then mid$(a$,i,1)=";"
выводим строку
1
0 / 0 / 1
Регистрация: 23.10.2009
Сообщений: 102
04.06.2010, 13:11 3
PureBasic
1
2
3
4
5
DIM a AS STRING
CLS : INPUT "Vvedite slovo:"; a
FOR a = 1 to n
IF MID$(a$,i,1)=" "THEN MID$(a$,i,1)=";"
PRINT a
чото типо так) но скорей всего неправильно
0
Платежеспособный зверь
8762 / 4193 / 1609
Регистрация: 28.10.2009
Сообщений: 11,326
04.06.2010, 15:07 4
Почти верно. Если пишете dim a as string, то знак $ нигде не пишем, если пишем, то не нужен dim

PureBasic
1
2
3
4
5
6
CLS
INPUT "Vvedite slovo:"; a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN MID$(a$, i, 1) = ";"
NEXT
PRINT a$
1
0 / 0 / 1
Регистрация: 23.10.2009
Сообщений: 102
04.06.2010, 17:26 5
аа понятно)
0
2 / 2 / 0
Регистрация: 04.06.2010
Сообщений: 57
04.06.2010, 22:11 6
Подскажите пожалуйста, каким способом подсчитать количество таких замен.
0
Платежеспособный зверь
8762 / 4193 / 1609
Регистрация: 28.10.2009
Сообщений: 11,326
05.06.2010, 00:12 7
PureBasic
1
2
3
4
5
6
7
CLS
INPUT "Vvedite slovo:"; a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN MID$(a$, i, 1) = ";":t=t+1
NEXT
PRINT a$
print t
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2010, 00:12
Помогаю со студенческими работами здесь

Занести произвольные данные в одномерный массив и заменить все слова начинающиеся на "а" на символ "0"
Занести произвольные данные в одномерный массив и заменить все слова начинающиеся на "а" на символ...

Какие св-ва одинаковые для управляющих элементов "Кнопка", "Переключатель", "Флажок", "Текстовое поле"
Какие св-ва одинаковые для управляющих элементов "Кнопка", "Переключатель", "Флажок", "Текстовое...

Дано предложение. все буквы "е" в нем заменить на букву "и"
Дано предложение. все буквы "е" в нем заменить на букву "и" нужна программа на qbasic Алия_К,...

Все буквы "о", находящиеся на четных местах заменить на букву "я"
Задание: Ввести текст, все буквы "о", находящиеся на четных местах заменить на букву "я", если нет...


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

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

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