Определить время выполнения программы

@Studentka · Регистрация: 10.12.2009

Студворк — интернет-сервис помощи студентам

Как в рабочую программу вставить подсчёт время её выполнения? мне нужно ., чтобы программа вконце выводила время, за которое она выполнила все действия. я слышала, что это можно делать с помощью модуля времени.. // если нужно могу выложить сюда текст программы.

@Studentka · 18.03.2010, 16:03 **[ТС]**

как в мою программу вписать функцию , которая считает время выполнения программы/?
вот программа

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program Tower_of_hanoi;
 
uses CRT;
 
procedure Hanoi (n : integer; x, y, z : char);
begin
     if n <> 0 then
     begin
          Hanoi (n - 1, x, z, y);
          writeLn ('Перемещаем диск ', n, ' c  ',  x,  ' на ', y);
          Hanoi (n - 1, z, y, x)
     end
end;
  procedure GetTime(var Hour, Minute, Second, Second100:word);
var
   disk : integer;
begin
     ClrScr;
     write ('Сколько дисков ?');
     readLn (disk);
     Hanoi (disk, 'X', 'Y', 'Z')
end; GetTime(var Hour, Minute, Second, Second100:word);
end.
 
 
а вот функция
 
function fGetTime: LongInt;
var hr, min, sec, sec_100: word;
begin
  GetTime(hr, min, sec, sec_100);
  fGetTime := longint(hr)*360000 + longint(min)*6000 + sec*100 + sec_100;
end;
 
{ и работать с ней: }
var before, after: longint;
begin
  before := fGetTime;
  ...
  after := fGetTime;
  writeln('Действие выполнялось ', (after - before) / 100:0:2,' секунды')
end;

@Puporev · 18.03.2010, 16:28

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

Как в рабочую программу вставить подсчёт время её выполнения?

Все что угодно есть, только программы не. Куда вставлять?
Вообще определение времени делают в начале и в конце программы, потом считают разницу.

@Studentka · 18.03.2010, 16:31 **[ТС]**

программа-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program Tower_of_hanoi;
 
uses CRT;
 
procedure Hanoi (n : integer; x, y, z : char);
begin
     if n <> 0 then
     begin
          Hanoi (n - 1, x, z, y);
          writeLn ('Перемещаем диск ', n, ' c  ',  x,  ' на ', y);
          Hanoi (n - 1, z, y, x)
     end
end;
  procedure GetTime(var Hour, Minute, Second, Second100:word);
var
   disk : integer;
begin
     ClrScr;
     write ('Сколько дисков ?');
     readLn (disk);
     Hanoi (disk, 'X', 'Y', 'Z')
end; GetTime(var Hour, Minute, Second, Second100:word);
end.

Добавлено через 1 минуту
функция-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function fGetTime: LongInt;
var hr, min, sec, sec_100: word;
begin
  GetTime(hr, min, sec, sec_100);
  fGetTime := longint(hr)*360000 + longint(min)*6000 + sec*100 + sec_100;
end;
 
{ и работать с ней: }
var before, after: longint;
begin
  before := fGetTime;
  ...
  after := fGetTime;
  writeln('Действие выполнялось ', (after - before) / 100:0:2,' секунды')
end;

@Puporev · 18.03.2010, 16:32

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

procedure GetTime(var Hour, Minute, Second, Second100:word);

Это у Вас все описание процедуры?

@Studentka · 18.03.2010, 16:34 **[ТС]**

функция-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function fGetTime: LongInt;
var hr, min, sec, sec_100: word;
begin
  GetTime(hr, min, sec, sec_100);
  fGetTime := longint(hr)*360000 + longint(min)*6000 + sec*100 + sec_100;
end;
 
{ и работать с ней: }
var before, after: longint;
begin
  before := fGetTime;
  ...
  after := fGetTime;
  writeln('Действие выполнялось ', (after - before) / 100:0:2,' секунды')
end;

Добавлено через 55 секунд
программа-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Tower_of_hanoi;
 
uses CRT;
 
procedure Hanoi (n : integer; x, y, z : char);
begin
     if n <> 0 then
     begin
          Hanoi (n - 1, x, z, y);
          writeLn ('Перемещаем диск ', n, ' c  ',  x,  ' на ', y);
          Hanoi (n - 1, z, y, x)
     end
end;
 
var
   disk : integer;
begin
     ClrScr;
     write ('Сколько дисков ?');
     readLn (disk);
     Hanoi (disk, 'X', 'Y', 'Z')
end.

Добавлено через 1 минуту

в прошлом было не верно...извените.

@Puporev · 18.03.2010, 16:36

Вот фрагмент программы, никакой специальной процедуры и функции и не нужно.

Pascal
1
2
3
4
5
6
7
8
9
10
GetTime(hour,min,sec,hund);//определяем время начала программы
writeln(hour,':',min,':',sec,':',hund);
t1:=sec*100+min*6000+hund;
 
sort(1,n);//программа сортировки
 
GetTime(hour,min,sec,hund);//время окончания
writeln(hour,':',min,':',sec,':',hund);
t2:=sec*100+min*6000+hund;;
t:=t2-t1;//прошло времени

@Studentka · 18.03.2010, 16:44 **[ТС]**

тоесть первую часть - для подсчёта t1 мне нужно написать перед вызовом процедуры в основной программе, а для t , t2 нужно написать 2ю часть после вызова программы, так?
а gettime- стандартная процедура для модуля DOS?
А вот - sort(1,n);//программа сортировки - это что такое и зачем оно нужно, куда его писать?

@Puporev · 18.03.2010, 16:46

Studentka, Все правильно поняли, а сортировка Вам не нужна, на этом месте Ваш Ханой будет, это пример из случайной программы.

