test.txt

编译原理中的词法分析器

PROGRAM t
CONST K=15,N=73
VAR X,Y:INTEGER;Z:LONG;
PROCEDURE PRO(W:INTEGER); 
BEGIN
  X:=K*10;
  WHILE  ODD X
  DO  Y:=X;
  IF  K+N>Y
  THEN  READ(X,Y);
  Y:=X-N;
END