BAI TOAN THAP HA NOI DAY

VAO DAY DE BAN NHAU VE BAI TOAN THAP HA NOI

Đệ qui thì chỉ như vầy thôi !!!!!!!!!!!!

Procedure ThapHN(n,a,b,c:Integer);
Begin
If n>0 Then
Begin
ThapHN(n-1,a,c,b);
Writeln(a,'--->',b);
ThapHN(n-1,c,b,a);
End;
End;

Thủ tục của nó là như thế đấy !!!!!!!!!!

Để làm được không đệ quy bài toán này cần:

1) Nếu số đĩa là chẵn: Ta phải lặp lại quá trình chuyển đĩa nhỏ nhất trên cột A ( tức là cái đĩa đầu tiên phải dịch chuyển đó ) rồi di chuyển một đĩa khác cho đến lúc hoàn thành. Trong đó, di chuyển đĩa này với quy luật A --> B --> C --> A... Sau khi di chuyển thành công đĩa nhỏ nhất này, ta chỉ còn một cách duy nhất để di chuyển đĩa còn lại.

2) Nếu số đĩa lẻ: Cứ lặp lại quá trình di chuyển đĩa nhỏ nhất rồi di chuyển một đĩa khác cho đến lúc hoàn thành. Trong đó, ta phải di chuyển đĩa nhỏ nhất theo quy luật A --> C --> B --> A... Sau khi đã di chuyển xong đĩa này thì ta chỉ còn duy nhất 1 cách để chuyển các đĩa còn lại