人工智能(梵塔問題)

1題實(shí)驗(yàn)報(bào)告1.熟悉和掌握問題規(guī)約法的原理、實(shí)質(zhì)和規(guī)約過程2.理解規(guī)約圖的表示方法3.熟悉并掌握遞歸解決問題的思想1.利用問題規(guī)約法的原理進(jìn)行問題的分析與描述2.利用遞歸思想進(jìn)行問題的解決2 將2個(gè)盤子從一個(gè)座移到另一個(gè)座，進(jìn)行到此，問題就解決了。最后找到第1⑴主程序流程圖始輸入盤子數(shù)初始化過程繪制初始圖形漢諾塔求解主程序流程圖⑵梵塔求解流程圖 始否是梵塔問題遞歸過程流程圖#include<stdio.h>#include<graphics.h>#include<time.h>#include<dos.h>#include<math.h>#definePAOGAO190/*動(dòng)畫拋高，數(shù)值越小越高*/#definePANHOU10/*#definePANAMOUNT19盤子數(shù)*/typedefintpans;typedefstructs_pillar{ountpanspan[20];/*存放每個(gè)盤的代號(hào)*/arspillarspillar[4];/*三個(gè)臺(tái)柱*/intmovecount=0;/*移動(dòng)計(jì)數(shù)*/voiddrawpillar(pillarsp);voidinit();/*初始化函數(shù)*/voiddrawmat(char*mat,intmatsize,intx,inty,intcolor);/*點(diǎn)陳漢字*/voiddrawpan(pansp,intx,inty);4 voidzimu();voiddrawpps();voidhanoi();/*顯示字幕*//*畫裝盤的臺(tái)柱*//*主算法*/voidhanoi(intn,charone,chartwo,charthree);voidsdelay(intdelay_t);/*函數(shù)申明*/voidfinish();voidmain(void){/*主函數(shù)*/printf("\n\tpleaseinputn(n<=19):");/*輸入要演示的盤子數(shù)*/scanf("%d",&PANAMOUNT);ANAMOUNTawppsMOUNTabcfinish();}voidinit()/*初始化函數(shù)*/{ETECTgminti,n,color;scrinitgraph(&gd,&gm,"c:\\tc");cleardevice();pillar[1].amount=PANAMOUNT;pillar[1].x=105;pillary=405;for(i=1;i<=pillar[1].amount;i++){pillar[1].pan[i]=pillar[1].amount-i+1;}pillar[2].amount=0;pillar[2].x=320;pillary=405;pillar[3].amount=0;pillar[3].x=527;pillary=405;setcolor(YELLOW);settextstyle(0,0,2);/*柱座標(biāo)記*/ outtextxy(105,418,"A");outtextxy(320,418,"B");outtextxy(527,418,"C");setcolor(YELLOW);/*畫框*/setlinestyle(SOLID_LINE,0,NORM_WIDTH);line,479);line(0,0,639,0);line(639,0,639,479);line,479,639,479);line(0,PAOGAO-PANHOU-40,450,PAOGAO-PANHOU-40);/*黃金線*/settextstyle(0,0,1);/*線上字*/outtextxy(250,PAOGAO-PANHOU-50,"PressANYKeytoEXIT/*線上字*/zimu();}voiddrawpillar(pillarsp){x=p.x;/*畫柱*/mount=p.amount;setfillstyle(SOLID_FILL,BROWN);bar(x,(y-mount*PANHOU-20),x+5,y);yxy}voiddrawmat(char*mat,intmatsize,intx,inty,intcolor)/*依次：字模指針、點(diǎn)陣大小、起始坐標(biāo)(x,y)、顏色*/{inti,j,k,n;efor(j=0;j<matsize;j++)for(i=0;i<n;i++)for(k=0;k<8;k++)if(mat[j*n+i]&(0x80>>k))/*測(cè)試為1的位則顯示*/putpixel(x+i*8+k,y+j,color);}voiddrawpan(pansp,intx,inty){setfillstyle(SOLID_FILL,LIGHTGRAY);bar(x-(5+5*p),y-PANHOU+1,x+(5+5*p),y);setlinestyle(SOLID_LINE,0,NORM_WIDTH);setcolor(BLACK);linex-(5+5*p),y,x+(5+5*p),y); line(x-(5+5*p),y+1,x+(5+5*p),y+1);}voidclearpan(pansp,intx,inty){setfillstyle(SOLID_FILL,BLACK);bar(x-(5+5*p),y-PANHOU,x+(5+5*p),y);}voiddrawpps()/*畫裝盤的臺(tái)柱*/{llarspfor(i=1;i<=3;i++){ppillar[i];x=p.x;ypy;mount=p.amount;drawpillar(p);/*畫臺(tái)柱*/for(j=1;j<=mount;j++){drawpan(p.pan[j],x,y-PANHOU*(j-1));}}}voidhanoi(intn,charone,chartwo,charthree){voidmove(charx,chary);/*聲明*/{veonethree}{hanoi(n-1,one,three,two);veonethreehanoi(n-1,two,one,three);}}voidmove(charx,chary) {voidclearprocess();/*申明函數(shù)*/voidaction();/*申明移動(dòng)動(dòng)畫函數(shù)*/itottchara[1];charb[1];a[0]=x;a[1]='\0';b[0]=y;b[1]='\0';xito=y-96;mountf=pillar[ifrom].amount;/*數(shù)量*/mountt=pillar[ito].amount;data=pillar[ifrom].pan[mountf];pillar[ifrom].amount--;/*出棧*/sdelay(6);/*暫停屏幕*/if(movecount>=15)clearprocess();/*清除步驟提示*/countsetcolor(RED);/*輸出移動(dòng)過程*/settextstyle(TRIPLEX_FONT,HORIZ_DIR,1);outtextxy(560,30+movecount*10,a);outtextxy(580,30+movecount*10,"--->");outtextxy(620,30+movecount*10,b);setfillstyle(SOLID_FILL,BLACK);/*涂黑_重畫*/bar(3,pillar[1].y-PANHOU*19-20,584,412);drawpps();/*重畫*/action(data,pillar[ifrom],pillar[ito]);/*此處添加動(dòng)畫函數(shù)*/pillar[ito].amount++;/*入棧*/mountt=pillar[ito].amount;/*刷新數(shù)量*/pillar[ito].pan[mountt]=data;drawpps();/*重畫*/}voidclearprocess(){setfillstyle(SOLID_FILL,BLACK); for(i=0;i<=16;i++){bar(545,30+i*10,638,40+i*10);sdelay/*動(dòng)畫延遲n個(gè)(1/18.2)秒*/}}voidsdelay(intdelay_t){clock_tstart_time;start_time=clock();while((clock()-start_time)<delay_t);/*循環(huán)空語句*/}voidaction(panspan,pillarsfromp,pillarstop)/*移動(dòng)動(dòng)畫*/{floatx1,y1,x2,y2;floatp,q,a;intx,y,temp;/*整形變量用與當(dāng)前幀*/x1=(float)(fromp.x);y1=(float)(fromp.y-fromp.amount*PANHOU-20);/*PANHOU為盤厚常數(shù),減20處理，以便避開柱子*/x2=(float)(top.x);y2=(float)(top.y-top.amount*PANHOU);q=-sqrt((y1-PAOGAO)/(y2-PAOGAO));/*此處注意產(chǎn)生增根*/if(1-q)/*除數(shù)不為0*/{a=(x1-x2*q)/(1-q);p=(y2-PAOGAO)/(x2-a)/(x2-a);/*除以平方*/if(x1<=x2){for(x=floor(x1+0.5);x<floor(x2+0.5);x=x+7){ifkbhitexitESC*/y=floor((p*(x-a)*(x-a)+PAOGAO)+0.5);drawpan(pan,x,y);sdelayclearpan(pan,x,y);/*清除軌跡*