ceshi.txt

来自「编译原理中的语法分析和语义分析」· 文本 代码 · 共 42 行

program name;
const a=100,b=102;
var c,d;
     procedure name1(ch4 ,ch2);
          const eh77h567=300,f77=400;
          var dd,ff;
          procedure name2(ch5,ch6);
               const a=200,b=400;
               var hh,gg;
               begin
                  while hh<>gg do
                       hh:=+(1000+2000)*(2000+4000)-(a+d)*(200+300);
                  read(hh,c);
               end
          begin
               while a>c do
                    begin
                        if c>d then
                           write(f77,b)
                        else
                        write(c,d);
                        read(c,d)
                       end;
              c:=c-d;
              dd:=c+d-ff;
              write(a,b,c,d);
          end
begin
    while a>c do
    begin
         if c>d then
            write(a,b)
         else
            write(c,d);
         read(c,d)
    end;
    if odd(100) then
       call name1(100,200);
    c:=c-d;
    write(a,b,c,d);
end.