ввести строку, состоящую из нескольких предложений. построить результирующую строку, содержащую только предложения, состоящие из заданного количества слов. помогите!!!
Lapp
25.12.2008 8:25
Вот, примерно так попробуй сделать:
i:=1; while i<=Length(s) do begin m:=i; n:=0; repeat while (i<=Length(s)) and not (s[i] in Letters) do Inc(i); while (i<=Length(s)) and (s[i] in Letters) do Inc(i); Inc(n) until s[i]='.'; if n=k then r:=r+Copy(s,m,i-m+1); Inc(i) end;
Учти, что я тут считаю, что (а) предложение обязательно оканчивается точкой, которая (б) следует непосредственно за словом.
Багирка
25.12.2008 16:20
спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.