PL0+language 源代码

PROGRAM MAIN1; CONST A=10; VAR B,C; PROCEDURE P; VAR D; PROCEDURE Q; CONST E=5; VAR F; PROCEDURE R; VAR G; BEGIN …

program EX011; var a,b,c; begin a:=88; read(b); c:=a+b*(3+b); if b=0 then write(c) end.

PROGRAM EX01; VAR A,B,C; BEGIN A:=88; READ(B); C:=A-B; A--; IF B0 THEN C-=A+B ELSE C:=A*B; WRITE(A) …

PROGRAM EX0111; VAR A,B; BEGIN A:=88; B:=11; WRITE(A); END.

PROGRAM P1; CONST I=5, B=20; C=1, D=2; VAR I; X,Y; PROCEDURE J; BEGIN X:=B END; PROCEDURE K; BEGIN Y:=C END; BEGIN …

PROGRAM EX011; VAR A,B,C; BEGIN A:=88; READ(B); C:=A-B; A--; IF B0 THEN C-=A+B ELSE C:=A*B; WRITE(A) …

PROGRAM EX01; CONST A=10; VAR B,C,D; ARRAY E[1:10]; BEGIN READ(B,C); IF BC THEN BEGIN B+=C; C++; WRITE(C) END ELSE BE…

PROGRAM P11a; CONST A=10; VAR B,C; PROCEDURE P; BEGIN C:=B+A; END; BEGIN READ(B); WHILE B#0 DO BEGIN CALL P…

PROGRAM MAIN; VAR A,B,C; BEGIN A:=100; B:=200; C:=300; A:=C+(B-A); END.