Busca Preguntas

Necesito ayuda para hacer un programa en Pascal?

gabylin - 2007-05-31 20:05:10 - Programming Design

Quisiera ver si me pueden ayudar por que necesito hacer un programa en Pascal que calcule cuantas horas, cuantos minutos y cuantos segundos hay en 3700 segundos; de antemano gracias

Mejor Respuesta:

Aca va el programa hecho, trate de indentarlo para que quede mas prolijo pero evidentemente no me deja :S, espero que te sirva. Saludos! program calcula; const total_segs=3700; {esta es la cantidad de segundos que tenemos} segs_hora=3600; {cantidad de segundos por hora (60*60)} segs_min=60; {cantidad de segundos por minuto} var horas : integer; minutos : integer; segundos : integer; restantes : integer; {aca vamos contando los segundos que nos faltan calcular} begin {ponemos todas las variables en 0} horas:=0; minutos:=0; segundos:=0; restantes:=total_segs; {asignamos el total de segundos a los segundos restantes} while (restantes MOD segs_hora = 0) begin {calculamos las horas mientras la division de los restantes por la cantidad de segs en una hora de resto 0} restantes:=restantes-segs_hora; horas:=horas+1; end; while (restantes MOD segs_min = 0) begin {ahora calculamos los minutos mientras el resto de la division sea 0} restantes:=restantes-segs_min; segundos:=segundos+1; end; {ahora lo que quedan son segundos, entonces los asignamos en la variable segundos} segundos:=restantes; {imprimimos los resultados} writeln('En ',total_segs,' hay ',horas,' Horas ',minutos,' Minutos y ',segundos,' Segundos.'); end.

Respuestas:

Aca va el programa hecho, trate de indentarlo para que quede mas prolijo pero evidentemente no me deja :S, espero que te sirva. Saludos! program calcula; const total_segs=3700; {esta es la cantidad de segundos que tenemos} segs_hora=3600; {cantidad de segundos por hora (60*60)} segs_min=60; {cantidad de segundos por minuto} var horas : integer; minutos : integer; segundos : integer; restantes : integer; {aca vamos contando los segundos que nos faltan calcular} begin {ponemos todas las variables en 0} horas:=0; minutos:=0; segundos:=0; restantes:=total_segs; {asignamos el total de segundos a los segundos restantes} while (restantes MOD segs_hora = 0) begin {calculamos las horas mientras la division de los restantes por la cantidad de segs en una hora de resto 0} restantes:=restantes-segs_hora; horas:=horas+1; end; while (restantes MOD segs_min = 0) begin {ahora calculamos los minutos mientras el resto de la division sea 0} restantes:=restantes-segs_min; segundos:=segundos+1; end; {ahora lo que quedan son segundos, entonces los asignamos en la variable segundos} segundos:=restantes; {imprimimos los resultados} writeln('En ',total_segs,' hay ',horas,' Horas ',minutos,' Minutos y ',segundos,' Segundos.'); end.