Federación Colombiana de Ciclismo en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

La Federación Colombiana de Ciclismo, quiere mejorar los procesos de entrenamiento de sus deportistas, para ello se requiere diseñar un programa que permita llevar un registro completo de las sesiones de entrenamiento en circuitos cortos, por lo cual se necesita registrar el tiempo en segundos de cada una de las vueltas que el ciclista da al circuito, teniendo en cuenta que solo debe de parar la toma de registros cuando el entrenador lo indique, para posteriormente mostrar el siguiente consolidad de datos:
- Promedio de tiempo por cada vuelta al circuito.
- Mejor tiempo registrado
- Peor tiempo registrado
- Tiempo total en minutos empleado por el deportista.

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
26
27
28
29
30
31
32
33
34
35
36

Proceso FederacionColombianaDeCiclismo

    mejor_tiempo <- 0;

    peor_tiempo <- 0;

    tiempo_total_en_minutos <- 0;

    vueltas <- 0;

    promedio_de_tiempo <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de tiempo en segundos:";

        Leer tiempo_en_segundos;

        promedio_de_tiempo <- promedio_de_tiempo+tiempo_en_segundos;

        tiempo_total_en_minutos <- tiempo_total_en_minutos+tiempo_en_segundos;

        Si vueltas = 0 O mejor_tiempo>tiempo_en_segundos Entonces

            mejor_tiempo <- tiempo_en_segundos;

        FinSi

        Si vueltas = 0 O peor_tiempo<tiempo_en_segundos Entonces

            peor_tiempo <- tiempo_en_segundos;

        FinSi

        vueltas <- vueltas+1;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

    Si vueltas = 0 Entonces

        promedio_de_tiempo <- 0;

    SiNo

        promedio_de_tiempo <- promedio_de_tiempo/vueltas;

    FinSi

    tiempo_total_en_minutos <- (tiempo_total_en_minutos-tiempo_total_en_minutos MOD 60)/60;

    Escribir "Valor de mejor tiempo: ", mejor_tiempo;

    Escribir "Valor de peor tiempo: ", peor_tiempo;

    Escribir "Valor de tiempo total en minutos: ", tiempo_total_en_minutos;

    Escribir "Valor de vueltas: ", vueltas;

    Escribir "Valor de promedio de tiempo: ", promedio_de_tiempo;

FinProceso