на списки... плз, помоните написать процедуру Опции

[ppp]

помогите пожалуйста написать процедуру...
Дан текст, состоящий из слов, пробелов, и знаков препинания(запятая, точка с запятой, двоеточие) и завершается точкой. текст начинается со слова, а слова отделяются друг от друга пробелом или одним знаком припинания. слова состоят из букв латинского алфавита. найти все слова, состоящие из вхождений не более чем 20 букв.

[andriano]

Я дал решение в предположении, что несколько разделителей могут следовать друг за другом. Именно для этого нужна строка:

while pos(' ',s) > 0 do delete(s,pos(' ',s),1);

Вместе с тем, я учел, что самих разделителей перечислено ТОЛЬКО 4, поэтому прописал каждый в свою строку.
Если их будет больше, разумно будет вместо нескольких строк вида:

while pos(':',s) > 0 do s[pos(':',s)] := ' ';

Пробежаться по строке, заменяя любой из них на пробел примерно следующей конструкцией:

  for i := 1 to length(s) do
    if s[i] in delimiters then
      s[i] := ' ';
  while pos('  ',s) > 0 do delete(s,pos('  ',s),1);

В принципе это стандартный метод поэтапного решения задачи:
1. Преобразовать все разделители к одному.
2. Избавиться от повторяющихся разделителей.
3. Провести обработку, исходя из того, что встречается ровно по одному разделителю единственного вида.

Сообщение отредактировано: andriano - 19.02.2008 23:55