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

From

Arthur Martirosyan (2:5061/103.51)

To

Dmitriy Pilugin

Date

2002-12-29T16:31:25Z

Area

RU.ALGORITHMS

 _Hi, Dmitriy !:)

 Понедельник Декабрь 30 2002 02:37 You wrote:

 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.
Спасибо!
А как оно работает?
И нет ли у тебя исходничка с графикой?;)
Заранее благодарны!


... OK!____________________________________________________________________
--- Желаю удачи и всего хорошего, Arthur M. -------------------------------
 * Origin: Dreams go by opposites (2:5061/103.51)