замена символа в строке на другой символ, замена символа в строке на другой символ Опции

[marwell]

плиз, помогите решить, а то чет не получается В строке символов надо везде, где встречается символ "пробел", заменить его на два "пробела"

[volvo]

Да? Ну, попробуй:

s := 'вот  тебе  задачка    123';

Приведи решение с циклом For, я посмотрю, как, используя информацию об ИЗНАЧАЛЬНОЙ длине строки ты обработаешь последние пробелы... Никаких предварительных пробегов по строке, ибо While-вариант обойдется без этого...

Еще раз: НЕ записать в другую строку, а добавить в эту же, по условию...

Все равно нам надо просмотреть именно ТО количество символов, которое было в первоначальной строке, а добавленные - не просмаривать.

Ты задание читал внимательно? Нам надо добавлять пробелы не в конец сроки, а в середину...

[andriano]

Еще раз: НЕ записать в другую строку, а добавить в эту же, по условию...

Ты задание читал внимательно? Нам надо добавлять пробелы не в конец сроки, а в середину...

Два вари анта на выбор:

  j := 1;
  for i := 1 to length(s) do begin
    if s[j] = ' ' then begin
      insert(' ',s,j);
      inc(j);
    end;
    inc(j);
  end;

  for i := length(s) downto 1 do
    if s[i] = ' ' then
      insert(' ',s,j);

Правка: исправлена опечатка.

Сообщение отредактировано: andriano - 19.12.2009 0:43

[Lapp]

Два вари анта на выбор:

  j := 1;
  for i := 1 to length(s) do begin
    if s[i] = ' ' then begin
      insert(' ',s,j);
      inc(j);
    end;
    inc(j);
  end;

  for i := length(s) downto 1 do
    if s[i] = ' ' then
      insert(' ',s,j);

Боюсь, первый вариант пролетает...
вот т е бе зад а ч к а 1 23
Впрочем, как и второй..

[andriano]

Боюсь, первый вариант пролетает...
вот т е бе зад а ч к а 1 23
Впрочем, как и второй..

Да, в первом Варианте опечатка. А насчет второго - не понимаю.
Специально поставил на комп компилятор паскаля.
Полностью программа:

var
  s : string;
  i,j : longint;
begin
  s := 'вот т е бе зад а ч к а 1 23';
  writeln('<',s,'>');
  j := 1;
  for i := 1 to length(s) do begin
    if s[j] = ' ' then begin
      insert(' ',s,j);
      inc(j);
    end;
    inc(j);
  end;
  writeln('<',s,'>');
  s := 'вот т е бе зад а ч к а 1 23';
  writeln('<',s,'>');

  for i := length(s) downto 1 do
    if s[i] = ' ' then
      insert(' ',s,i);
  writeln('<',s,'>');
end.

Результат работы:

Код

<вот т е бе зад а ч к а 1 23>
<вот  т  е  бе  зад  а  ч  к  а  1  23>
<вот т е бе зад а ч к а 1 23>
<вот  т  е  бе  зад  а  ч  к  а  1  23>

Сообщение отредактировано: andriano - 19.12.2009 0:41