Задача на строки Опции

[klem4]

Друг попросил решить ему задачу ... она конечно простетская совсем, но я не могу врубиться в задание, вот смотрите :

Дан текст каждый символ которого может быть малой буквой,цифрой,или одним из знаков +,-,*
группой букв будем называть такую совокупность последовательно расположенных букв,которой непосредственно предшествует и за которой непосредственно не следует буква.Аналогично определим группу цифр и группу знаков.
a)Выяснить,встречаются ли в данном тексте группа букв.

вот скажите мне в случае "----A++++" А - будет группой букв я правильно поняли, или например "a--+ad*" тут будет A и AD ?

Выяснить,встречаются ли в данном тексте группа букв - в таком случае задание сводится прсто определить есть ли в тексте буква ... или же встаки гуппа этот минимум 2 буквы.

Сообщение отредактировано: klem4 - 16.10.2005 17:47

[klem4]

Вот решение задачи, может кому-нибудь пригодится, а может кто получьше решение предложит ... что-то мне кажется громоздко получилось, а может в самый раз )

function IsSequence(s : string) : boolean;
var
      i : byte;
   flag : boolean = FALSE;
begin

   i := 1;

   {minimalny variant -  "ab*" - rezultat = "b"}

   while (i<=length(s)-2) and not(flag) do begin
      while not(s[i] in C) and (i<=length(s)-2) do inc(i);
      inc(i);
      if (i<=length(s)-1) and (s[i] in C) then begin
         while (i<=length(s)) and (s[i] in C) do inc(i);
         if (i<=length(s)) then
          inc(flag);
      end;
   end;

   IsSequence := flag;

end;

ой, забыл

const C = ['a'..'z', 'A'..'Z'];

;)

Сообщение отредактировано: klem4 - 17.10.2005 19:29