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

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

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

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

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

Pascal

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

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

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

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

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

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

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 **[ТС]**

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

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

@Studentka 3 / 3 / 0 Регистрация: 10.12.2009 Сообщений: 108
		1
	Определить время выполнения программы 16.03.2010, 16:47. Показов 40024. Ответов 27 Метки нет (Все метки) Как в рабочую программу вставить подсчёт время её выполнения? мне нужно ., чтобы программа вконце выводила время, за которое она выполнила все действия. я слышала, что это можно делать с помощью модуля времени.. // если нужно могу выложить сюда текст программы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	18.03.2010, 16:28	3
	Сообщение от Studentka Как в рабочую программу вставить подсчёт время её выполнения? Все что угодно есть, только программы не. Куда вставлять? Вообще определение времени делают в начале и в конце программы, потом считают разницу. 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	18.03.2010, 16:32	5
	Сообщение от Studentka procedure GetTime(var Hour, Minute, Second, Second100:word); Это у Вас все описание процедуры? 0

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

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

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

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.03.2010, 07:01	13
	Сообщение от Studentka у меня нету модуля dos Да не может быть? Это стандартный модуль Паскаля, идет в комплекте. Uses Dos; 0

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

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

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

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

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

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