e01.pl0

编译原理的课程设计报告

PROGRAM E01;
VAR A,B,I;
BEGIN
 A:=10;
 READ(B);
 IF B>A THEN 
 FOR I:=B
 DOWNTO A
 DO 
 WRITE(I)
 ELSE IF B<A THEN 
 FOR I:=B
 TO A
 DO 
 WRITE(I)
 ELSE BEGIN
 B++;
 WRITE(B);
 A+=B;
 WRITE(A);
 B--;
 WRITE(B);
 A-=B;
 WRITE(A);
END;
END.