 Строки |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Гость |
 17.04.2007 19:40
Сообщение
#1
|
|
Гость  |
Дана строка. Преобразовать её, удалив каждый символ * и повторив каждый символ, отличный от *.
|
 
|
|
  |
Ответов
| klem4 |
17.04.2007 19:51
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
идешь по строке, смотришь если s[i] == '*', удаляешь i-й мимвол с помощью delete иначе с помощью insert вставляешь в i-ю позицию символ s[i] и увеличиваешь i на 2.
Использовть надо цикл while, так как длина строки будет меняться ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
Сообщений в этой теме
Гость Строки 17.04.2007 19:40
klem4 В чем проблема ?
Строки
Смотри функции Insert и ... 17.04.2007 19:41
kess
В чем проблема ?
Строки
Смотри функции Insert и... 17.04.2007 19:45 Needhelp Program Vseee;
var
a:string;
i : Integer;
begin
i... 17.04.2007 22:08 volvo Тебе, кстати, тоже не мешало бы книги читать... На... 17.04.2007 22:17 Needhelp Я про умение описывать переменные=)))...А про свой... 17.04.2007 22:25 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 13.12.2025 9:01 |