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

From

Dmitriy Pilugin (2:461/214.777)

To

Arthur Martirosyan

Date

2003-01-08T04:01:28Z

Area

RU.ALGORITHMS

                   Привет, Arthur!

29 декабря 2002г. (воскресенье), Arthur Martirosyan writes to Dmitriy Pilugin:

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

 AM> Спасибо!
 AM> А как оно работает?

Уже непомню :( на лекции давали. Рекуpсия.

 AM> И нет ли у тебя исходничка с графикой?;)

нету соpи.

 AM> Заранее благодарны!



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

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