Question:
Write a program named weather which does the following:
Asks the user to enter the maximum temperature and minimum temperature.
Calculates the average temperature and heat index
Average = (minimum + maximum)/2
Heat index = average * 4.5
Display the following: “TV9 Weather report”
Maximum Temperature
Minimum Temperature
Average temperature
Heat index
Solution
program weather;
uses crt;
var
max, min, avg, heat : real;
begin
clrscr;
writeln('Please enter maximum temperature');
readln(max);
writeln('Please enter minimum temperature');
readln(min);
avg:= (max + min)/2;
heat:= avg*4.5;
writeln('TV9 Weather Report');
writeln('Maximum Temperature:',max:0:1);
writeln('Maximum Temperature:',min:0:1);
writeln('Average Temperature:',avg:0:1);
writeln('Heat Index:',heat:0:1);
readln();
End.