|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Arthur Martirosyan 2:5061/103.51 29 Dec 2002 17:31:25
To : Dmitriy Pilugin
Subject : Ханойские башни.
--------------------------------------------------------------------------------
Понедельник Декабрь 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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
