Идентификатор Aid

addstr (Aid, 0, "!", 1);

addrange(Aid, 0, 'A','Z', 1);

addrange(Aid, 0, 'a','z', 1);

addstr (Aid, 1, "-", 2);

addstr (Aid, 1, "!", 3);

addrange(Aid, 1, 'A','Z', 3);

addrange(Aid, 1, 'a','z', 3);

addrange(Aid, 1, '0','9', 3);

addstr (Aid, 2, "-", 2);

addrange(Aid, 2, 'A','Z', 3);

addrange(Aid, 2, 'a','z', 3);

addrange(Aid, 2, '0','9', 3);

addstr (Aid, 3, "-", 3);

addstr (Aid, 3, "!", 2);

addrange(Aid, 3, 'A','Z', 2);

addrange(Aid, 3, 'a','z', 2);

addrange(Aid, 3, '0','9', 2);

Aid.final(1);

Aid.final(2);

Aid.final(3);

//________________________________________

Идентификатор предиката Aidq

addstr (Aidq, 0, "?", 2);

addrange(Aidq, 0, 'A','Z', 1);

addrange(Aidq, 0, 'a','z', 1);

addrange(Aidq, 1, 'A','Z', 1);

addrange(Aidq, 1, 'a','z', 1);

addrange(Aidq, 1, '0','9', 1);

addstr (Aidq, 1, "-", 1);

addstr (Aidq, 1, "?", 2);

addrange(Aidq, 2, 'A','Z', 1);

addrange(Aidq, 2, 'a','z', 1);

addrange(Aidq, 2, '0','9', 1);

addstr (Aidq, 2, "-", 1);

Aidq.final(2);

//________________________________________

Оператор Aoper

addstr(Aoper, 0, "+-=*/", 1);

addstr(Aoper, 0, "<>", 2);

addstr(Aoper, 2, "=", 1);

Aoper.final(1);

//________________________________________

Булевские константы Abool

addstr(Abool, 0, "#", 1);

addstr(Abool, 1, "tf", 2);

Abool.final(2);

//________________________________________

Строка

// ФАКУЛЬТАТИВНОЕ ЗАДАНИЕ*

// дополнить esc-последовательностями \" и \\

Тест L8.ss

addstr (Astr,0,"\"", 1);

addstr (Astr,1,"\"", 2);

addrange(Astr,1,' ','"'-1,1);

addrange(Astr,1,'"'+1,'~',1);

addrange(Astr,1,-128,-1,1);

Astr.final(2);

//________________________________________

}

};

Endif

Вывод программы: