Разработать распознаватель заданной символьной цепочки

Необходимо разработать распознаватель заданной символьной цепочки. Символь-
ная цепочка задается с помощью формул Бэкуса-Наура.
Например:
<цепочка>::=CONST <идентификатор>=<значение>;
<идентификатор>::=<буква> | <идентификатор><буква> | <идентификатор><цифра>
<буква>::=A | B | C | D | E | F | ... | Z
<цифра>::=0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9
<значение>::=<целая константа> | <логическая константа>
<целая константа>::=<целое со знаком> | <целое без знака>
<целое со знаком>::=<знак><целое без знака>
<знак>::=+ | -
<целое без знака>::=<цифра> | <целое без знака>
<логическая константа>::=TRUE | FALSE


Примеры входных и выходных данных
INPUT.TXT OUTPUT.TXT
const N=10; ACCEPT
const Min=-10; ACCEPT
4
INPUT.TXT OUTPUT.TXT
const Max=+10; ACCEPT
const On=True; ACCEPT
const Off=FALSE; ACCEPT
const MyMaxN = 123456 ; ACCEPT
const N=10 REJECT
const Min=-+10; REJECT
const Min=-True; REJECT
const Off=Folse; REJECT
const Min=123.456; REJECT
const N=10; const Min=-10; REJECT
const BEGIN=123; REJECT
const end=False; REJECT

<цепочка>::=<условный оператор>
<условие>::=<идентификатор>
<оператор1>::=<оператор присваивания>
<выражение>::=<вызов подпрограммы>
<список параметров>::=<идентификатор>
<оператор2>::=<вызов подпрограммы>
<список параметров>::=<целая константа>
Примеры допустимых цепочек
if Cond then A1:=Func(id);
if Cond then myvar:=foo(id1) else proc(2);
if Cond then samp:=func3(id1) else proc(-32);

0

создано во фрилансе, здесь закрыто.

0