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

[VoRPaX]

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

[VoRPaX]

Условие которое должно выполнятся программой невыполняется, все время пишет True. Может я просто что то делаю не так, а именно неправельно вызываю функцию?

program q4;
 var
 st:string;
 a:boolean;

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;
  
begin
   write('vvedite stroky> ');
    readln(st);
   a:=isok(st);
   writeln('групп букв больше чем групп знаков: ',a);
   end.

М

теги ...

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