source_code.txt

来自「编译原理：词法分析器(C++实现) 将PASCAL的源程序」· 文本 代码 · 共 21 行

program testexample;
  {读入一组整数，统计并输出：其中非负整数之和，整组数的10倍平均值}
  var
    k, sum1, sum2, x : int;
      const
        num=20, times=10;
      begin
        sum1:= 0;   sum2:= 0;
        k :=num;
        while k>=1 do
          begin
            read (x);
            if x>=0
             then sum1 := sum1 + x;
            sum2 := sum2 + x;
            k := k-1;
          end;
        write (sum1);
write (times*sum2/ num);
      end.