PL/0程序示例 CONST A=10;(*常量说明部分*) VARB,C;(*变量说明部分*) PROCEDURE P;(*过程说明部分*) VAR D PROCEDURE Q VAR X BEGIN READ (X) D:=X; Q的过程体 WHILE X#O DO CALL P END BEGIN WRITE D) p的过程体 CALL Q END BEGIN CALL P END 主程序体PL/0程序示例 CONST A=10; （* 常量说明部分 *） VAR B,C; （* 变量说明部分 *） PROCEDURE P; （* 过程说明部分 *） VAR D; PROCEDURE Q; VAR X; BEGIN READ(X); D:=X; WHILE X#0 DO CALL P; END; BEGIN WRITE(D); CALL Q; END; BEGIN CALL P; END. Q的过程体 p的过程体 主程序体