Время работы программы - Turbo Pascal
Формулировка задачи:
Подскажите, пожалуйста, как определить точное время работы программы, чтобы знать, уложилась ли я в ограничения, которые указывают в начале почти каждой задачки?
Решение задачи: «Время работы программы»
textual
Листинг программы
var t, z : real; begin t := milliseconds; writeln(t, ' время начала работы'); readln(z); writeln((milliseconds - t)/1000, '(сек) время работы программы') end.
Объяснение кода листинга программы
- Переменная t и переменная z объявлены и инициализированы значениями типа real.
- В выражении milliseconds - t/1000 происходит вычитание времени начала работы (переменной t) из текущего времени (milliseconds) и результат приводится к типу real. Затем полученное значение делится на 1000 для получения времени в секундах.
- Значение выражения ((milliseconds - t)/1000) выводится на экран с помощью функции writeln.