e01.pl0

这是编译原理上机实验同报告.编译原理是一门很难学的课程.这个源码对大家十分有用.

PROGRAM EX01;
VAR A,B,C,D;
BEGIN
 A:=2;
 B:=6;
 C:=11;
 D:=15;
 C++;
 D--;
 A:=A+3;
 B:=B-10;
 WRITE(A);
 WRITE(B);
 WRITE(C);
 WRITE(D);
 IF A=0 THEN
   A:=57;
 ELSE
   A+=1;
WRITE(A);
B:=10;
FOR B:=6 DOWNTO 1 DO
BEGIN
　WRITE(B);
END
END.