Блог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

Здесь можно оставить коментарий, обязательны к заполнению только красные поля. Не пишите лишнего, и всё будет хорошо :)

Ваше имя:
Пароль (если желаете зарегистрировать имя):
Любимый URL (если указываете, то вставьте полностью):
Текст сообщения (до 1024 символов):
 
Введите 1-й код из этих чисел:
89448, 47101, 19352, 58202
 

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

  свежие записипоиск по блогукомментироватьстатистика

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