约瑟夫环问题图形界面展示

用图形界面诠释约瑟夫环问题，在vc++6.0环境下进行开发。

/*实现列环（图形界面）*/
#include“gra.h“
void Graph（int nint aa[]COLORREF color）
{
   int drivermodeix1y1jk;
   float xxyyabc=0.0;
   driver=DETECT;
   mode=0;
   initgraph（&driver&mode““）;
   cleardevice（）;
   setbkcolor（WHITE）;  
   setcolor（GREEN+color）;
   moveto（320240）;
   a=（2.0）*P;
   b=n;
   j=15*n;
   k=3*n;
   circle（320240j）;
   for（i=0;i   {   
       c+=a/b;
       xx=j*cosf（c）;
       yy=j*sinf（c）;
       x1=（int）xx;
       y1=（int）yy;
       fillcircle（x1+320y1+240k）;
       outtextxy（x1+310y1+230aa[i]+48）;
	   outtextxy（x1+320y1+231“N“）;
	   Sleep（100）;	 
   }
   Sleep（500）;
   closegraph（）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-12-22 22:29  Josephus\
     目录           0  2012-10-22 11:41  Josephus\Debug\
     文件      278599  2012-07-14 17:24  Josephus\Debug\Josephus.exe
     文件      450296  2012-07-14 17:24  Josephus\Debug\Josephus.ilk
     文件     4030796  2012-07-14 17:23  Josephus\Debug\Josephus.pch
     文件      738304  2012-07-14 17:24  Josephus\Debug\Josephus.pdb
     文件      274491  2012-07-11 17:40  Josephus\Debug\Josephus1.exe
     文件      445128  2012-07-11 17:40  Josephus\Debug\Josephus1.ilk
     文件      186932  2012-07-10 08:13  Josephus\Debug\Josephus1.pch
     文件      689152  2012-07-11 17:40  Josephus\Debug\Josephus1.pdb
     文件       14354  2012-07-14 17:24  Josephus\Debug\gra.obj
     文件        1696  2012-07-13 18:00  Josephus\Debug\jhj.obj
     文件       16343  2012-07-14 17:22  Josephus\Debug\jp.obj
     文件       25600  2012-10-22 11:41  Josephus\Debug\jp.pdb
     文件       20758  2012-07-13 17:37  Josephus\Debug\jp1.obj
     文件       26230  2012-07-14 15:43  Josephus\Debug\jp2.obj
     文件       14450  2012-07-13 15:09  Josephus\Debug\jpj2.obj
     文件       13188  2012-07-14 17:22  Josephus\Debug\selete.obj
     文件       14842  2012-07-14 17:22  Josephus\Debug\selete2.obj
     文件      304128  2012-12-22 22:24  Josephus\Debug\vc60.idb
     文件       77824  2012-07-14 17:24  Josephus\Debug\vc60.pdb
     文件        5209  2012-07-14 16:36  Josephus\Josephus.dsp
     文件         543  2012-07-09 16:31  Josephus\Josephus.dsw
     文件      173056  2012-12-22 22:29  Josephus\Josephus.ncb
     文件       51712  2012-12-22 22:29  Josephus\Josephus.opt
     文件         251  2012-10-22 16:03  Josephus\Josephus.plg
     文件         682  2012-07-14 17:24  Josephus\gra.cpp
     文件         226  2012-07-13 10:59  Josephus\gra.h
     文件           0  2012-07-13 17:43  Josephus\jhj.cpp
     文件         198  2012-07-14 15:43  Josephus\jhj.h
     文件        1498  2012-07-14 14:52  Josephus\jose.txt
............此处省略16个文件信息