Re: School Assignment--Can this be simplified?

[N J Chackowsky <chackowsky@brandonsd.mb.ca>]

And here's the revised version. Interesting that there is no pow()
function defined in elementary_functions at all. Where should I look for
standard numerical constants such as e, pi, etc.?

NJC.

-----------------------------------------------------------------------
--| Calculates and displays the relative humidity based on 
--| the temperature and dew point.
--|
--| Author: N J Chackowsky, Brandon School Division No. 40
--| Last modified: 2000 08 31
-----------------------------------------------------------------------

   with ada.text_io;
   with ada.integer_text_io;
   with ada.float_text_io;
   with ada.numerics.elementary_functions; 

   procedure humidity is
      km : constant float := 5438.0;  -- magic multiplier
      c2k : constant float := 273.15;  -- Celcius -> Kelvin conversion
term

      tempc, tempk : float;   	-- temperature in C and K
      dewc, dewk : float;	-- dew point in C and K
      rh : float;		-- relative humidity
   
   begin -- humidity
   
   	-- Get the temperature and dew point
      ada.text_io.put(item => "What is the temperature in degrees
Celcius? ");
      ada.float_text_io.get(item => tempc);
      ada.text_io.put(item => "What is the dew point in degrees Celcius?
");
      ada.float_text_io.get(item => dewc);
   
   	-- Convert from C to K
      tempk := tempc + c2k;		--probably revise this with a function call
      dewk := dewc + c2k;			--in the next lesson.
   
      rh := ada.numerics.elementary_functions.
		exp(km * (1.0/tempk - 1.0/dewk)) * 100.0;

   	-- Display results
      ada.text_io.put(item => "The relative humidity is ");
      ada.float_text_io.put(item => rh, fore => 1, aft => 1, exp => 0);
      ada.text_io.put(item => "%");
   
   end humidity;