@Studentka · 18.03.2010, 16:52 **[ТС]**

у меня при запуске пишет- неизвестный идентификатор GetTime
как это можно исправить?

@WolfCF · 18.03.2010, 16:56

вроде модуль Dos надо подключить

@Studentka · 18.03.2010, 18:58 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
rogram Tower_of_hanoi;
 
uses CRT;
 
procedure Hanoi (n : integer; x, y, z : char);
begin
     if n <> 0 then
     begin
          Hanoi (n - 1, x, z, y);
          writeLn ('Перемещаем диск ', n, ' c  ',  x,  ' на ', y);
          Hanoi (n - 1, z, y, x)
     end
end;
 
var
   disk : integer;
begin
     ClrScr;
     write ('Сколько дисков ?');
     readLn (disk);
       GetTime(hour,min,sec,hund);//определяем время начала программы
writeln(hour,':',min,':',sec,':',hund);
t1:=sec*100+min*6000+hund;
     Hanoi (disk, 'X', 'Y', 'Z')
 
GetTime(hour,min,sec,hund);//время окончания
writeln(hour,':',min,':',sec,':',hund);
t2:=sec*100+min*6000+hund;;
t:=t2-t1;//прошло времени
end.

такая должна быть программа?

Добавлено через 1 час 46 минут
народ! если у меня нету модуля dos, то может попробывать через модуль timers?
Процедура StartTimer(n) запускает таймер с описателем n.

Процедура StopTimer(n) останавливает таймер с описателем n.

подскажите !

@Puporev · 19.03.2010, 07:01

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

у меня нету модуля dos

Да не может быть? Это стандартный модуль Паскаля, идет в комплекте.
Uses Dos;

@Studentka · 20.03.2010, 13:56 **[ТС]**

у меня при запуске пишет- модуль dos не найден..
может у меня паскаль не нормальный? или это особенности программного обеспечения моего компьютера?

@Puporev · 20.03.2010, 14:10

Наверняка он у Вас лежит в паке Units.
Вот возьмите мой.

@Studentka · 21.03.2010, 13:09 **[ТС]**

МНЕ НУЖНО СКОПИРОВАТЬ DOS.TPU В ПАПКУ UNITS? У МЕНЯ PASCAL ABC, ИЛИ НУЖЕН ДЛЯ ЭТОГО КАКОЙ-ТО ДРУГОЙ?

@Puporev · 21.03.2010, 17:37

Studentka, Нужно сразу писать какой у Вас Паскаль.
В АВС свой модуль, поскольку он рабртает под Виндой, Модуль Timers.

@Studentka · 21.03.2010, 18:17 **[ТС]**

эя вкурсе, что там есть такой модуль. Я даже піталась с помощью процедур StartTimer(n) -запускает таймер с описателем n и StopTimer(n)- останавливает таймер с описателем n найти время віполнения.
но почему -то у меня не получилось.
можете мне подсказать как его использовать правильно.

@Puporev · 21.03.2010, 18:47

У нас здесь мало кто в АВС постоянно пишет.

@Studentka · 21.03.2010, 18:52 **[ТС]**

ну тогда я могу другой паскаль скачать. вы только объясните мне как время выполнения кода найти .

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108

	Определить время выполнения программы 16.03.2010, 16:47. Показов 45193. Ответов 27 Метки нет (Все метки) Как в рабочую программу вставить подсчёт время её выполнения? мне нужно ., чтобы программа вконце выводила время, за которое она выполнила все действия. я слышала, что это можно делать с помощью модуля времени.. // если нужно могу выложить сюда текст программы. 0

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	18.03.2010, 16:44 [ТС]
	тоесть первую часть - для подсчёта t1 мне нужно написать перед вызовом процедуры в основной программе, а для t , t2 нужно написать 2ю часть после вызова программы, так? а gettime- стандартная процедура для модуля DOS? А вот - sort(1,n);//программа сортировки - это что такое и зачем оно нужно, куда его писать? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	18.03.2010, 16:46
	Studentka, Все правильно поняли, а сортировка Вам не нужна, на этом месте Ваш Ханой будет, это пример из случайной программы. 1

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	18.03.2010, 16:52 [ТС]
	у меня при запуске пишет- неизвестный идентификатор GetTime как это можно исправить? 0

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	18.03.2010, 16:56
	вроде модуль Dos надо подключить 0

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	20.03.2010, 13:56 [ТС]
	у меня при запуске пишет- модуль dos не найден.. может у меня паскаль не нормальный? или это особенности программного обеспечения моего компьютера? 0

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	21.03.2010, 13:09 [ТС]
	МНЕ НУЖНО СКОПИРОВАТЬ DOS.TPU В ПАПКУ UNITS? У МЕНЯ PASCAL ABC, ИЛИ НУЖЕН ДЛЯ ЭТОГО КАКОЙ-ТО ДРУГОЙ? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	21.03.2010, 17:37
	Studentka, Нужно сразу писать какой у Вас Паскаль. В АВС свой модуль, поскольку он рабртает под Виндой, Модуль Timers. 0

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	21.03.2010, 18:17 [ТС]
	эя вкурсе, что там есть такой модуль. Я даже піталась с помощью процедур StartTimer(n) -запускает таймер с описателем n и StopTimer(n)- останавливает таймер с описателем n найти время віполнения. но почему -то у меня не получилось. можете мне подсказать как его использовать правильно. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	21.03.2010, 18:47
	У нас здесь мало кто в АВС постоянно пишет. 0

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	21.03.2010, 18:52 [ТС]
	ну тогда я могу другой паскаль скачать. вы только объясните мне как время выполнения кода найти . 0