Algoritmo para Convertir Segundos a Horas, Minutos y Segundos en PSeInt (2026)

El operador MOD nos da el residuo de una división. Si tienes 65 segundos y los divides entre 60 (1 minuto), sobra 5. Ese «5» es lo que obtenemos con 65 MOD 60. Es esencial para calcular los segundos y minutos restantes.

Al dividir segundos para obtener horas, el resultado suele tener decimales. En PSeInt, la función trunc() elimina los decimales, quedándose solo con la parte entera. Ejemplo: trunc(90 / 60) da 1 (no 1.5).

Algoritmo SegundosAHoras
    // 1. Definición de Variables
    // Todo debe ser Entero porque no existen "medias horas" en formato reloj digital
    Definir totalSeg, horas, minutos, seg, residuo Como Entero;
    
    // 2. Entrada de Datos
    Escribir "=== Conversor de Tiempo ===";
    Escribir "Ingrese la cantidad total de segundos:";
    Leer totalSeg;
    
    // 3. Proceso
    // Paso A: Calcular Horas (1 hora = 3600 segundos)
    horas <- trunc(totalSeg / 3600);
    
    // Paso B: Ver cuánto "sobra" después de quitar las horas
    residuo <- totalSeg MOD 3600;
    
    // Paso C: De lo que sobró, calcular Minutos (1 minuto = 60 segundos)
    minutos <- trunc(residuo / 60);
    
    // Paso D: Los segundos finales son lo que sobra de dividir entre 60
    seg <- residuo MOD 60;
    
    // 4. Salida de Resultados
    Escribir "--------------------------------";
    Escribir "El tiempo equivalente es:";
    Escribir horas, " Horas";
    Escribir minutos, " Minutos";
    Escribir seg, " Segundos";
    Escribir "Formato: ", horas, ":", minutos, ":", seg;
    Escribir "--------------------------------";
    
FinAlgoritmo

Si escribes horas <- total / 3600, PSeInt devolverá un decimal (ej: 1.5 horas). Un reloj no muestra "1.5 horas y 30 minutos", muestra "1 hora y 30 minutos". Es obligatorio cortar los decimales con trunc().

Error frecuente: minutos <- trunc(totalSeg / 60). Esto te dará el total absoluto de minutos (ej: 90 minutos), no los minutos *restantes* (30 minutos) después de sacar la hora. Debes usar el residuo, no el total original.

Algoritmo ConversorValidado
    Definir ts, h, m, s, r Como Entero;
    
    // Ciclo de validación: No acepta negativos
    Repetir
        Escribir "Ingrese los segundos totales (positivo):";
        Leer ts;
        Si ts < 0 Entonces
            Escribir "Error: El tiempo no puede ser negativo.";
        FinSi
    Hasta Que ts >= 0
    
    h <- trunc(ts / 3600);
    r <- ts MOD 3600;  // Residuo de horas
    m <- trunc(r / 60);
    s <- r MOD 60;     // Residuo final
    
    Escribir "Tiempo Convertido:";
    
    // Condicional para plurales (Estética)
    Si h = 1 Entonces
        Escribir h, " hora";
    SiNo
        Escribir h, " horas";
    FinSi
    
    Escribir m, " min y ", s, " seg";
    
FinAlgoritmo