unit2.~cpp

用c++builder編寫的漢諾塔實例

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
String Str[100];
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Panel2DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
if(Source==sma)
 {
 sma->Left=X;
 sma->Top=Y;
 }
 if(Source==mid)
 {mid->Left=X;
 mid->Top=Y;
 }
 if(Source==big)
 {
 big->Left=X;
 big->Top=Y;
 }
 if(Source==big1)
 {
 big1->Left=X;
 big1->Top=Y;
 }
if(Source==big2)
 {
 big2->Left=X;
 big2->Top=Y;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::endClick(TObject *Sender)
{
Panel1->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::hX1Click(TObject *Sender)
{
Form2->Close();
}
//---------------------------------------------------------------------------
han(int n,String a,String c,String b)
{
static int i=0;
if(n==1)
{
Str[i]="yuanpan"+IntToStr(n)+"cong" +a+ "yidao"+c;
i++;
}
else
{
han(n-1,a,b,c);
Str[i]="yuanpan"+IntToStr(n)+"cong"+a+"yidao"+c;
i++;
han(n-1,b,c,a);

}
}
void __fastcall TForm2::inpClick(TObject *Sender)
{
int n,i,j=1;
String a="A",b="B",c="C";
n=StrToInt(InputBox("yuanpanshuruhe","yuanpanshuliang:","3"));
for(i=0;i<n;i++)
j=j*2;
lbout->Items->Add("zonggongbandongle" + IntToStr(j-1)+" ci");
han(n,a,c,b);
for(i=0;i<j;i++)
lbout->Items->Add(Str[i]);
}

//---------------------------------------------------------------------------


void __fastcall TForm2::Label5Click(TObject *Sender)
{
lbout->Clear();        
}
//---------------------------------------------------------------------------

void __fastcall TForm2::N5Click(TObject *Sender)
{
 Panel1->Show();
 PageControl1->Hide();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormCreate(TObject *Sender)
{
Panel1->Hide();
PageControl1->Hide();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::w1Click(TObject *Sender)
{
PageControl1->Show();
Panel1->Hide();
}
//---------------------------------------------------------------------------