Tiempo final de un periodo en lenguaje Pascal

Lenguaje

Pascal
Descripción

Evaluar o encontrar el tiempo final de un periodo de tiempo dado, expresándolo en horas y minutos. Las horas van de 0 a 23 y los minutes de 0 a 59. El resultado debe ser mostrado en la consola. Por ejemplo, si el evento comienza a las 12:17 y dura 59 minutos, terminará a las 13:16

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

program TiempoFinalDeUnPeriodo;

uses crt;

var duracion_en_minutos, hora_final, hora_inicial, minuto_final, minuto_inicial : integer;

begin

    write ('Ingresa el valor de duracion en minutos: ');

    readln (duracion_en_minutos);

    write ('Ingresa el valor de hora inicial: ');

    readln (hora_inicial);

    write ('Ingresa el valor de minuto inicial: ');

    readln (minuto_inicial);

    minuto_final := (minuto_inicial+duracion_en_minutos) mod 60;

    hora_final := hora_inicial+(minuto_inicial+duracion_en_minutos-minuto_final) div 60;

    hora_final := hora_final mod 24;

    writeln ('Valor de hora final: ', hora_final);

    writeln ('Valor de minuto final: ', minuto_final);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.