Паскаль. Определение количества слов в тексте.

[Evgesha]

Наконец-то до меня дошло. Оказывается, все так просто! OCTAGRAM, спасибо за совет добавить пробел в начало строки!

[Cronom]

Появилась такая задача, как в тексте найти слова в которых содержится не более 5ти символов , не подскажете как это можно сделать?

[Asker13]

Как вариант, найти все слова в строке, а затем вывести только те, в которых меньше 6 (или <= 5) символов.

[Базиля]

Так в чем проблема? Заносишь в какую-нибудь строковую переменную до пробела все символы из введенной тобою строки. Если ее длина <=5 то выводишь ее. Далее "обнуляешь" строковую переменную в которую заносил символы до пробела, и начинаешь в нее вносить символы до следующего пробела, т.о. переберешь все слова в строке

[Cronom]

сейчас попробую

Что то у меня не получается , какая там последовательность будет? можешь код написать?

[Asker13]

i := 1;
while i <= Length(s) do begin
  tmp := '';
  while (s[i] <> ' ') and (i <= Length(s)) do begin
    Inc(i);
    tmp := tmp + s[i];
  end;
  Inc(i);
  if Length(tmp) <= 5 then WriteLn(tmp);
end;

[Cronom]

Все работает, спасибо!!!

спасибо большое !!

а почему если я ввожу не слова а наборы букв то он выводит первые буквы ? мне же надо стичтать кол-во слов с 5тью или меньше символов

[Karahaak]

Файл содержит сведения о сотрудниках, каждая запись которого содержит поля: фамилия сотрудника и должность.