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