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

[ppp]

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

[andriano]

Примерно так (писал прямо здесь):

const
  MaxWordLength = 5;

function NumberOfWords(s : string): integer;
var i,j : integer;
begin
  while pos(',',s) > 0 do s[pos(',',s)] := ' ';
  while pos(':',s) > 0 do s[pos(':',s)] := ' ';
  while pos(';',s) > 0 do s[pos(';',s)] := ' ';
  while pos('  ',s) > 0 do delete(s,pos('  ',s),1);
  i := 0; // counter
  repeat
    j := pos(' ',s);
    if (j > 0) then begin
      delete(s,1,j); // remove first word & space
      if ((j-1) <= MaxWordLength) then
        inc(i);
    end;
  until j = 0;
  if (length(s) <= MaxWordLength) and (length(s) > 0) then
	inc(i);
  NumberOfWords := i;
end;

Сообщение отредактировано: andriano - 17.02.2008 21:24