comp=comp+1; //计算小回园执行次数
       if(k[j]-k[j-1]<0)//判断后减前是否<0(表示前>后);是的前后交换
        {
        change=change+1;//计算交换次数

p=1;//定义初值
   for (j=1;j<4;j++)
   {
      p=p*j;//计算1*1,1*2,2*3
      s=s+p;//将p值叠加
   }

a_rtn:
                    k=a/b;//求商数k
                    r=a-k*b;//计算r值
                    a=b;//把b给a
                    b=r;//把r给b
if(r!=0)goto a_rtn;//当r不等于0时反覆执行a_rtn