| Pregunta: | 2949 - MEDIR TIEMPO DE EJECUCION |
| Autor: | Leonardo Ippolito |
| Necesito comparar el tiempo de ordenamiento de tres algoritmos. Existe alguna función que me devuelva el tiempo actual, o algo referido a tiempo... Sugerencias! | |
| Respuesta: | Francisco Pereyra |
| Yo tambien estoy interesado en lo mismo...la respuesta anterior solo devuelve centesimas de segundo, en la cual podria no haber diferencias...segun tengo entendido, podria haber algun comando en la Libreria Sysutils que te permite obtener la diferencia...Por mi parte solo encontre comandos para Delphi que si permitian obtener milisegundos usando comandos de una unidad Tdate y assignado a las variable starttime:= Now o starttime:=time... pero es todo un tema.... | |
| Respuesta: | Adalberto Sanchez Diaz |
| En el HELP de pascal se encuentra el siguiente ejemplo GetTime. Este retorna la Hora del sistema; si lo ejecutas cuando inicie y termine el algoritmo quedaria pendiente hacer la resta de tiempos. {GetTime.PAS} {Sample code for the GetTime procedure.} { For Windows: } { uses WinDos, WinCrt; } uses Dos; var h, m, s, hund : Word; function LeadingZero(w : Word) : String; var s : String; begin Str(w:0,s); if Length(s) = 1 then s := ´0´ + s; LeadingZero := s; end; begin GetTime(h,m,s,hund); Writeln(´It is now ´,LeadingZero(h),´:´, LeadingZero(m),´:´,LeadingZero(s), ´.´,LeadingZero(hund)); end. atetamente | |