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

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

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

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

@Puporev · 21.03.2010, 19:02

Так у Вас в последнем коде вроде правильно написано. На Турбо Паскале должно работать.

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

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
uses CRT,dos;
 
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;
   hour,min,sec,hund:word;
   t1,t2,t:longint;
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;
write('t=',t);
readln
end.

@Studentka · 21.03.2010, 19:02 **[ТС]**

У меня пишет error: line 11 too long

эта строка- Hanoi (n - 1, z, y, x)
что ему не нравится?

@Puporev · 21.03.2010, 19:10

Я там строчку в код добавил
write('t=',t);
А приколы АВС я не понимаю, в Турбо все работает.

Добавлено через 4 минуты
Во, я по инерции 3 диска вводил, при 15 уже показывает время 66 миллисекунд.

@Studentka · 21.03.2010, 19:26 **[ТС]**

работает! спасибо огромное!

@Puporev · 21.03.2010, 19:30

Pascal
1
2
3
4
5
t2:=sec*100+min*6000+hund;;
t:=t2-t1;
write('t=',t);//вот сюда
readln
end.

У меня при 15 дисках дает 55 млс. Но у меня компьютер не очень... Введите например 25 или 30 дисков.

@Studentka · 21.03.2010, 19:44 **[ТС]**

а наше t- тоесть наше время получается в каких единицах времени?

@Puporev · 21.03.2010, 19:45

Studentka, Я сделал в миллисекундах.
Я забыл в коде поправить, напишите

Pascal
1
write('t=',t,' mls');

@buzzefall · 27.12.2012, 19:31

Puporev, можно спросить, ранее в теме вы писали sec*100, но в секунде же 1000 миллисекунд. Это вроде как ошибка... Извините за некропост, но я думаю людям полезна будет поправка, коли я нашел эту тему в поисковике. Или, если я не прав, объясните сию особенность кода пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

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

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

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	21.03.2010, 19:02 [ТС]
	У меня пишет error: line 11 too long эта строка- Hanoi (n - 1, z, y, x) что ему не нравится? 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	21.03.2010, 19:10
	Я там строчку в код добавил write('t=',t); А приколы АВС я не понимаю, в Турбо все работает. Добавлено через 4 минуты Во, я по инерции 3 диска вводил, при 15 уже показывает время 66 миллисекунд. 1

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	21.03.2010, 19:26 [ТС]
	работает! спасибо огромное! 0

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
	21.03.2010, 19:44 [ТС]
	а наше t- тоесть наше время получается в каких единицах времени? 0

@buzzefall 0 / 0 / 2 Регистрация: 02.12.2012 Сообщений: 17
	27.12.2012, 19:31
	Puporev, можно спросить, ранее в теме вы писали sec*100, но в секунде же 1000 миллисекунд. Это вроде как ошибка... Извините за некропост, но я думаю людям полезна будет поправка, коли я нашел эту тему в поисковике. Или, если я не прав, объясните сию особенность кода пожалуйста. 0