我来我网
https://5come5.cn
 
您尚未 登录  注册 | 菠菜 | 软件站 | 音乐站 | 邮箱1 | 邮箱2 | 风格选择 | 更多 » 
 

本页主题: 我刚写的一个汉诺塔的演示程序! 显示签名 | 打印 | 加为IE收藏 | 收藏主题 | 上一主题 | 下一主题

agang10



性别: 帅哥 状态: 该用户目前不在线
等级: 栋梁之材
发贴: 982
威望: 0
浮云: 1126
在线等级:
注册时间: 2006-02-18
最后登陆: 2012-02-10

5come5帮你背单词 [ repeatedly /ri'pi:tidli/ ad. 反复地,再三地 ]


我刚写的一个汉诺塔的演示程序!

我刚写的一个汉诺塔的演示程序,请大家多多指教!
现在的可以运行了哈!
Quote:


#include "Conio.h"
#include "graphics.h"
#define closegr closegraph

void initgr(void) /* BGI初始化 */
{
int gd = DETECT, gm = 0; /* 和gd = VGA,gm = VGAHI是同样效果 */
registerbgidriver(EGAVGA_driver);/* 注册BGI驱动后可以不需要.BGI文件的支持运行 */
initgraph(&gd, &gm, "");
}
void pan(int i);
int spy(int k);
void move(int re,int we,int cg);
void hanoi(int w,int e,int r,int t);
void time();
int m;
int main(void)
{
printf("please input the number of plate(between 1 and 8)\n");
scanf("%d",&m);
if(m>8)
  {
  printf("you input a error number\n");
  sleep(1);
  return 0;
  }
initgr(); /* BGI初始化 */

rectangle(5, 2, 635, 301);
rectangle(5, 2, 635, 472);
outtextxy(400,400,"MADE BY HERY");
  outtextxy(400,430,"email: hxrgtb@163.com");
  outtextxy(280,5,"HANOI TOWER");
  setfillstyle(1,2);
  bar(90,100,100,300);/*第一根柱子的位置*/
  bar(290,100,300,300);/*第二根柱子的位置*/
  bar(490,100,500,300);/*第三根柱子的位置*/
  pan(m);
  hanoi(m,1,2,3);
  outtextxy(200,350,"please input any key to exit!");
getch();
closegraph();
return 0;
}
void pan(int p) /*画出p个盘子*/
{
int x1=10,x2=180,y1=290,y2=300,i=0;
for (i=0;i<p;i++)
  {
    sleep(1);

    bar(x1,y1,x2,y2);

    x1=x1+10;
    y1=y1-12;
    x2=x2-10;
    y2=y2-12;
  }
  sleep(1);
}


void move(int a,int b,int c)/*把底a个盘子从b柱子移动到c柱子上*/
{
void *buf;

int size;
int i,j,k,h,t;
i=spy(b);

j=spy(c);

size=imagesize(10+10*(m-a)+200*(b-1),290-12*(i-1),180+(b-1)*200-10*(m-a),300-12*(i-1));

buf=malloc(size);
if(!buf)return -1;

getimage(10+10*(m-a)+200*(b-1),290-12*(i-1),180+(b-1)*200-10*(m-a),300-12*(i-1),buf);
for(k=0;k<2;k++)
  {
    time();
    putimage(10+10*(m-a)+200*(b-1),290-12*(i-1)-(105-6*(i-1))*k,buf,1);
    bar(90+200*(b-1),100,100+200*(b-1),300);
    putimage(10+10*(m-a)+200*(b-1),(290-12*(i-1))-(105-6*(i-1))-(105-6*(i-1))*k,buf,0);
    h=10+10*(m-a)+200*(b-1);
    t=(290-12*(i-1))-(105-6*(i-1))-(105-6*(i-1))*k;
  }
  for(k=0;k<2;k++)
  {
    time();
    putimage(h+100*(c-b)*k,t,buf,1);
    putimage(h+100*(c-b)+100*(c-b)*k,t,buf,0);

  }
  h=h+100*(c-b)+100*(c-b)*(k-1);
  for(k=0;k<2;k++)
  {
    time();
    putimage(h,t+(105-6*j)*k,buf,1);
    bar(90+200*(c-1),100,100+200*(c-1),300);
    putimage(h,t+(105-6*j)+(105-6*j)*k,buf,0);
  }
  free(buf);
  }
void hanoi(int n,int x,int y,int z)/*递归函数*/
{
  if(n==1)
  move(1,x,z);
  else
  {
  hanoi(n-1,x,z,y);
  move(n,x,z);
  hanoi(n-1,y,x,z);

  }
}
int spy(int p) /*判断柱子上已有的盘子个数*/
{ int i=89,j=295,l,t,r=0;
  i=i+200*(p-1);
  for(l=0;l<m;l++)
  {
      t=getpixel(i,j-12*l);
      if(t==2)
        r=r+1;
    }
  return r;
}
void time() /*时间延迟函数*/
{
  double i=0;
  for(i;i<1839000;)
  i++;

}



[ 此贴被agang10在2006-09-06 22:39重新编辑 ]
本帖最近评分记录:
  • 浮云:5 (by kangtalc)
  • 浮云:0 (by kangtalc) | 理由: 用不起哈,再改一下,还有你把注释那些也写上去
  • 顶端 Posted: 2006-09-06 15:30 | [楼 主]
    抓猫大队长



    性别: 帅哥 状态: 该用户目前不在线
    等级: 鹤立鸡群
    家族: RX土鳖卡丁车队
    发贴: 1475
    威望: 0
    浮云: 1156
    在线等级:
    注册时间: 2005-06-24
    最后登陆: 2007-06-24

    5come5帮你背单词 [ attribute /'ætribju:t/ vt. 把…归于,认为是…的结果;n. 属性,特征 ]


    强悍的人生确实不需要解释
    顶端 Posted: 2006-09-06 15:35 | [1 楼]
    sunrise2005



    性别: 帅哥 状态: 该用户目前不在线
    等级: 栋梁之材
    家族: 狼族
    发贴: 642
    威望: 0
    浮云: 1478
    在线等级:
    注册时间: 2005-04-03
    最后登陆: 2010-04-21

    5come5帮你背单词 [ mechanics /mi'kæniks/ n. 机械制造学,力学 ]


    这位兄弟哪个学院的?
    顶端 Posted: 2006-09-06 15:38 | [2 楼]
    追逐好梦



    性别: 帅哥 状态: 该用户目前不在线
    头衔: 忍着无敌
    等级: 前途无量
    发贴: 5353
    威望: 1
    浮云: 1107
    在线等级:
    注册时间: 2004-11-28
    最后登陆: 2013-11-17

    5come5帮你背单词 [ adjust /ə'd3Λst/ vt. 调整,调节,校准,校对;vi. 调整,校准,适应于 ]


    看看看看
    我想一定不错的
    顶端 Posted: 2006-09-06 15:38 | [3 楼]
    rio



    性别: 帅哥 状态: 该用户目前不在线
    等级: 人见人爱
    家族: 掌握文武半边天
    发贴: 2361
    威望: 0
    浮云: 1143
    在线等级:
    注册时间: 2006-04-11
    最后登陆: 2019-10-12

    5come5帮你背单词 [ equator /i'kweitə/ n. 赤道 ]


    啥子哦?
    不得行啊
    顶端 Posted: 2006-09-06 17:50 | [4 楼]
    agang10



    性别: 帅哥 状态: 该用户目前不在线
    等级: 栋梁之材
    发贴: 982
    威望: 0
    浮云: 1126
    在线等级:
    注册时间: 2006-02-18
    最后登陆: 2012-02-10

    5come5帮你背单词 [ except /ik'sept/ prep. 除…以外 ]


    不会吧 我就可以啊
    是不是你输入的数不对啊
    最多只能输入8,太大的话就屏幕上无法显示了。
    顶端 Posted: 2006-09-06 22:05 | [5 楼]
    yang-y





    性别: 帅哥 状态: 该用户目前不在线
    等级: 人见人爱
    家族: 异地恋联盟
    发贴: 2236
    威望: 0
    浮云: 1118
    在线等级:
    注册时间: 2005-10-01
    最后登陆: 2010-07-01

    5come5帮你背单词 [ catalog /'kætəlog/ n. 目录,目录册 ]


    文件不完整?把所有文件传上去试试?
    顶端 Posted: 2006-09-06 22:13 | [6 楼]
    yang-y





    性别: 帅哥 状态: 该用户目前不在线
    等级: 人见人爱
    家族: 异地恋联盟
    发贴: 2236
    威望: 0
    浮云: 1118
    在线等级:
    注册时间: 2005-10-01
    最后登陆: 2010-07-01

    5come5帮你背单词 [ natural /'nætərəl/ a. 自然界的,天然的,正常的,惯常的,天赋的,天生的 ]


    强悍的猫啊。。。
    顶端 Posted: 2006-09-06 22:14 | [7 楼]
    14810



    性别: 帅哥 状态: 该用户目前不在线
    头衔: 操哥
    等级: 荣誉会员
    家族: 国米阵线
    发贴: 21840
    威望: 4
    浮云: 429
    在线等级:
    注册时间: 2004-11-28
    最后登陆: 2012-12-05

    5come5帮你背单词 [ modernization /modənai'zeiən/ n. 现代化 ]


    用不起 点回车就关闭
    顶端 Posted: 2006-09-06 22:17 | [8 楼]
    agang10



    性别: 帅哥 状态: 该用户目前不在线
    等级: 栋梁之材
    发贴: 982
    威望: 0
    浮云: 1126
    在线等级:
    注册时间: 2006-02-18
    最后登陆: 2012-02-10

    5come5帮你背单词 [ unintelligible /Λnin'telid3əbl/ a. 难理解的,难懂的 ]


    不好意思 一开始上传上去用VGA驱动用的是的绝对路径只能在我的机子上运行,现在这个可以了哈!
    对不起了哈!
    顶端 Posted: 2006-09-06 22:31 | [9 楼]
    yang-y





    性别: 帅哥 状态: 该用户目前不在线
    等级: 人见人爱
    家族: 异地恋联盟
    发贴: 2236
    威望: 0
    浮云: 1118
    在线等级:
    注册时间: 2005-10-01
    最后登陆: 2010-07-01

    5come5帮你背单词 [ german /'d3ə:mən/ n. 德国人,德语;德国(人)的,德语的 ]


    可以用了。。。
    顶端 Posted: 2006-09-06 22:31 | [10 楼]
    14810



    性别: 帅哥 状态: 该用户目前不在线
    头衔: 操哥
    等级: 荣誉会员
    家族: 国米阵线
    发贴: 21840
    威望: 4
    浮云: 429
    在线等级:
    注册时间: 2004-11-28
    最后登陆: 2012-12-05

    5come5帮你背单词 [ socialism /'səuəlizəm/ n. 社会主义 ]


    可以用了 不错
    顶端 Posted: 2006-09-06 23:15 | [11 楼]
    tongmeng



    性别: 帅哥 状态: 该用户目前不在线
    等级: 栋梁之材
    发贴: 586
    威望: 0
    浮云: 1128
    在线等级:
    注册时间: 2006-01-12
    最后登陆: 2010-09-27

    5come5帮你背单词 [ pawn /po:n/ n. & v. 典当,抵押 ]


    猫儿 不错 有前途啊 哈哈
    顶端 Posted: 2006-09-06 23:27 | [12 楼]
    newton



    性别: 保密 状态: 该用户目前不在线
    头衔: Messi + Aimar
    等级: 人见人爱
    家族: 考研俱乐部
    发贴: 2770
    威望: 1
    浮云: 1777
    在线等级:
    注册时间: 2004-11-27
    最后登陆: 2017-06-08

    5come5帮你背单词 [ troublesome /'trΛblsəm/ a. 令人烦恼的,麻烦的,讨厌的 ]


    鼓励一下LZ
    顶端 Posted: 2006-09-07 11:36 | [13 楼]
    我来我网·5come5 Forum » 程序员之家

    Total 0.011128(s) query 5, Time now is:05-15 07:06, Gzip enabled
    Powered by PHPWind v5.3, Localized by 5come5 Tech Team, 黔ICP备16009856号