Строки, замена каждой буквы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Строки, замена каждой буквы |
forMator |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: 0 |
У меня снова возник вопрос!
Дан текст. Слова разделены пробелом. В третьем слове каждую букву заменить на +. Как сделать чтобы именно в третьем слове заменялись буквы? И как заменить каждую буквы? Я могу заменить только определённую букву. Подскажите пожалуйста! |
forMator |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: 0 |
Вот так я нахожу третье слово. А как заменить все буквы на один символ?
Код Program stroka_1; Var s:string; i,p:integer; begin writeln('vvedi tekct:'); readln(s); s:=s+' '; p:=0;i:=1; while (i<=length(s)) and (p<2) do begin if s[i]=' ' then p:=p+1; i:=i+1; end; if p=2 then begin while (i<=length(s)) and (s[i]<>' ') do begin if ?????? else writeln('в тексте меньше 3-х слов'); readln; end. p-количесиво пробелов в тексте. Подскажите пожалуйста! |
Текстовая версия | 5.05.2024 20:28 |