home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / POWERLOG.ZIP / POWERLOG.PAS
Encoding:
Pascal/Delphi Source File  |  1986-04-11  |  566 b   |  26 lines
  1. program PowerLog;
  2.  
  3. var
  4.   b, x : real;
  5.  
  6. function Power (b, x : real) : real;
  7. begin
  8.   Power := exp (x * ln (b));
  9. end;
  10.  
  11. function Log (b, x : real) : real;
  12. begin
  13.   Log := ln (x) / ln (b);
  14. end;
  15.  
  16. begin
  17.   writeln ('Test of Power function');
  18.   write ('Enter the base and exponent: ');
  19.   readln (b, x);
  20.   writeln (b:0:3, ' raised to the power of ', x:0:3, ' = ', Power (b, x):0:3);
  21.   writeln ('Test of Log function');
  22.   write ('Enter base and argument: ');
  23.   readln (b, x);
  24.   writeln ('Log base ', b:0:3, ' of ', x:0:3, ' = ', Log (b, x):0:3);
  25. end.
  26.