Помогите пожалуйста решыть.
Программа. Вo входном файле задан текст, за которым следует точка. Проверить, удовлетворяет ли его структура следующему определению:
<текст>::=<элемент> │ <элемент> <текст>
<элемент>::—а | b | (<текст> )| [<текст>] | {<текст>}

Зарание спасибо)))

const
  Letters: set of char= ['a','b'];

function IsText(s:string):boolean; forward;

function IsElement(s:string):boolean;
begin
  IsElement:= (Length(s)=1) and (s[1] in Letters) or (
      (s[1]='(') and (s[Length(s)]=')') or
      (s[1]='[') and (s[Length(s)]=']') or
      (s[1]='{') and (s[Length(s)]='}')
    ) and IsText(Copy(s,2,Length(s)-2))
end;

function IsText(s:string):boolean;
var
  i:integer;
begin
  i:= 0;
  repeat
    Inc(i)
  until (i>Length(s)) or IsElement(Copy(s,1,i)) and IsText(Copy(s,i+1,Length(s)));
  IsText:= (s='') or (i<=Length(s))
end;

Это сообщение отредактировал(а) jurkiw - 23.11.2008, 19:26

Ну так а у тебя есть какие-нибудь наработки?!! Типа черновик!