Delphi-Help

Главная Статьи Текст и Строки Найти все слова в строке, начинающиеся на заданную букву

Найти все слова в строке, начинающиеся на заданную букву

Оцените материал
(6 голосов)


Найти все слова в строке, начинающиеся на заданную букву

Найти все слова в строке, начинающиеся на заданную букву и удалить из строки все слова, начинающиеся на заданную букву.

var
i:integer;
st:string;                             {строка  }
s:char;                                {буква   }
 
BEGIN
writeln('Введите строку слов:');
readln(st);
write('Введите букву: ');
readln(s);
 
st:=' '+st;                 {добавляем пробел в начале строки   }
repeat                      {ЦИКЛ                               }
 i:=pos(' '+s,st);          {ищем слово на букву s              }
 inc(i);                    {пробел не считаем                  }
 if i<>1 then               {если слово нашли то                }
  repeat                    {цикл                               }
  write(st[i]);             {напечатать букву найденного слова  }
  delete(st,i,1);           {удалить эту букву                  }
  until (st[i]=' ')or(i=length(st)); {если слово кончилось то конец цикла}
 writeln;
until  i=1;               {если больше нет найденных слов то КОНЕЦ ЦИКЛА}
 
writeln('st=',st);
END.
Прочитано 9504 раз
Другие материалы в этой категории: « Задача № 1843 Pascal

Авторизация



Счетчики