Temperatura máximo
Hola y ojala pudieras ayudarme: necesito hacer un programa donde a partir de los datos de cierta cantidad de temperaturas y humedad, el programa debe mostrarme el día de mayor temperatura y la temperatura correspondiente, el día de menor temperatura y su temperatura, la humedad promedio entre el día 10 y 15, cual fue la temperatura promedio entre el día 10 y 15.
Ojala, si es que decides ayudarme, el código no debe tener funciones como array, por que todavía no me las enseñan
lo único que me han enseñado son el for, while y el if-else
El código que tengo es el siguiente
program temperaturas;
uses
wincrt;
var
n,t,h:integer;
begin
writeln('Ingrese las Temperaturas');
readln(t);
writeln('Ingrese las Humedades');
readln(h);
for t:=1 to n do
begin
if t>n then
writeln(t);
end;
end.
Ojala, si es que decides ayudarme, el código no debe tener funciones como array, por que todavía no me las enseñan
lo único que me han enseñado son el for, while y el if-else
El código que tengo es el siguiente
program temperaturas;
uses
wincrt;
var
n,t,h:integer;
begin
writeln('Ingrese las Temperaturas');
readln(t);
writeln('Ingrese las Humedades');
readln(h);
for t:=1 to n do
begin
if t>n then
writeln(t);
end;
end.
1 Respuesta
Respuesta
1
Aquí tienes:
program temperaturas;
uses wincrt;
const
DIA_MIN = 1;
DIA_MAX = 30;
var
nDia: Integer;
tempDia: Real;
humDia: Real;
tempMax, tempMin: Real;
diaMax, diaMin: Integer;
humMed: Real;
begin
humMed := 0;
for nDia := DIA_MIN to DIA_MAX do begin
writeln('Día ', nDia);
writeln('Ingrese las Temperaturas');
readln(tempDia);
writeln('Ingrese las Humedades');
readln(humDia);
if nDia = DIA_MIN then begin
diaMax := nDia;
diaMin := nDia;
tempMax := tempDia;
tempMin := tempDia;
end
else begin
if tempDia > tempMax then begin
diaMax := nDia;
tempMax := tempDia;
end;
if tempDia < tempMin then begin
diaMin := nDia;
tempMin := tempDia;
end;
end;
if (nDia >= 10) and (nDia <= 15) then
humMed := humMed + humDia;
end;
humMed := humMed / (15 - 10 + 1);
WriteLn('Dia Max Temp: ', diaMax, ' Temp Max: ', tempMax);
WriteLn('Dia Min Temp: ', diaMin, ' Temp Min: ', tempMin);
WriteLn('Media Hum 10-15: ', humMed);
end.
program temperaturas;
uses wincrt;
const
DIA_MIN = 1;
DIA_MAX = 30;
var
nDia: Integer;
tempDia: Real;
humDia: Real;
tempMax, tempMin: Real;
diaMax, diaMin: Integer;
humMed: Real;
begin
humMed := 0;
for nDia := DIA_MIN to DIA_MAX do begin
writeln('Día ', nDia);
writeln('Ingrese las Temperaturas');
readln(tempDia);
writeln('Ingrese las Humedades');
readln(humDia);
if nDia = DIA_MIN then begin
diaMax := nDia;
diaMin := nDia;
tempMax := tempDia;
tempMin := tempDia;
end
else begin
if tempDia > tempMax then begin
diaMax := nDia;
tempMax := tempDia;
end;
if tempDia < tempMin then begin
diaMin := nDia;
tempMin := tempDia;
end;
end;
if (nDia >= 10) and (nDia <= 15) then
humMed := humMed + humDia;
end;
humMed := humMed / (15 - 10 + 1);
WriteLn('Dia Max Temp: ', diaMax, ' Temp Max: ', tempMax);
WriteLn('Dia Min Temp: ', diaMin, ' Temp Min: ', tempMin);
WriteLn('Media Hum 10-15: ', humMed);
end.