VPF::Поиск макс. пробела - Форум программистов

koder

Дата 12.2.2006, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 181
Регистрация: 30.4.2005
Где: Moscow

Репутация: нет
Всего: 2

Как найти позиции в тексте последовательностей пробелов максимальной длины?

--------------------

THE TRUTH IS OUT THERE

remax

Дата 12.2.2006, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Код


var s:string;
p,i,m,c,pc:integer;
begin
  s=' Текст    для   проверки      алгоритма';
  m:=0;
  p:=-1;
  c:=0;
  pc:=0;
  for i:=0 to length(s)-1 do
    if s[i]<>' '   
      then
          begin
             if c>m then
                 begin
                   m:=c;
                   p:=pc;
                 end;
              c:=0;
              pc:=i+1;
         end
      else
         inc(c);

// p- позиция (начало наибольшей последовательности)
// m - ее размер
// если m=0 то пробелов нет вообще      
end;

Это так, - первое приближение. Возможны огрехи (не проверялось), но основные принципы понятны... smile

Это сообщение отредактировал(а) remax - 12.2.2006, 14:27

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »