program zlo;

Оператор терминалки делает чистку компьютера от лишних файлов, смотрю... вот список из имен файлов с учебными программами на Паскале, "созданными" студентами только на одной машине:

151manda
baton1
crazy
dermo
dibilizm
duura
fakkkkkk
idiot
jopa
kasyak
virus
xxx
zlo
... по-моему, куда интересней, чем стандартные p1 или z2?

А вот такая коротенькая реализация "Ханойской башни" может и пригодится кому... хороший пример к теме о рекурсии. Задача классическая, условие много где есть.

procedure Move (M,A,B:integer);
{Перемещает M верхних колец со стержня A на B}
var C:integer;
begin
 if M=1 then write (A,'->',B,'  ') 
 else begin
  C:=6-A-B; {C - третий стержень}
  Move(M-1,A,C);
  Move(1,A,B);
  Move(M-1,C,B)
 end
end;

var n:integer;
begin
 write('Число колец='); readln(N);
 write ('Порядок перекладывания колец по стержням: ');
 Move(N,1,2);
 reset (input); readln;
end.

11.12.2008, 16:26 [14433 просмотра]