Ханойские башни.

From

Dmitriy Pilugin (2:461/214.777)

To

Arthur Martirosyan

Date

2002-12-30T02:37:01Z

Area

RU.ALGORITHMS

                   Привет, Arthur!

13 декабря 2002г. (пятница), Arthur Martirosyan writes to All:

 AM>  _Hi, All !:)

 AM> Ищется алгоритм, исходник или любая прочая инфа по сабжевой игре.
 AM> Заранее благодарен за любую информацию.



=== Cut ===
Program Honoy;
uses crt;
procedure hanoy(n:byte;s,m,e:string);
Begin
if n=1 then Writeln(s,'->',e)
else
 begin
 hanoy((n-1),s,e,m);
 writeln(s,'->',e);
 hanoy((n-1),m,s,e);
 End;
End;
var
a,b,c:string;
Begin
clrscr;
a:='start';
b:='midle';
c:='end';
Hanoy(3,a,b,c);
End.
=== Cut ===


Всего хорошего, Dmitriy Pilugin. (2:461/214.777)

--- GoldED 3.0.1-asa9.1
 * Origin: Простой оригин, в котором ничего нет. ;) (Dima 2:461/214.777)