Косвенная рекурсия Задача о Ханойских башнях. Принцип косвенной рекурсии АВ А Процедура А вызывает процедуру В, а та, в свою очередь - процедуру А. B. - презентация

1 Косвенная рекурсия Задача о Ханойских башнях

2 Принцип косвенной рекурсии АВ А Процедура А вызывает процедуру В, а та, в свою очередь - процедуру А. B A В программе необходимо предварительное определение второй процедуры B, так как ее вызов встречается в процедуре A, т.е. перед ее полным описанием.

3 Program KosvRecurs; Var A : integer; Procedure Rec2 (Var Y:integer); Forward; Procedure Rec1 (Var X:integer); Begin X := X-1; if X>0 then Rec2; writeln (X); End; Procedure Rec2 (Var Y:integer); Begin Y := Y div 2; if Y>2 then Rec1; writeln (Y); End; Begin A := 15; Rec1(A); End.

4 Ханойские башни Запустите программу, используя ярлык HanoY Towers, находящийся на Рабочем столе; Внимательно прочитайте правила игры. Решите задачу для 3, 4 и 5 дисков.

5 Program Tower; Type Position = (Left, Centre, Right); Var N : integer; Procedure MoveDisk (From, Tol : Position); Procedure writePos (P : Position); Begin case P of Left : write ('1'); Centre : write ('2'); Right : write ('3'); end; End; Begin writePos (From); write('->'); writePos (Tol); writeln End;

6 Procedure MoveTower(Hight : integer; From, Tol, Work : Position); Begin if Hight>0 then begin MoveTower(Hight-1, From, Work, Tol); MoveDisk (From, Tol); MoveTower(Hight-1, Work, Tol, From); end; End; Begin writeln('Введите количество колец '); readln(N); MoveTower(N, Right, Left, Centre); End.