БлогNot. program zlo;

Помощь дата->рейтинг Поиск Почта RSS канал Статистика nickolay.info Домой

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.

теги: алгоритм маразм pascal

11.12.2008, 16:26; рейтинг: 12230

  свежие записипоиск по блогукомментариистатистикао "вирусах" в архивах .zip

Наверх Яндекс.Метрика
© PerS
вход