FAQ > 金融建模 > 建模问题 > 数组操作

Q:将一个数组的两行对换    

  • A:ArrayRowExChange(r,n1,n2);

    Function ArrayRowExChange(r,n1,n2);
    Begin
      m:=mcols(r,0);
       //二维数组
      if m>0 then
      begin
       tmp1:=r[n1:n1,:];
       tmp2:=r[n2:n2,:];
       r[n1:n1,:]:=tmp2;
       r[n2:n2,:]:=tmp1;
      end
       //一维数组
      else
      begin
       tmp1:=r[n1];
       tmp2:=r[n2];
       r[n1]:=tmp2;
       r[n2]:=tmp1;
      end;
      return r;
    End;