key12_4.cpp

该包是数据结构的实验软件,来源于合肥工业大学人工智能与数据挖掘实验室,用来实现数据结构.

//{ test12_4 }
#include"grary1.h"
   const  int n=13;
   bb1 a;
   GrpArr ag;

   void  shell(bb1& a)
     { int i,j,guard,d;

	Clear_range(1,1,getmaxx(),getmaxy());
	create_grp_Arrbb(ag,horizon,SubInc,true,a,"A",-6,n);
	initial_GrpArr(ag);
	move_GrpArr_dxy(ag,-20,30);
	d=n/2;
	do
	{
	  Clear_range(0,0,getmaxx(),getmaxy());
	  display_GrpArr(ag);
	  for (i=d+1;i<=n;i++)
	     {  if (i%d==0 )
			guard=0;
	       else
			guard=i%d-d;
	      unsigned char ss[40]="Step=";
	      unsigned char st[8]="";
	      Convs(d,st);
	      strcat(ss,st);
	      strcat(ss, " Insert ");
	      strcpy(st,"");
	      Convs(i,st);
	      strcat(ss,st);
	      strcat(ss,"=");
	      strcpy(st,"");
	      Convs(a[i],st);
	      strcat(ss,st);

	      Statusline(ss);
	      put_elmn(ag, guard, a[i],0);
	      Wait();
	      j=i;
	      while (a[j-d]>a[guard] )
		      {  move_elmn(ag,j-d,j,10+3*(i-d));
			 j=j-d;
			 Wait();
		      }
		    move_elmn(ag,guard,j,-10-3*(i-d));
	      }
	  d=d/2;
     }
	while(d!=0);
	disp_Arrbb(a,1,n);
   }
   main()
   {  
      rand_Arrbb(a,1,n,10,1000);
      shell(a);
   }