pascal1.txt

来自「本程序包括词法分析的有关程序和文档」· 文本 代码 · 共 16 行

program lzh00;
const lichao := 80310125, k := 123
var zhujun,wangliujun,lvcha
procedure pro1(arg1,arg2,arg3);
var a,b,c
begin
while a<b do read(a,b,c)
end
procedure pro2(arg1,arg2,arg3);
var a,b,c
begin
while a<b do read(a,b,c)
end
begin
a:=8
end#