برج هانوی

[mahtab_18]

سلام
اگر کسی می تواند توضیحی در رابطه به عملکرد برج هانوی بدهد.

با تشکر

[ms_zandy]

این مسئله شامل سه میله و 10 دیسک است که دیسک ها دارای شماره واندازه اند که نسبت به هم نسبت عکس دارند (هرچه شماره دیسک بیشتر اندازه کوچکتر می شود )
کاری که باید کرد آن است که با کمترین حرکت دیسک ها را از بزرگ به کوچک چیند


اگر درگروه زبانهای خانواده C سرچ کنی می توانی سرس آن رابیابی

[aira]

http://www.planet-source-code.com/
ت. این سایت همه چی هست

[daneshjoye_azad]

سلام امیدوارم این توضیح کافی باشه.
ابتدا دیسک 1 رو به میله سوم منتقل مکنیم بعد دیسک 2 رو روی دیسک اول در میله سوم میبریم حالا دیسک 3 رو به میله دوم منتقل میکنیم وبعد به ترتیب دیسکهای 2و1 رو به میله دوم منتقل میکنیم . بعد دیسکهای موجود در میله دوم را به ترتیب1و2و3 به میله سوم منتقل میکنیم. وسپس دیسک 4 رو به میله دوم منتقل کنی و سپس دیسکهای موجود در میله سوم را به میله دوم منتقل کنی

[mahtab_18]

سلام
خیلی ممنون از جوابها من به ÷اسخ سوالم رسیدم

متشکرم

[sahar940]

سلام برای برنامه نویسی برج هانوی ما چطور میتونیم عمل کنیم؟

[Mahdi_Delphi]

به شیوه بازگشتی .
اگه درست یادم باشه کدش توی همین فروم بود
نوشتن خیلی ساده هست

[the Dead]

const max=40;

type

     elem=integer;

   stack=record

     mytop:integer;

     items:array[0..max-1] of elem;

   end;



function empty(s:stack):boolean;

begin

     if s.mytop=-1 then

       empty:=true

     else

       empty:=false

end;



function full(s:stack):boolean;

begin

     if s.mytop=max-1 then

        full:=true

     else

        full:=false;

end;

procedure clear(var s:stack);

begin

   s.mytop:=-1;

end;



procedure push(var s:stack;x:elem);

begin

    s.mytop:=s.mytop+1;

    s.items[s.mytop]:=x;

end;



procedure pop(var s:stack;var x:elem);

begin

    x:=s.items[s.mytop];

    s.items[s.mytop]:=0;

    s.mytop:=s.mytop-1;

end;

procedure scopy(s1:stack;s2:stack;s3:stack;tn:integer);

var t,i:integer;

begin

  writeln;

  for i:=1 to tn do

  begin

   t:=0;

   if not empty(s1) then

   pop(s1,t);

   write('s1 :');

   write(t,',');

  end;

  writeln;

  for i:=1 to tn do

  begin

  t:=0;

   if not empty(s2) then

   pop(s2,t);

   write('s2 :');

   write(t,',');

  end;

  writeln;



  for i:=1 to tn do

  begin

  t:=0;

  if not empty(s3) then

   pop(s3,t);

   write('s3 :');

   write(t,',');

  end;

  writeln;

  writeln('*********');

end;

procedure tower(topn:integer;var s1:stack;var s2:stack;var s3:stack;src:char;aux:char;dest:char);

var t:integer;



begin

if topn=1 then

 begin

  writeln;

  write('Disk 1 from ',src,' to ',dest);

  pop(s1,t);

  push(s3,t);

 end

else begin

  tower(topn-1,s1,s3,s2,src,dest,aux);

  writeln;

  write('Disk ',topn,' from ',src,' to ',dest);

  pop(s1,t);

  push(s3,t);

  tower(topn-1,s2,s1,s3,aux,src,dest);



end;

end;



var

 a:array[1..8,1..8] of integer;

 i,j,n1,fl,n2,n3,n4:integer;

 c:char;

 st1:string;

 s1,s2,s3:stack;

begin

 clear(s1);

 clear(s2);

 clear(s3);

 write('Enter Num of the disks :');

 readln(i);



 for j:=i downto 1 do

  push(s1,j);

 tower(i,s1,s2,s3,'A','B','C');

 readln;

end.

[amin1softco]

والا یک سرچ کوچیک بزنی تو انجمن های همین بخش رو وبلاگا روی زمین و زمان سورس این برج هانوی هست این به روش بازگشتیشه :

#include <iostream>



typedef char tower;



void move(int n, tower x, tower y, tower z) {

if (n > 0) {

move(n - 1, x, z, y);

std::cout << "Move #" << n << " from " << x << " to " << y << '\n';

move(n - 1, z, y, x);

}

}

void main() {

std::cout << "How many disks? ";

int n;

std::cin >> n;

move(n, 'A', 'B', 'C');

}