home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / ADAUTIL / MLTEST.ADA < prev    next >
Encoding:
Text File  |  1990-06-28  |  1.1 KB  |  56 lines
  1. with ada_io;    use ada_io;
  2. with math_lib;
  3. procedure mltest is
  4. begin
  5.   put_line("TEST SIN");
  6.   declare
  7.     use math_lib;
  8.     r: float;
  9.   begin
  10.     r := sin(pi/2.0);  put("sin(pi/2.0) = <1.0>: "); put(r,0,8,0); new_line;
  11.   end;
  12.  
  13.   put_line("TEST COS");
  14.   declare
  15.     use math_lib;
  16.     r: float;
  17.   begin
  18.     r := cos(pi/2.0); put("cos(pi/2.0) = <0.0>: "); put(r,0,8,0); new_line;
  19.   end;
  20.  
  21.   put_line("TEST EXP");
  22.   declare
  23.     use math_lib;
  24.     r: float;
  25.   begin
  26.     r := exp(0.0);  put("exp(0.0) = <1.0>: "); put(r,0,8,0); new_line;
  27.   end;
  28.  
  29.   put_line("TEST SQRT");
  30.   declare
  31.     use math_lib;
  32.     r: float;
  33.   begin
  34.     r := sqrt(2.0); put("sqrt(2.0) = <1.41421..>: "); put(r,0,8,0); new_line;
  35.   end;
  36.  
  37.   put_line("TEST LN");
  38.   declare
  39.     use math_lib;
  40.     r: float;
  41.   begin
  42.     r := ln(e); put("ln(e) = <1.0>: "); put(r,0,8,0); new_line;
  43.   end;
  44.  
  45.   put_line("TEST ATAN");
  46.   declare
  47.     use math_lib;
  48.     r: float;
  49.   begin
  50.     r := 4.0 * atan(1.0);
  51.       put("4.0 * atan(1.0) = <3.141...>: "); put(r,0,8,0); new_line;
  52.   end;
  53.  
  54.   put_line("---END TESTS---");
  55. end mltest;
  56.