实例1.txt

来自「PL0语言的编译器」· 文本 代码 · 共 20 行

\\  这里是注释（以符号“@”为开头的一整行）

const a=10;                             \\定义一个常量
var  b,c;                                   \\定义变量
procedure  p;                           \\定义过程
    begin
        c:=b+a
    end;


begin
    read(b);                                \\读入一个数据
    while  b#0  do                      \\循环语句
       begin 
           call p;                            \\函数调用
           write(2*c);                      \\写操作
           read(b)
       end
end.