Cómo comparar Tiempo en Pascal

Cuando se trata de vez en Pascal, se calcula la cantidad de tiempo entre dos eventos diferentes. Por ejemplo, es posible que desee comprobar el tiempo que tarda parte de un programa a ejecutar, o ver cuánto tiempo una persona se ha iniciado sesión o para realizar un seguimiento del tiempo durante una prueba de elección múltiple. Una vez que recoja dos momentos diferentes, que las codifican en una forma numérica, restas y luego mostrar la diferencia horaria.

Instrucciones

1 Abra el archivo de origen Pascal en un editor de texto como el Bloc de notas de Windows.

2 Escriba el siguiente código en la parte superior de su archivo:

Ejemplo de programa;

Dos utiliza;

Utiliza sysutils;

El uso de "Dos" proporciona acceso a la función "GetTime". El uso de "sysutils" proporciona acceso a las funciones de "DecodeTime" "EncodeTime" y.

3 Declarar variables que almacenarán los valores de tiempo añadiendo el código:

var

Hora1, Min1, Sec1, HSec1: Palabra;

Hour2, Min2, Sec2, HSec2: Palabra;

Hora3, Min3, SEC3, MSec3: Palabra;

x, y, z: TDateTime;

4 Obtener la primera vez a principios de la función añadiendo el código:

Empezar

GetTime (hora1, Min1, Sec1, HSec1);

5 Realizar el código principal de su función y luego llamar "GetTime" de nuevo añadiendo el código:

GetTime (Hour2, Min2, Sec2, HSec2);

6 Calcular la diferencia entre los dos tiempos mediante la adición del código:

x: = EncodeTime (hora1, Min1, Sec1, 0);

y: = EncodeTime (Hour2, Min2, Sec2, 0);

z: = y - x;

DecodeTime (z, hora3, Min3, SEC3, MSec3);

La función "EncodeTime" convierte el tiempo en un valor de "TDateTime", que se almacena como un "doble". El código resta los dos veces y luego se decodifica el resultado en un formato imprimible.

7 Mostrar la diferencia de tiempo con la función "writeln" añadiendo el código:

Writeln (formato ( 'Tiempo de diferencia =% d:% d:% d', [hora3, Min3, SEC3]));

Fin.

8 Guardar el archivo, compilar y ejecutar el programa para ver las mediciones de tiempo.