вопрос по синтаксическому анализу Опции

[1147]

нужно произвести синтаксический анализ - "вариант". Я сначала думал что нужно создать программу, анализирующую само выражение "вариант", но вскоре понял что это не так. Кроме того непонятно как должен выглядеть алфавит языка записи выражения, соответственно я немогу построить таблицу переходов..
Буду благодарен за любую помошь в этом вопросе

Сообщение отредактировано: 1147 - 26.11.2008 20:26

[Archon]

Код

const
    a: array[1..7, 1..6] of integer = (
        (2, 8, 8, 8, 8, 8),
        (8, 8, 3, 1, 8, 8),
        (8, 8, 8, 8, 4, 8),
        (8, 5, 8, 8, 8, 9),
        (8, 8, 6, 8, 8, 8),
        (7, 8, 8, 8, 8, 8),
        (8, 8, 8, 6, 8, 9)
    );

function Decode(c: char): integer;
begin
    case c of
        'I': Decode := 1;
        'T': Decode := 2;
        ':': Decode := 3;
        ',': Decode := 4;
        '(': Decode := 5;
        ')': Decode := 6;
    end;
end;

var
    s: string;
    state, i: integer;
begin
    Write('Введите строку для анализа: ');
    ReadLn(s);
    state := 1;
    for i := 1 to Length(s) do begin
        state := a[state, Decode(s[i])];
        if state = 8 then Break;
    end;
    if state = 9 then
        WriteLn('Строка верна')
    else
        WriteLn('Строка ошибочна');
end.

[Гость]

Как должна выглядеть входная строка чтобы программа выдала сообщение что она верна?? Вот например я ввожу корректную строку: a:(), но программа считает ее неверной