Помогите со строками,пожалуйста Опции

[nataly]

Определить сколько слов длинной К символов находится в строке.К вводится с клавиатуры.

[Федосеев Павел]

Начни и покажи, что получается. Я бы тот алгоритм попробовал реализовать так (набирал прямо в браузере, поэтому возможны огрехи):

TYPE
  {тип для набора ограничителей слов в строке}
  TCharSet=Set of Char;
CONST
  {Список всех ограничителей слов в строке}
  Delim_Set : TCharSet = [ ' ', '.', ',', '!', '?', '-', ':',
                           ';', '(', ')', '[', ']', '{', '}'
                         ];
..................................................................

{Нахождение длины слова из строки Src.
 Поиск слова начинается с позиции StartPos.
 На выходе не только длина очередного слова, но и переменная StartPos
 указывает на следующий за словом символ.
 Если слово не найдено, то StartPos=Length(Src)+1.}
FUNCTION  GetLengthNextWord(CONST Src        : String;
                             VAR   StartPos   : Integer;
                             CONST   Delimiters : TCharSet):Integer;
VAR
  i       : Integer;
BEGIN
  i:=StartPos;
  {i-текущая позиция в анализируемой строке}
  {ищем первую букву слова}
  while (i<=Length(Src)) do
    if (Src[i] in Delimiters)
      then Inc(i)
      else Break;
  StartPos:=i;{StartPos указывает на первую букву в слове или на "следующий за последним символом в строке"=Length(Src)+1}
  {теперь просматриваем слово пока не закончится строка или
   не начнутся ограничители слов}
.............................................................................
  GetLengthNextWord:=i-StartPos;{i - указывает на следующий за словом индекс (т.е. на очередной пробел)}
  StartPos:=i;{для дальнейшего использования}
END;

..................
  CountWordK:=0; {счётчик количества слов длиной K}
  StartPos:=1; {слово в строке s начинаем с 1-й позиции}
  while StartPos<=Length(s) do {пока не закончились слова в строке}
    if GetLengthNextWord(s, StartPos, Delim_Set)=K 
      then Inc(CountWordK); {если длина очередного слова равна K, то инкрементируем счётчик}
..................

Это не законченный кусок, а скорее попытка реализации...

Ух, почти по-немецки "GetLengthNextWord"

Сообщение отредактировано: Федосеев Павел - 12.02.2012 3:38