例1 从键盘输入一个以摄氏度为单位的气温数字，若不小于35.0，则在屏幕上显示高温热浪这一要求
程序源码：
program ex01 implicit none real T write(*,*) "输入气温" read(*,*)T !从键盘输入一个数值，其后的T表示将输入的数值赋予变量 if(T>=35.0)then write(*,*)\'T=\',T,\'高温热浪\' end if end
逻辑IF语句
program ex01 implicit none real T write(*,*) "输入气温" read(*,*)T !从键盘输入一个数值，其后的T表示将输入的数值赋予变量 if(T>=35.0) write(*,*)\'T=\',T,\'高温热浪\' end
例题1：
选择语句形式多样，可以利用一种或多种选择 语句编写不同的程序代码实现同一个目的。选择语 句示例第八题：已知 U，V 风速，判断风向的问题， 课件中给出了具体的程序代码，本次作业请改写该 程序。 备注：风速一般保留至小数点后 1 位。
课件中具体程序代码： program ex0308 real u,v read *, u,v if (u>0.0) then if (v>0.0) then !u>0,v>0 print *, \'西南风\' else if (v<0.0) then ! u>0, v<0 print *, \'西北风\' else ! u>0,v=0 print *, \'西风\' end if else if (u<0.0) then if (v>0.0) then !u<0,v>0 print *, \'东南风\' else if (v<0.0) then ! u<0, v<0 print *, \'东北风\' else ! u<0,v=0 print *, \'东风\' end if else if (v>0.0) then !u=0,v>0 print *, \'南风\' else if (v<0.0) then ! u=0, v<0 print *, \'北风\' else ! u=0,v=0 print *, \'无风\' end if end if end
我的程序源码：
PROGRAM ex3 real u,v read*,u,v if(u>0.0)then if(v>0.0)print*,\'西南风\' if(v<0.0)print*,\'西北风\' if(v==0.0)print*,\'西风\' else if(u<0.0)then if(v>0.0)print*,\'东南风\' if(v<0.0)print*,\'东北风\' if(v==0.0)print*,\'东风\' else if(v>0.0)print*,\'南风\' if(v<0.0)print*,\'北风\' if(v==0.0)print*,\'无风\' end if END
运行截图：
标准答案：
改写后的程序1： program ex0308 real u,v read *, u,v if (u>0.0.and.v>0.0) print *, \'西南风\' if (u>0.0.and.v<0.0) print *, \'西北风\' if (u>0.0.and.v==0) print *, \'西风\' if (u<0.0.and.v>0.0) print *, \'东南风\' if (u<0.0.and.v<0.0) print *, \'东北风\' if (u<0.0.and.v==0.0) print *, \'东风\' if (u==0.0.and.v>0.0) print *, \'南风\' if (u==0.0.and.v<0.0) print *, \'北风\' if (u==0.0.and.v==0.0) print *, \'无风\' End 改写后的程序2: program ex0308 real u,v read *, u,v if (u>0.0) then SELECT CASE(INT(v*10)) CASE(1:) print *, \'西南风\' CASE(:-1) print *, \'西北风\' CASE(0) print *, \'西风\' END SELECT else if (u<0.0) then SELECT CASE(INT(v*10)) CASE(1:) print *, \'东南风\' CASE(:-1) print *, \'东北风\' CASE(0) print *, \'东风\' END SELECT else SELECT CASE(INT(v*10)) CASE(1:) print *, \'南风\' CASE(:-1) print *, \'北风\' CASE(0) print *, \'无风\' END SELECT end if end
例题2：
人体对气候条件感觉的舒适与否，首先取决于气温，其次湿度和风速等因素也起着重要作用。3.1节已经根据人体舒适度计算公式，编程计算2月23日武汉，深圳，温州，北京，哈尔滨重点疫情城市的人体舒适度指数。
本次作业要求在3.1节所编程序基础上，增加以下内容：
（1）利用选择结构语句，根据人体舒适度指数数值，判断人体舒适度指数等级。
（2）要求每个城市的结果单独一行输出，每一行中输出顺序为城市名、指数等级、体感。
注：体感只输出 ，前的文字即可，例如：寒冷。
1、人体舒适度计算公式：
其中：温度T设定为日平均气温，RH为相对湿度*100，V日平均风速
2、2月23日五个城市日平均气温、RH为相对湿度，V日平均风速：
|
|
武汉 |
深圳 |
温州 |
北京 |
哈尔滨 |
|
日平均气温 |
14.5 |
21.5 |
12.0 |
5.5 |
-7.0 |
|
相对湿度 |
47.% |
45.% |
42.% |
29.% |
58.% |
|
日平均风速（m/s） |
2.45 |
2.45 |
0.9 |
2.45 |
4.4 |
我的程序源码：
PROGRAM main REAL::I1=53.1 REAL::I2=61.8 REAL::I3=52.0 REAL::I4=43.2 REAL::I5=21.6 WRITE(*,"(8X,\'体感 指数等级\')") if(0<I1.and.I1<=25)then write(*,"(2x,\'武汉 寒冷 1\')") else if (25<I1.and.I1<=38)then write(*,"(2x,\'武汉 冷 2\')") else if (38<I1.and.I1<=50)then write(*,"(2x,\'武汉 凉 3\')") else if (50<I1.and.I1<=55)then write(*,"(2x,\'武汉 凉爽 4\')") else if (55<I1.and.I1<=70)then write(*,"(2x,\'武汉 舒服 5\')") else if (70<I1.and.I1<=75)then write(*,"(2x,\'武汉 暖和 6\')") else if (75<I1.and.I1<=80)then write(*,"(2x,\'武汉 热 7\')") else if (85<I1.and.I1<=90)then write(*,"(2x,\'武汉 炎热 8\')") else if (95<I1.and.I1<=100)then write(*,"(2x,\'武汉 酷热 9\')") END IF if(0<I2.and.I2<=25)then write(*,"(2x,\'深圳 寒冷 1\')") else if (25<I2.and.I2<=38)then write(*,"(2x,\'深圳 冷 2\')") else if (38<I2.and.I2<=50)then write(*,"(2x,\'深圳 凉 3\')") else if (50<I2.and.I2<=55)then write(*,"(2x,\'深圳 凉爽 4\')") else if (55<I2.and.I2<=70)then write(*,"(2x,\'深圳 舒服 5\')") else if (70<I2.and.I2<=75)then write(*,"(2x,\'深圳 暖和 6\')") else if (75<I2.and.I2<=80)then write(*,"(2x,\'深圳 热 7\')") else if (85<I2.and.I2<=90)then write(*,"(2x,\'深圳 炎热 8\')") else if (95<I2.and.I2<=100)then write(*,"(2x,\'深圳 酷热 9\')") END IF if(0<I3.and.I3<=25)then write(*,"(2x,\'温州 寒冷 1\')") else if (25<I3.and.I3<=38)then write(*,"(2x,\'温州 冷 2\')") else if (38<I3.and.I3<=50)then write(*,"(2x,\'温州 凉 3\')") else if (50<I3.and.I3<=55)then write(*,"(2x,\'温州 凉爽 4\')") else if (55<I3.and.I3<=70)then write(*,"(2x,\'温州 舒服 5\')") else if (70<I3.and.I3<=75)then write(*,"(2x,\'温州 暖和 6\')") else if (75<I3.and.I3<=80)then write(*,"(2x,\'温州 热 7\')") else if (85<I3.and.I3<=90)then write(*,"(2x,\'温州 炎热 8\')") else if (95<I3.and.I3<=100)then write(*,"(2x,\'温州圳 酷热 9\')") END IF if(0<I4.and.I4<=25)then write(*,"(2x,\'北京 寒冷 1\')") else if (25<I4.and.I4<=38)then write(*,"(2x,\'北京 冷 2\')") else if (38<I4.and.I4<=50)then write(*,"(2x,\'北京 凉 3\')") else if (50<I4.and.I4<=55)then write(*,"(2x,\'北京 凉爽 4\')") else if (55<I4.and.I4<=70)then write(*,"(2x,\'北京 舒服 5\')") else if (70<I4.and.I4<=75)then write(*,"(2x,\'北京 暖和 6\')") else if (75<I4.and.I4<=80)then write(*,"(2x,\'北京 热 7\')") else if (85<I4.and.I4<=90)then write(*,"(2x,\'北京 炎热 8\')") else if (95<I4.and.I4<=100)then write(*,"(2x,\'北京 酷热 9\')") END IF if(0<I5.and.I5<=25)then write(*,"(2x,\'哈尔滨 寒冷 1\')") else if (25<I5.and.I5<=38)then write(*,"(2x,\'哈尔滨 冷 2\')") else if (38<I5.and.I5<=50)then write(*,"(2x,\'哈尔滨 凉 3\')") else if (50<I5.and.I5<=55)then write(*,"(2x,\'哈尔滨 凉爽 4\')") else if (55<I5.and.I5<=70)then write(*,"(2x,\'哈尔滨 舒服 5\')") else if (70<I5.and.I5<=75)then write(*,"(2x,\'哈尔滨 暖和 6\')") else if (75<I5.and.I5<=80)then write(*,"(2x,\'哈尔滨 热 7\')") else if (85<I5.and.I5<=90)then write(*,"(2x,\'哈尔滨 炎热 8\')") else if (95<I5.and.I5<=100)then write(*,"(2x,\'哈尔滨 酷热 9\')") END IF END
运行截图：
标准答案：
program main implicit none real:: t1,rh1,v1,ichb1 character*6 name write(*,*)\'城市名 指数 指数等级 体感\' t1=14.5 rh1=47. v1=2.45 name= \' 武汉 \' ichb1=(1.8*t1+32)-0.55*(1-rh1/100.)*(1.8*t1-26.)-3.2*sqrt(v1) if(ichb1<=25.0) write(*,100) name,ichb1,\' 1级 \',\'寒冷\' if(ichb1>25.0.and.ichb1<=38.0) write(*,100) name,ichb1,\' 2级 \',\'冷\' if(ichb1>38.0.and.ichb1<=50.0) write(*,100) name,ichb1,\' 3级 \',\'凉\' if(ichb1>50.0.and.ichb1<=55.0) write(*,100) name,ichb1,\' 4级 \',\'凉爽\' if(ichb1>55.0.and.ichb1<=70.0) write(*,100) name,ichb1,\' 5级 \',\'舒服\' if(ichb1>70.0.and.ichb1<=75.0) write(*,100) name,ichb1,\' 6级 \',\'暖和\' if(ichb1>75.0.and.ichb1<=80.0) write(*,100) name,ichb1,\' 7级 \',\'热\' if(ichb1>80.0.and.ichb1<=85.0) write(*,100) name,ichb1,\' 8级 \',\'炎热\' if(ichb1>85.0) write(*,100) name,ichb1,\' 9级 \',\'酷热\' name= \' 深圳 \' t1=21.5 rh1=45. v1=2.45 ichb1=(1.8*t1+32)-0.55*(1-rh1/100.)*(1.8*t1-26.)-3.2*sqrt(v1) if(ichb1<=25.0) write(*,100) name,ichb1,\' 1级 \',\'寒冷\' if(ichb1>25.0.and.ichb1<=38.0) write(*,100) name,ichb1,\' 2级 \',\'冷\' if(ichb1>38.0.and.ichb1<=50.0) write(*,100) name,ichb1,\' 3级 \',\'凉\' if(ichb1>50.0.and.ichb1<=55.0) write(*,100) name,ichb1,\' 4级 \',\'凉爽\' if(ichb1>55.0.and.ichb1<=70.0) write(*,100) name,ichb1,\' 5级 \',\'舒服\' if(ichb1>70.0.and.ichb1<=75.0) write(*,100) name,ichb1,\' 6级 \',\'暖和\' if(ichb1>75.0.and.ichb1<=80.0) write(*,100) name,ichb1,\' 7级 \',\'热\' if(ichb1>80.0.and.ichb1<=85.0) write(*,100) name,ichb1,\' 8级 \',\'炎热\' if(ichb1>85.0) write(*,100) name,ichb1,\' 9级 \',\'酷热\' name= \' 温州 \' t1=12.0 rh1=42. v1=0.9 ichb1=(1.8*t1+32)-0.55*(1-rh1/100.)*(1.8*t1-26.)-3.2*sqrt(v1) if(ichb1<=25.0) write(*,100) name,ichb1,\' 1级 \',\'寒冷\' if(ichb1>25.0.and.ichb1<=38.0) write(*,100) name,ichb1,\' 2级 \',\'冷\' if(ichb1>38.0.and.ichb1<=50.0) write(*,100) name,ichb1,\' 3级 \',\'凉\' if(ichb1>50.0.and.ichb1<=55.0) write(*,100) name,ichb1,\' 4级 \',\'凉爽\' if(ichb1>55.0.and.ichb1<=70.0) write(*,100) name,ichb1,\' 5级 \',\'舒服\' if(ichb1>70.0.and.ichb1<=75.0) write(*,100) name,ichb1,\' 6级 \',\'暖和\' if(ichb1>75.0.and.ichb1<=80.0) write(*,100) name,ichb1,\' 7级 \',\'热\' if(ichb1>80.0.and.ichb1<=85.0) write(*,100) name,ichb1,\' 8级 \',\'炎热\' if(ichb1>85.0) write(*,100) name,ichb1,\' 9级 \',\'酷热\' name= \' 北京 \' t1=5.5 rh1=29. v1=2.45 ichb1=(1.8*t1+32)-0.55*(1-rh1/100.)*(1.8*t1-26.)-3.2*sqrt(v1) if(ichb1<=25.0) write(*,100) name,ichb1,\' 1级 \',\'寒冷\' if(ichb1>25.0.and.ichb1<=38.0) write(*,100) name,ichb1,\' 2级 \',\'冷\' if(ichb1>38.0.and.ichb1<=50.0) write(*,100) name,ichb1,\' 3级 \',\'凉\' if(ichb1>50.0.and.ichb1<=55.0) write(*,100) name,ichb1,\' 4级 \',\'凉爽\' if(ichb1>55.0.and.ichb1<=70.0) write(*,100) name,ichb1,\' 5级 \',\'舒服\' if(ichb1>70.0.and.ichb1<=75.0) write(*,100) name,ichb1,\' 6级 \',\'暖和\' if(ichb1>75.0.and.ichb1<=80.0) write(*,100) name,ichb1,\' 7级 \',\'热\' if(ichb1>80.0.and.ichb1<=85.0) write(*,100) name,ichb1,\' 8级 \',\'炎热\' if(ichb1>85.0) write(*,100) name,ichb1,\' 9级 \',\'酷热\' name= \'哈尔滨\' t1=-7.0 rh1=58. v1=4.4 ichb1=(1.8*t1+32)-0.55*(1-rh1/100.)*(1.8*t1-26.)-3.2*sqrt(v1) if(ichb1<=25.0) write(*,100) name,ichb1,\' 1级 \',\'寒冷\' if(ichb1>25.0.and.ichb1<=38.0) write(*,100) name,ichb1,\' 2级 \',\'冷\' if(ichb1>38.0.and.ichb1<=50.0) write(*,100) name,ichb1,\' 3级 \',\'凉\' if(ichb1>50.0.and.ichb1<=55.0) write(*,100) name,ichb1,\' 4级 \',\'凉爽\' if(ichb1>55.0.and.ichb1<=70.0) write(*,100) name,ichb1,\' 5级 \',\'舒服\' if(ichb1>70.0.and.ichb1<=75.0) write(*,100) name,ichb1,\' 6级 \',\'暖和\' if(ichb1>75.0.and.ichb1<=80.0) write(*,100) name,ichb1,\' 7级 \',\'热\' if(ichb1>80.0.and.ichb1<=85.0) write(*,100) name,ichb1,\' 8级 \',\'炎热\' if(ichb1>85.0) write(*,100) name,ichb1,\' 9级 \',\'酷热\' 100 format(1x,a6,3x,f5.1,4x,a8,4x,a4) end program main
标准答案运行截图：