Else begin

End

Begin

Begin

if Ch in [' +', ' -' ] then

NextCh;

Addend; { Слагаемое }

while Ch in [' +', ' -' ] do begin

NextCh;

Addend;

end;

end;

Следующий нетерминал — «Слагаемое». Однако диаграмма, показанная на рис. 18, не разделяется на типовые фрагменты, что затрудняет программирование распознавателя.

Неструктурированность обусловлена фрагментом, который помечен на рисунке знаком «?». Преобразуем диаграмму в эквивалентную, но состоящую только из совокупности типовых структур (рис. 22).

Для этого изобразим отдельно две ветви: одна соответствует слагаемому, начинающемуся с числа, другая — с буквы х. Фрагмент, выделенный на исходной диаграмме пунктирной рамкой, преобразуем в нетерминал «Степень».

Рис.22 Синтаксические диаграммы «Слагаемое» и «Степень»

Программирование распознающих процедур Addend (слагаемое) и Power (степень) теперь выполняется легко: диаграммы служат схемами алгоритмов.

procedure Addend; { Слагаемое }

if Ch = ' x' then begin

NextCh;

Power; { Степень }

Number; { Целое }

if Ch = 'x' then begin

NextCh;

Power;

end;

end;

end;

procedure Power; { Степень }

Дата добавления: 2014-01-05