Замерить скорость выполнения алгоритма - PascalABC.NET
Формулировка задачи:
Как в Pascal ABC измерить скорость выполнения всего кода либо отдельного участка?
Решение задачи: «Замерить скорость выполнения алгоритма»
textual
Листинг программы
uses
System.Diagnostics;
// ...
var stopWatch := new System.Diagnostics.Stopwatch;
stopWatch.Start;
// тут фрагмент кода, время выполнения которого надо измерить
stopWatch.Stop;
var ts := stopWatch.Elapsed;
writelnFormat('Время работы: {0:00}:{1:00}:{2:00}.{3:000}', ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds);
Объяснение кода листинга программы
- Импортируется пространство имен System.Diagnostics.
- Создается экземпляр класса System.Diagnostics.Stopwatch.
- Запускается таймер.
- Выполняется фрагмент кода, время выполнения которого необходимо измерить.
- Останавливается таймер.
- Получается значение остановленного таймера.
- Выводится на экран сообщение, содержащее время выполнения фрагмента кода.