 Строки |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Гость |
Сообщение
#1
|
|
Гость  |
Дана строка. Преобразовать её, удалив каждый символ * и повторив каждый символ, отличный от *.
|
 
|
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
| kess |
Сообщение
#3
|
 Новичок Группа: Пользователи Сообщений: 43 Пол: Женский Репутация: 0 |
Цитата(klem4 @ 17.04.2007 20:41)  и как это сделать? |
|
|
|
| klem4 |
Сообщение
#4
|
|
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";'
|
|
|
|
| Needhelp |
Сообщение
#5
|
 Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Program Vseee;
var
a:string;
i : Integer;
begin
i:=1;
Write('vvedite stroky ->');
Read(a);
while i<=length(a) do
begin
if a[i]='*' then
begin
delete(a, i, 1);
end
else
begin
insert(a[i],a,i);
i:=i+2;
end;
end;
Writeln(a);
Readln;
end.
Книги читай Фаронов форева! |
|
|
|
| volvo |
Сообщение
#6
|
|
Гость |
Цитата Книги читай Тебе, кстати, тоже не мешало бы книги читать... Наворотил не поймешь что...var
s: string;
i: integer;
begin
write('vvedite stroky ->'); readln(s);
for i := 1 to length(s) do begin
if s[1] <> '*' then s := s + s[1] + s[1];
delete(s, 1, 1);
end;
writeln(s);
end.
|
|
|
|
| Needhelp |
Сообщение
#7
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Я про умение описывать переменные=)))...А про свой код я молчу))
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 22.04.2025 11:41 |
Связь с администрацией: bu_gen в домене octagram.name