Rekurzívní sestup: Příklad 4/4
function F: boolean;
begin
  F := false;
  if token = '(' then begin
     { simulace pravidla 7: F ® (E) }
     GetNextToken;
     if E then begin
        F := (token = ')');
        GetNextToken;
     end;
  end
  else
  if token = 'i' then begin
     { simulace pravidla 8: F ® i }
     F := true;
     GetNextToken;
  end;
end;
• Pro F Î N: Pravidla 7: F ® (E) ,  8: F ® i
E
E’
T
T’
F
i
+
(
1
4
8
*
)
$
1
4
7
2
6
5
3
6
3
6
Hlavní tělo programu:
begin
  GetNextToken;
  if E then
     write('OK')
  else
     write('ERROR')
end.
45/57
7
8