实例2.txt

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

\\输入输出，函数的调用，条件语句的使用
const  a = 10 ;
var      b , c ;
procedure p;
      begin
             c := b + a ;
             
      end;
      
begin
	read(b) ;
	write(b) ;
        write(2+3*4-1) ;                \\输出一个表达式的运算结果
	if  b = 0  then                 \\如果 为零，执行下面的语句；否则跳过
	    begin
	         read(b) ;
	         write(c)
	    end ;
                 call p ; 
  
end.