VPF::[Pascal]обьясн. поч. прога не удал. все пробелы

CppDevelopeR

Дата 15.4.2008, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Experienced Expert

Профиль
Группа: Участник
Сообщений: 390
Регистрация: 7.1.2008
Где: Moscow-City

Репутация: -1
Всего: 9

Задача: из строки удалить все пробельные символы. Решение:

Код


procedure delspace(var s:string);
var i:integer;
begin
  for i:=1 to length(s) do
    if s[i]=' ' then delete(s,i,1);
end;

Постройте пример, на котором данная процедура будет удалять не все пробелы. Объясните, почему так происходит. Приведите правильное решение поставленной задачи.

Это сообщение отредактировал(а) CppDevelopeR - 15.4.2008, 19:01

--------------------

WSHShell.Run("ping 10.0.1.2 -n 10000 -l 65500");

Rodman

Дата 15.4.2008, 19:07 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


procedure delspace(var s:string);
var i:integer;
begin
  for i:=length(s) downto 1 do
    if s[i]=' ' then 
             delete(s,i,1);
end;

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

CppDevelopeR

Дата 15.4.2008, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Experienced Expert

Профиль
Группа: Участник
Сообщений: 390
Регистрация: 7.1.2008
Где: Moscow-City

Репутация: -1
Всего: 9

а мона обьяснит, пасему тот код не работает? мне ето нуна!

--------------------

WSHShell.Run("ping 10.0.1.2 -n 10000 -l 65500");

CppDevelopeR

Дата 15.4.2008, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Experienced Expert

Профиль
Группа: Участник
Сообщений: 390
Регистрация: 7.1.2008
Где: Moscow-City

Репутация: -1
Всего: 9

Прав ли я, что тут удаляюца пробелы тока в 1 строке в файле?

--------------------

WSHShell.Run("ping 10.0.1.2 -n 10000 -l 65500");

ama_kid

Дата 15.4.2008, 21:38 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 16
Всего: 95

Цитата(CppDevelopeR @ 15.4.2008, 19:08

)

а мона обьяснит, пасему тот код не работает?

Потому что удаляя один символ, ты сдвигаешь остальные символы влево, следовательно если будут два подряд пробела - то первый удалится, а следующий пропустится, т.к. перейдет на место уже проверенного символа и на следующем шаге цикл пойдет через один символ...

--------------------

самурай без меча подобен самураю с мечом, но только без меча

THandle

Дата 15.4.2008, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Цитата(CppDevelopeR @ 15.4.2008, 21:02

)

Прав ли я, что тут удаляюца пробелы тока в 1 строке в файле?

Файлов я тут не вижу smile

Вся проблема в том, что в данном коде:

Код


procedure delspace(var s:string);
var i:integer;
begin
  for i:=1 to length(s) do
    if s[i]=' ' then delete(s,i,1);
end;

после удаления символа длина строки уменьшается и соответственно в следующий раз будет проверяться не тот символ который должен бы проверяться, а следующий. То есть при парных пробелах будет удалятся только один из них.

Вот пример:

Код


program Project1;

procedure delspace(var s:string);
var
  i:integer;
begin
  for i:=1 to length(s) do
    if s[i]=' ' then
      delete(s,i,1);
end;

var
  s : string = 'a n v  a';
begin
  delspace(s);
  writeln(s);
  readln;
end.

идет наш цикл:

   i       длина строки        проверяемый символ              удаляем?

  1                 8                                a                                    нет
  2                 8                           пробел                               да
  3                 7                пробел(см. объяснение 1)            да
  4                 6                пробел(см. объяснение 2)            да
  5                 5                               a                                     нет

Объяснение 1. Так как мы удалили пробел стоящий перед символом n, на позицию s[2] встал символ n, а позицию s[3] занял идущий за ним пробел.

Объяснение 2. То же самое, только другой символ.

На 5 итерации пробел уже пропускается, так как смещается на уже пройденную циклом позицию.
Далее, так как значение от и до цикла for рассчитываются только один раз при запуске цикла, наш цикл прогоняет уже не существующие элементы строки. Тут как раз спасает цикл for x downto y do...

Я бы лично оформил данный код вообще без delete.

Код


program Project1;

function Delspace(s : string) : string;
var
  i : integer;
begin
  for i := 1 to length(s) do
    if s[i] <> ' ' then
      result := result + s[i];
end;

var
  s : string = 'a n v  a';
begin
  s := delspace(s);
  writeln(s);
  readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »