数模论坛

 找回密码
 注-册-帐-号
搜索
热搜: 活动 交友 discuz
查看: 4077|回复: 4

汉诺塔代码

[复制链接]
发表于 2004-3-8 02:55:57 | 显示全部楼层 |阅读模式
#include "stdio.h"
#include "graphics.h"
#include "conio.h"
#include "string.h"
#include "alloc.h"

#define dy 200  //box's size,you can modify them.
#define dh 10
#define dw 10
#define time1 5//control the speed of movice
#define time2 5

int m,x[4]={0,105,320,535},y[4]={370,370,370,370},p[640];
char c;
delay(int);
stpic();
hanoi(int,char,char,char);
move(char,char);
trace(int,int,int,int);
movbox(int,int);
movice(int,int);

main()
{
printf("input the number:   ");
scanf("%d",&m);
printf("how do you want to watch the display?   n:normal;   m:movice;\nPlease choos:  ");
getchar();
scanf("%c",&c);
stpic();
getch();
hanoi(m,'A','B','C');
bar(0,420,639,460);
setcolor(WHITE);
outtextxy(10,430,"press any key to Exit...");
getch();
closegraph();
}
stpic()
{
int drive=DETECT,mode,i,j;
initgraph(&drive,&mode,"\egavga.bgi");
//registerbgidriver(EGAVGA_driver);
//If you want the program to run without file of EGAVGA.BGI then
//the this command is necessary.But you must prepare something
//before compile these codes.
setfillstyle(1,1);
settextstyle(0,0,3);
bar(0,420,639,460);
outtextxy(10,430,"press any to continue......");
setcolor(GREEN);
for(i=1;i<=3;i++) line(x-100,y,x+100,y);
for(i=1;i<=3;i++) line(x,y-dy,x,y);
outtextxy(95,375,"A");
outtextxy(310,375,"B");
outtextxy(525,375,"C");
setcolor(WHITE);
for(i=m,j=1;(i>0)&&(j<=m);i--,j++)
   {setfillstyle(1,j);
    rectangle(x[1]-i*dw,y[1]-j*dh,x[1]+i*dw,y[1]-(j-1)*dh);
    floodfill(x[1]-i*dw+3,y[1]-j*dh+3,WHITE);
    }
y[1]-=m*dh;
return(0);
}
trace(int x1,int y1,int x2,int y2)
{
int x3,y3=60,i;
double q;
x3=(x1+x2)/2;
q=(x1-x3);
q=q*(x1-x3);
q=q/(y1-y3)/2.0;
if (x1<=x2) for(i=x1;i<=x2;i++) p=(i-x3)/2.0/q*(i-x3)+y3;
if (x1>x2)  for(i=x2;i<=x1;i++) p=(i-x3)/2.0/q*(i-x3)+y3;
return(0);
}
move(char b1,char b2)
{
int b1c,b2c,i;
char str[20];
for (i=0;i<20;i++) str='\0';
switch (b1)
  {
   case 'A': b1c=1;break;
   case 'B': b1c=2;break;
   case 'C': b1c=3;
   }
switch (b2)
  {
   case 'A': b2c=1;break;
   case 'B': b2c=2;break;
   case 'C': b2c=3;
   }
strcat(str,"move ");
str[5]=b1;
strcat(str," to ");
str[10]=b2;
bar(0,420,639,460);
setcolor(WHITE);
outtextxy(10,430,str);
if (c=='m') movice(b1c,b2c);
else movbox(b1c,b2c);
return(0);
}
hanoi(int n,char one,char two,char three)
{
if (n==1) move(one,three);
else {
hanoi(n-1,one,three,two);
move(one,three);
hanoi(n-1,two,one,three);
}
return(0);
}
movbox(int a,int b)
{
int xl,i;
unsigned size;
void far*buf;
for(xl=x[a]-1;;xl--) if (getpixel(xl,y[a])!=WHITE) break;
xl+=1;
size=imagesize(xl,y[a],2*x[a]-xl,y[a]+dh);
buf=malloc(size);
getimage(xl,y[a],2*x[a]-xl,y[a]+dh,buf);
getch();
putimage(x-x[a]+xl,y-dh,buf,COPY_PUT);
putimage(xl,y[a],buf,XOR_PUT);
setcolor(WHITE);
line(xl,y[a]+dh,2*x[a]-xl,y[a]+dh);
y[a]+=dh;
y-=dh;
setcolor(GREEN);
for (i=1;i<=3;i++)
    {
      line(x,y,x,y[0]-dy);
      if (y==y[0]) line(x-100,y[0],x+100,y[0]);
     }
free(buf);
return(0);
}
movice(int a,int b)
{
int xl,i;
unsigned size;
void far*buf;
for(xl=x[a]-1;;xl--)
    if (getpixel(xl,y[a])!=getpixel(xl-1,y[a])) break;
size=imagesize(xl,y[a],2*x[a]-xl,y[a]+dh);
buf=malloc(size);
getimage(xl,y[a],2*x[a]-xl,y[a]+dh,buf);
for (i=y[a];i>(y[0]-dy);i--)
   {
    putimage(xl,i,buf,XOR_PUT);
    setcolor(GREEN);
    line(x[a],y[a]+dh,x[a],i);
    putimage(xl,i-1,buf,COPY_PUT);
    setcolor(WHITE);
    line(xl-1,y[a]+dh,2*x[a]-xl,y[a]+dh);
    if (y[a]+dh==y[0])
{
setcolor(GREEN);
line(x[a]-100,y[0],x[a]+100,y[0]);
}
    delay(time1);
    }
putimage(xl,i,buf,XOR_PUT);
trace(x[a],i,x,i);
for(i=x[a];(x[a]<=x)? i:i>x;(x[a]<=x)? i++:i--)
   {
    putimage(i-x[a]+xl,p,buf,COPY_PUT);
    delay(time2);
    putimage(i-x[a]+xl,p,buf,XOR_PUT);
    }
setcolor(GREEN);
for(i=y[0]-dy;i-dh;i++)
   {
    line(x,y[0]-dy,x,i);
    putimage(x-x[a]+xl,i,buf,COPY_PUT);
    delay(time1);
    putimage(x-x[a]+xl,i,buf,XOR_PUT);
    }
putimage(x-x[a]+xl,i,buf,COPY_PUT);
y[a]+=dh;
y-=dh;
free(buf);
return(0);
}
delay(int n)
{
int i,j;
for (;n>0;n--)
  for (i=100;i>0;i--)
    for (j=1000;j>0;j--);
return(0);
}
发表于 2004-3-8 23:10:55 | 显示全部楼层
我个人觉得。。。
这个写得太简单了,应该好好解释一下
发表于 2004-3-9 01:38:56 | 显示全部楼层
建议你写程序规范一点
就算不写注释,至少也应该把程序写的清楚一点,不要和堆积木一样
发表于 2004-3-13 23:55:19 | 显示全部楼层
可以用递归算法!异常简洁!
或者可以用更直接的方法,即先把所有的盘了放在其中一根柱子上,再把最小那个,也就是最上面的一个,记为A。按某个环绕方向每步移动一次到一根柱子上,两次移动A之间,把剩下的盘中的某个移动一次。这样,保证在2的n次方减1步移完所有盘子。
发表于 2004-3-14 03:43:53 | 显示全部楼层
这个程序好难看
您需要登录后才可以回帖 登录 | 注-册-帐-号

本版积分规则

小黑屋|手机版|Archiver|数学建模网 ( 湘ICP备11011602号 )

GMT+8, 2024-11-30 15:38 , Processed in 0.050519 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表