Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.11.2012, 23:21   #1
karamzin
Новичок
Джуниор
 
Регистрация: 23.11.2012
Сообщений: 2
По умолчанию Ввести строку и после каждого символа "q" ставить "**"

Ввести строку и после каждого символа "q" ставить "**"
karamzin вне форума Ответить с цитированием
Старый 24.11.2012, 03:46   #2
lamer_1
 
Регистрация: 17.11.2012
Сообщений: 4
По умолчанию

Код:
var s:string;
    i:integer;
begin
write('Введите строку: ');
readln(s); i:=0;
while i<=length(s) do
begin
  inc(i);
  if s[i]='q' then insert('**',s,i+1);
end;
writeln('Результат: ',s);
end.
lamer_1 вне форума Ответить с цитированием
Старый 25.11.2012, 02:57   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

как уже показал TinMan в аналогичной теме TC, подобные задачи удобнее (проще и надёжнее) решать в цикле от конца строки к началу:

Код:
 for i:=Length(s) downto 1 do
     if s[i]='q' then Insert('**', s, i+1);

Последний раз редактировалось Serge_Bliznykov; 25.11.2012 в 03:00.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность") funnyy Помощь студентам 3 17.10.2012 17:40
как задать "мерность" масива и для каждого "измерения" максимальный индекс vova_ Общие вопросы Delphi 5 31.07.2012 22:14
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. воваава Помощь студентам 3 01.12.2011 12:50
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS