简单的多项式求和.txt

来自「PL0语言的编译器」· 文本 代码 · 共 32 行

\\多项式运算（系数为1）
@子过程 pow 完成的是pow(x , subloop)的功能
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) ;                      @读入参与运算的自变量值
       write(x) ;                      
       
       result := 0 ; 
       loop:= 0 ;
       while  loop < Times do     @多项式的最高次为 Times - 1
          begin
                call pow ;                  @调用子函数
                result := result + subresult ;
                loop := loop+1 ;
          end ;
  write(result) ;                             @输出结果

end.