file1.txt

我的编译原理课程设计。类PASCAL的语法

   const aa=1,b=2,c=100;
   var t , s,i,a;
 begin
    t=(b+(100-30)*a/(s-c))/s;
    s=100+2;
    if(b+c/3>20)
    begin
      s=(c+a)/t;
      t=1;
      read(t,s,i);
      write(t,s,i);
    end;
   while(i+b<100)
    begin
      i=i+1;
      S=100+2*b;
    end;
   if(b>a)
   begin
   write(b);
    write(s,t);
  end;
  for(i=s+t*2;100)
   s=s+1;
    end.