简单的多项式求和.txt

来自「编译原理实践教程PL0语言编译程序源代码。参考书：清华大学出版社的《编译原理》作」· 文本 代码 · 共 29 行

///////////////////////////////////////////////////////////////////////
/*  求多项式：x5+x4+x3+x2+x+1 的值   */////
///////////////////////////////////////////////////////////////////////
const    Times = 6 ;
var       loop , x , result  , subresult ,subloop;
procedure   pow;
     begin
          subloop:=loop;
          subresult := 1 ;
          while  subloop >= 0 do
           begin
                 if   subloop # 0 then
                    subresult := subresult*x  ;
                 subloop:=subloop-1
           end;
     end;
begin  
       read(x) ;                //读入参与运算的自变量值                                
       result := 0 ; 
       loop:= 0 ;
       while  loop < Times do     
          begin
                call pow ;          //调用子函数        
                result := result + subresult ;
                loop := loop+1 ;
          end ;
  write(result) ;                           
end.