greedy.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

program Thanoi;
const n=4;
procedure Hanoi(n,i,j:integer);
var k:integer;
begin
     if (n=1) then write('(',i,',',j,') ')
     else
         begin
              k:=6-i-j;
              hanoi(n-1,i,k);
              writeln('(',i,',',j,') ');
              hanoi(n-1,k,j);
         end;
end;
begin
writeln('*************');
hanoi(n,2,3);
readln;
end.