-
Lenguaje
Pascal
-
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
35
36
37
38
39
40
41
42
43
44
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
program OficinaDeClimatologia;
uses crt;
var dias_del_mes, dias_mas_de_25 : integer;
var i, maxima, promedio, temperatura_del_dia : real;
var tecla_repetir : char;
begin
dias_del_mes := 0;
dias_mas_de_25 := 0;
maxima := 0;
promedio := 0;
repeat
clrscr;
write ('Ingresa el valor de i: ');
readln (i);
write ('Ingresa el valor de temperatura del dia: ');
readln (temperatura_del_dia);
if (i=1) or (maxima<temperatura_del_dia) then
begin
maxima := temperatura_del_dia;
end;
if temperatura_del_dia>25 then
begin
dias_mas_de_25 := dias_mas_de_25+1;
end;
dias_del_mes := dias_del_mes+1;
promedio := promedio+temperatura_del_dia;
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
if dias_del_mes = 0 then
promedio := 0
else
promedio := promedio/dias_del_mes;
writeln ('Valor de dias del mes: ', dias_del_mes);
writeln ('Valor de dias mas de 25: ', dias_mas_de_25);
writeln ('Valor de maxima: ', maxima:0:6);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dias_del_mes, dias_mas_de_25 : integer;
var i, maxima, promedio, temperatura_del_dia : real;
var tecla_repetir : char;
begin
dias_del_mes := 0;
dias_mas_de_25 := 0;
maxima := 0;
promedio := 0;
repeat
clrscr;
write ('Ingresa el valor de i: ');
readln (i);
write ('Ingresa el valor de temperatura del dia: ');
readln (temperatura_del_dia);
if (i=1) or (maxima<temperatura_del_dia) then
begin
maxima := temperatura_del_dia;
end;
if temperatura_del_dia>25 then
begin
dias_mas_de_25 := dias_mas_de_25+1;
end;
dias_del_mes := dias_del_mes+1;
promedio := promedio+temperatura_del_dia;
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
if dias_del_mes = 0 then
promedio := 0
else
promedio := promedio/dias_del_mes;
writeln ('Valor de dias del mes: ', dias_del_mes);
writeln ('Valor de dias mas de 25: ', dias_mas_de_25);
writeln ('Valor de maxima: ', maxima:0:6);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.