[Pascal] Удаление символов из строки

[Вадим Мошев]

Кстати, могу просто посоветовать завести вторую строку и поместить в неё все символы первой строки, которые не являются запятыми...

опоздал... пост номер 2...

Единственный недостаток - он "стрёмный" в плане сдачи, если речь идёт о "лабе"...
лёгкий через чур...

[just4smth]

Сообщение от Вадим Мошев

Единственный недостаток - он "стрёмный" в плане сдачи, если речь идёт о "лабе"...
лёгкий через чур...

Эм... тогда можно всё это на делфи красиво оформить
Главное выполнить задачу, а каким способом - преподов это не сильно волнует

[Mad_Cat]

Program var15_stroki;
Uses crt;
Var s:string;
Begin
clrscr;
Writeln('Введите строку');
Readln(s);
while pos(',',s)<>0 do
delete(s,pos(',',s),1);
Writeln(s);
Readln;
End.

[Serge_Bliznykov]

я удивлён, за дюжину постов никто не вспомнил и не предложил "классический" приём.

Если в цикле FOR в процессе удаления изменяется длина (количество) обрабатываемых объектов, то самое простое решение (если есть желание оставить цикл FOR а не перейти на циклы с пред/постусловием) - это обработка элементов в обратном порядке - ОТ ПОСЛЕДНИХ к ПЕРВЫМ!

в данном случае:

        for i:=Length(s) downto 1 do
           if s[i]=',' then
               Delete(s,i,1);

        Writeln(s);

[just4smth]

а не перейти на циклы с пред/постусловием

Для полноты ответа можно пример с циклом repeat until?

[Mad_Cat]

i:=1;
repeat 
if s[i]:=',' then
delete(s,i,1) else i:=i+1;
until i>length(s) ;

[Serge_Bliznykov]

Позвольте сделать маленький комментарий к коду (c) Mad_Cat.

1) поправочка (в коде опечатка, в сравнении if s[i] должен быть не знак присвоения, а знак проверки на равенство!

2) Важно! Код корректен только если строка s не пуста!
В противном случае будет ошибка на s[i]

поэтому, позвольте предложить такой чуть-чуть поправленный вариант:

i:=1;
repeat 
  if i<=Length(s) then
     if s[i]=',' then delete(s,i,1) 
     else i:=i+1;
until i>length(s) ;

хотя, в реальной жизни, я бы, (ну, если бы ОЧЕНЬ нужно было использовать цикл repeat .. until, разумеется!) написал так:

if Length(s)>0 then begin
  i:=1;
  repeat 
     if s[i]=',' then delete(s,i,1) 
     else i:=i+1;
  until i>length(s);
end;

[just4smth]

Serge_Bliznykov, спасибо за исправления/дополнения.
К стати первоначальный вариант сообщения Mad_Cat, выглядел примерно так (в истории правок точнее посмотрите):

 repeat Delete(s,pos(',',s),1) until pos(',',s)=0;

[оффтопик]
Бысто, всё-таки, гугл страницы индексирует, по запросу "удалить из текста все запятые", http://programmersforum.ru/ - занимает первое место
[/оффтопик]