-
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
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.
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.