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

[klem4]

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

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

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

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

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

[klem4]

По поводу Flag спасибо, а что еще можно сделать ? Уже интересно стало

[volvo]

а что еще можно сделать ?

Ну, например, вот это:

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

function IsSequence(s : string) : boolean;

  function CheckGroup(i: integer): boolean;
  begin
    CheckGroup := (s[i] in C) and
      ((i > 1) and (s[pred(i)] in C)) and
      ((i < length(s)) and not(s[succ(i)] in C));
  end;

var
  i, len : byte;

const
  flag : boolean = FALSE;
  { это нехорошее решение, но для одного запуска приемлемо !!! }

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

  IsSequence := flag;

end;

begin
  writeln(IsSequence('a--+ad*'));
end.