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

[ppp]

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

[klem4]

Если текст задан именно так, как сказано в задании, то вот такую можно функцию для определения сколько в строке слов, длина которых не превышает max_len

const
  max_len = 5;

function get_count(s: String): Byte;
const
  letters = ['.', ',', ':', ';', ' ', '!', '?'];
var
  i: Byte;
begin
  if length(s) = 0 then get_count := 0 else begin
    i := 1;
    while (i <= length(s)) and not (s[i] in letters) do
      inc(i);
    get_count := Byte (i <= max_len + 1) + get_count(copy(s, i + 1, 255));
  end;
end;

Сообщение отредактировано: klem4 - 18.02.2008 22:07