Oficina de climatología en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

La oficina de climatología de nuestro país desea saber las siguientes características climatológicas en un mes determinado:
- La temperatura máxima del mes.
- Cuántos días la temperatura superó los 25º C.
- El promedio de las temperaturas del mes.
Considere: ¿Desea registrar otra temperatura?, para poder continuar o terminar con el programa.

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

Proceso OficinaDeClimatologia

    dias_del_mes <- 0;

    dias_mas_de_25 <- 0;

    maxima <- 0;

    promedio <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de i:";

        Leer i;

        Escribir Sin Saltar "Ingresa el valor de temperatura del dia:";

        Leer temperatura_del_dia;

        Si i = 1 O maxima<temperatura_del_dia Entonces

            maxima <- temperatura_del_dia;

        FinSi

        Si temperatura_del_dia>25 Entonces

            dias_mas_de_25 <- dias_mas_de_25+1;

        FinSi

        dias_del_mes <- dias_del_mes+1;

        promedio <- promedio+temperatura_del_dia;

        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 dias_del_mes = 0 Entonces

        promedio <- 0;

    SiNo

        promedio <- promedio/dias_del_mes;

    FinSi

    Escribir "Valor de dias del mes: ", dias_del_mes;

    Escribir "Valor de dias mas de 25: ", dias_mas_de_25;

    Escribir "Valor de maxima: ", maxima;

    Escribir "Valor de promedio: ", promedio;

FinProceso