Algoritmo para ler o horário (hora, min e seg) de inicio e a duração, em segundos, de uma experiência biológica, em seguida informar o horário (hora, min, seg) de termino da mesma.

// Faca um algoritmo para ler o horário (hora, min e seg) de inicio e a duração, em segundos, de uma

//experiência biológica, em seguida informar o horário (hora, min, seg) de termino da mesma.

program horario_esperienca_biologica;

uses crt;

var

horaInicio,horaFim,minInicio,minFim,segInicio,segFim:integer;

hsegInicio,hsegFim,intervalo:integer;

begin

writeln(' -------- Horario Inicial -----');

writeln(' HORA:');

writeln(' MINUTOS:');

writeln(' SEGUNDOS:');

readln(horaInicio,minInicio,segInicio);

writeln(' -------- Horario Final -----');

writeln(' HORA:');

writeln(' MINUTOS:');

writeln(' SEGUNDOS');

readln(horaFim,minFim,segFim);

// transforma tudo para segundos

hsegInicio:=horaInicio*60*60 + minInicio*60 + segInicio;

hsegFim:=horaFim*60*60 + minFim*60 + segFim*60;

intervalo:= hsegFim - hsegInicio;

writeln(' RESULTADO: Hora = ', intervalo,' s');

readkey;

end.