sk.txt

c++6.0上实现的s语言词法分析器

program pro;
    var k: integer;
        i: integer;
        sum: integer;
    begin
      k:=0;
      i:=10;
      if k<i then sum:=1;
      for k:=1 to i
      do
        begin
          sum:=k*sum;
          k:=k+1;
        end  
    end.