Время работы программы - 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.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы