program.txt

编译原理中的词法分析器

 
PROGRAM program #
CONST i=24;%
VAR k,r:INTEGER,LONG;
PROCEDURE procedure
j:=i+26
IF(j>=50)THEN
WHILE^(k<50) DO *
READ()
WRITE(K/2)
BEGIN END
ODD