Задача о Ханойских башнях. Рекурсивное решение. Время выполнения алгоритма (Pascal)

[MayhemWithMercy]

В центре мира в вершинах равностороннего треугольника в землю вбиты три алмазных шпиля. На одном из них надето 64 золотых диска убывающих радиусов (самый большой – нижний). Трудолюбивые буддийские монахи день и ночь переносят диски с одного шпиля на другой. При этом, диски следует переносить по одному и нельзя класть больший диск на меньший. Когда все диски перенесут на другой шпиль, наступит конец света (задачу и рассказ придумал математик Эдуар Люка в 1883 г.).

В общем алгоритм уже реализован, в программе Lazarus, на языке Pascal, вот только нужно сделать несколько тестов, точнее измерить время выполнения алгоритма, в зависимости от количества колец. Вопрос такой, с помощью каких функций или процедур можно это сделать, и какие может быть модули надо подключить и как это сделать...

[MayhemWithMercy]

Вот пробовал как здесь http://programmersforum.ru/showthread.php?t=34353
Но не могу декларировать такую переменную

ticks : LongInt absolute 0:$46c;

Выдает ошибку синтаксиса...

[hon]

Если каждую секунду будет перемещаться одно кольцо, то операция будет выполнена за 18 446 744 073 709 551 616 секунд. (2^64).

[waleri]

Сообщение от MayhemWithMercy

ticks : LongInt absolute 0:$46c;

Это для ДОС

[MayhemWithMercy]

Ну у меня такая задача, тут уж я ничего не могу поделать, нужно точно знать время выполнения программы, то есть если на 10 кольцах, это неощутимо, то на 64 кольцах, я ждал минут 40, потом мне надоело и я выключил. Вот теперь надо опять включить, только на этот раз замерить.

[MayhemWithMercy]

Вот я в принципе понял как можно замерить время с помощью системных тиков, только не знаю как можно получить доступ к этой ячейке $0000:$046c вот както так она выглядит. Или так $0040:$006C, я точно не знаю...

[MayhemWithMercy]

Сообщение от hon

Если каждую секунду будет перемещаться одно кольцо, то операция будет выполнена за 18 446 744 073 709 551 616 секунд. (2^64).

Если так то на 1 секунду меньше. 2^N-1

[waleri]

Сообщение от MayhemWithMercy

Вот я в принципе понял как можно замерить время с помощью системных тиков, только не знаю как можно получить доступ к этой ячейке $0000:$046c вот както так она выглядит. Или так $0040:$006C, я точно не знаю...

Эти адреса для ДОС. Вы для какой операционки пишете?

[MayhemWithMercy]

Сообщение от waleri

Эти адреса для ДОС. Вы для какой операционки пишете?

Ну, я не сильно еще разбираюсь, но скажу так, у меня стоит Windows XP, пишу в программе Lazarus, вот мне надо замерить там пару вариантов и просто потом я в таблице это выведу в отчете. То есть надо чтобы этот exe-шник на XP работал, надеюсь я правильно вас понял.

[waleri]

http://forum.lazarus.freepascal.org/...p?topic=6099.0