-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Dada una hora cualquiera, con los datos de hora, minuto y segundo devolver la hora que corresponde al segundo siguiente.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Proceso SegundoSiguiente
Escribir Sin Saltar "Ingresa el valor de hora:";
Leer hora;
Escribir Sin Saltar "Ingresa el valor de minuto:";
Leer minuto;
Escribir Sin Saltar "Ingresa el valor de segundo:";
Leer segundo;
segundo_siguiente <- segundo+1;
minuto_siguiente <- minuto;
hora_siguiente <- hora;
Si segundo_siguiente = 60 Entonces
segundo_siguiente <- 0;
minuto_siguiente <- minuto_siguiente+1;
FinSi
Si minuto_siguiente = 60 Entonces
minuto_siguiente <- 0;
hora_siguiente <- hora_siguiente+1;
FinSi
Si hora_siguiente = 24 Entonces
hora_siguiente <- 0;
FinSi
Escribir "Valor de hora siguiente: ", hora_siguiente;
Escribir "Valor de minuto siguiente: ", minuto_siguiente;
Escribir "Valor de segundo siguiente: ", segundo_siguiente;
FinProceso
Escribir Sin Saltar "Ingresa el valor de hora:";
Leer hora;
Escribir Sin Saltar "Ingresa el valor de minuto:";
Leer minuto;
Escribir Sin Saltar "Ingresa el valor de segundo:";
Leer segundo;
segundo_siguiente <- segundo+1;
minuto_siguiente <- minuto;
hora_siguiente <- hora;
Si segundo_siguiente = 60 Entonces
segundo_siguiente <- 0;
minuto_siguiente <- minuto_siguiente+1;
FinSi
Si minuto_siguiente = 60 Entonces
minuto_siguiente <- 0;
hora_siguiente <- hora_siguiente+1;
FinSi
Si hora_siguiente = 24 Entonces
hora_siguiente <- 0;
FinSi
Escribir "Valor de hora siguiente: ", hora_siguiente;
Escribir "Valor de minuto siguiente: ", minuto_siguiente;
Escribir "Valor de segundo siguiente: ", segundo_siguiente;
FinProceso