Версия для печати темы

Автор: klem4 16.10.2005 21:45

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

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

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

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

Автор: volvo 16.10.2005 22:38

В случае a--+ad* где ты видел букву перед "ad"? Да и перед первой буквой "a" тоже нет ничего, так что формально здесь только одна группа букв: "d"

Автор: klem4 16.10.2005 23:04

Все, понял, спасибо ;)
тему можно закрывать.

Автор: klem4 17.10.2005 23:18

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

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'];

;)

Автор: volvo 17.10.2005 23:44

klem4,

var
   flag : boolean = FALSE;

Это - вариант FPC, на TP такое не пройдет, там надо будет инициализировать Flag в теле функции.

Ну, и можно попробовать "разгрузить" выражения, т.е. length(s) вычисляется слишком часто, так введи переменную, и занеси его туда. Ну, и еще кое-что можно сделать... Если надо - я покажу

Автор: klem4 17.10.2005 23:47

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

Автор: volvo 18.10.2005 0:43

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

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.

Автор: klem4 18.10.2005 12:36

Volvo, твой вариант не работает при writeln(IsSequence('a--+arwqd*'))
а тут последователбность есть :yes:

Автор: volvo 19.10.2005 0:55

klem4, тот вариант вообще-то не окончательный :

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

function IsPresent(s: string): boolean;
var
  flag: boolean;
  i: integer;
begin
  flag := False; i := 2;
  while (i <= Pred(Length(s))) and not (flag) do begin
    if not ((s[i] in C) and (s[Succ(i)] in C)) then Inc(i)
    else begin
      flag := not (s[Pred(i)] in C);
      Inc(i, Byte(not flag));
    end;
  end;
  IsPresent := flag;
end;

begin
  writeln(IsPresent('a--+arwqd*'));
  readln;
end.

Вот этот - окончательный ...