Работа с символьными и строковыми переменными Опции

[VoRPaX]

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

[klem4]

function IsOk(const s: String): Boolean;
const
  letters = ['a'..'z'];
  signs = ['*', '-', '+'];
  digits = ['0'..'9'];

var
  limits: set of char;
  WCount, SCount, i: Byte;

begin
  i := 1;
  WCount := 0;
  SCount := 0;
  while (i <= Length(s)) do begin

    while (i <= Length(s)) and (s[i] in digits) do inc(i);

    if i <= Length(s) then begin
      if s[i] in letters then begin
        limits := letters;
        inc(WCount);
      end else begin
        limits := signs;
        inc(SCount);
      end;

      while (i <= Length(s)) and (s[i] in limits) do inc(i);
    end;

  end;

  IsOk := (WCount > SCount);
end;

?

Сообщение отредактировано: klem4 - 24.01.2007 20:09