|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Dmitriy Pilugin 2:461/214.777 30 Dec 2002 03:37:01 To : Arthur Martirosyan Subject : Ханойские башни. -------------------------------------------------------------------------------- 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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/40433e0fb176.html, оценка из 5, голосов 10
|