• Lenguaje

    Pascal

  • Descripción

    Un meteorológico mensual consiste de una medición promedio diaria para un mes.
    Conociendo el estudio meteorólogico del mes de mayo se pide:
    - Indicar la mayor temperatura del mes y el numero del día a la que corresponde.
    - Indicar la menor temperatura del mes y el numero del día a la que corresponde.
    - La temperatura promedio del mes.
    - La temperatura promedio de la primera quincena del mes.
    - La temperatura promedio de la segunda quincena del mes.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program MeteorologicoMensual;
uses crt;

var dia_mayor, dia_menor, i : integer;
var temperatura_diaria, temperatura_mayor, temperatura_menor, temperatura_promedio, temperatura_promedio_quincena_1 : real;
var temperatura_promedio_quincena_2 : real;
begin
    dia_mayor := 0;
    dia_menor := 0;
    temperatura_mayor := 0;
    temperatura_menor := 0;
    temperatura_promedio := 0;
    temperatura_promedio_quincena_1 := 0;
    temperatura_promedio_quincena_2 := 0;
    for i:=1 to 31 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de temperatura diaria: ');
        readln (temperatura_diaria);
        temperatura_promedio := temperatura_promedio+temperatura_diaria;
        if (i=1) or (temperatura_diaria>temperatura_mayor) then
            begin
                temperatura_mayor := temperatura_diaria;
                dia_mayor := i;
            end;
        if (i=1) or (temperatura_diaria>temperatura_menor) then
            begin
                temperatura_menor := temperatura_diaria;
                dia_menor := i;
            end;
        if i<15 then
            begin
                temperatura_promedio_quincena_1 := temperatura_promedio_quincena_1+temperatura_diaria;
            end
        else
            begin
                temperatura_promedio_quincena_2 := temperatura_promedio_quincena_2+temperatura_diaria;
            end;
        writeln;
    end;
    temperatura_promedio := temperatura_promedio/31;
    temperatura_promedio_quincena_1 := temperatura_promedio_quincena_1/15;
    temperatura_promedio_quincena_2 := temperatura_promedio_quincena_2/16;
    writeln ('Valor de dia mayor: ', dia_mayor);
    writeln ('Valor de dia menor: ', dia_menor);
    writeln ('Valor de temperatura mayor: ', temperatura_mayor:0:6);
    writeln ('Valor de temperatura menor: ', temperatura_menor:0:6);
    writeln ('Valor de temperatura promedio: ', temperatura_promedio:0:6);
    writeln ('Valor de temperatura promedio quincena 1: ', temperatura_promedio_quincena_1:0:6);
    writeln ('Valor de temperatura promedio quincena 2: ', temperatura_promedio_quincena_2:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.