c1.txt

来自「自己做的小编译程序,大家看看好不好用哦,是词法分析器」· 文本 代码 · 共 21 行

{数组测试}
{结果应为:0,1,2,3,4,5}
program sd
type  i=integer;
      sarray=array [0..5] of integer;
var  i x;
     sarray y;
     integer ss;
procedure sd(integer a);
begin 
   write(a)
end    
begin
  ss:=0;
  while ss< do
    y[ss]=ss;
    x:=y[ss];
    sd(x);
    ss:=ss+1
  endwh
end.