test.pas

一个非常好的词法分析程序,加上语法的分析是一个难得一见的好实例

Program test;

const pi:=3,yi:=1
var i,j,k

Procedure PrintSum(a1,a2);
var a3,a4

begin
	a3:=a1+a2;
	Write(a3)
end;

Procedure PrintDiff(a1,a2);
var a3

begin
	a3:=a1-a2;
	Write(a3)
end

begin
	i:=-22;
	j:=24;

	Read(j,k);
	call PrintSum(i+j-i*j/k,k);
	call PrintDiff(pi,yi);

	begin
	if i=-22 then 
	   i:=23
	else
	   i:=24
	end;

	if odd i+j then 
	   i:=23;

	while i=24
	do
	      begin
	      i:=i+1;
	      j:=j+1
	      end
end