上传者: duanjing123
|
上传时间: 2019-12-21 19:40:54
|
文件大小: 147KB
|
文件类型: pdf
PL/0源程序
//PL0.txt
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.
//outputfile.txt
constsym,
ident, a
eql,
number, 10
semicolon,
varsym,
ident, b
comma,
ident, c
semicolon,
proceduresym,
ident, p
semicolon,
beginsym,
ident, c
becomes,
ident, b
plus,
ident, a
endsym,
semicolon,
beginsym,
readsym,
lparen,
ident, b
rparen,
semicolon,
whilesym,
ident, b
neq,
number, 0
dosym,
beginsym,
callsym,
ident, p
semicolon,
writesym,
lparen,
number, 2
times,
ident, c
rparen,
semicolon,
readsym,
lparen,
ident, b
rparen,
endsym,
endsym,