PRINT
PRINT "気温(℃）と 飽和水蒸気量(g/m3)"
PRINT
DEF F(t)=(217*6.1078*10^((7.5*t)/(t+237.3)))/(t+273.15)
DEF G(v,t)=100*v/F(t)
FOR t=0 TO 40 STEP 5
   PRINT USING "####":t;
   PRINT "度:  ";
   PRINT USING "##.##":ROUND(F(t),2)
NEXT t
PRINT
PRINT
PRINT "気温(℃）と 湿度(％)"
PRINT "     空気中の水蒸気量 9.41(g/m3) の場合"
PRINT "     次第に気温を下げていくと、"
LET v=9.41
FOR t=40 TO 0 STEP -5
   PRINT USING "####":t;
   PRINT "度:  ";
   IF G(v,t)>100 THEN 
      PRINT "100.00 %"
      GOTO 10
   END IF
   PRINT USING "###.##":ROUND(G(v,t),2);
   PRINT " %"
10 NEXT t
   PRINT
   PRINT
   PRINT "密閉された部屋 :  温度２０℃  湿度 54.37 %  水や氷は無い"
   PRINT "室温を５℃まで下げると、"
   PRINT "     水蒸気が凝結して";ROUND(F(20),2);"× 0.5437 −";ROUND(F(5),2);"＝";ROUND(F(20)*0.5437,2)-ROUND(F(5),2);"g"
   PRINT "   の水が窓などに付着します。"
   PRINT "それらをすべてふき取ってから、室温を再び２０℃まで上げると、"
   PRINT "     湿度は";ROUND(100*F(5)/F(20),2);"% になります。"
   PRINT "     湿度は";ROUND(G(F(5),20),2);"% になります。"
   PRINT
END