La Web del Programador: Comunidad de Programadores
 
    Pregunta:  55805 - AYUDA CON UN RELOJ HH:MM:SS
Autor:  Andres Villanueva
Hola amigos programadores, tengo un problema, estoy iniciando en la programacion con pascal, y me mandaron a hacer un reloj en FORMATO HH:MM:SS, AM, PM

Como puedo hacer para que cree un loop.? con el While.?
sinceramente estoy algo confundido...

Espero su pronta respuesta.!

  Respuesta:  juan miguel Mendoza López
para leer el reloj tienes que usar la libreria 'dos', en este se encuentra la funcion gettime, y para el while no te preocupes, hazlo de la siguiente forma:

uses crt, dos ;
var
hh, mm, ss, mmm : word ;

{hh = hora, mm = minutos, ss = segundos, mmm = milesimas}

begin
while not keypressed {mientras no se presione una tecla}
begin
gettime(hh,mm,ss,mmm) ; {leemos el tiempo del sistema}
gotoxy(0,0) ; {vamos a la posición 0,0}
write(hh,':',mm,':',ss) ; {escribimos al hora como: HH:MM:SS}
end ;
end ;

ya solo te falta condicionarlo para que te muste am o pm y ya está, espero que te sirva, si tienes mas dudas, contactame^^. saludos