home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PAS_0493.ZIP / POWERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-04-15  |  788 b   |  33 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 391 of 473
  3. From : Mike Patterson                      1:255/14.0           13 Apr 93  15:28
  4. To   : Mark Ouellet
  5. Subj : version numbers
  6. ────────────────────────────────────────────────────────────────────────────────
  7.  MO> 7.10 is not out. JJ is just saying the NEXT version should include
  8.  MO> a "**" operator (Power) as in 2**3 = 2 to the third power.
  9.  
  10. Mark, I know you aren't the guy that said there should be a power
  11. operator, but... }
  12.  
  13. Function RaiseX (X,Y:Real) :Real;
  14. Begin
  15.  X:=LN(X);
  16.  X:=(X*Y);
  17.  X:=EXP(X);
  18.  RAISEX:=X;
  19. End;
  20.  
  21. {and}
  22.  
  23. Function XRt (X,Y:Real) :Real;
  24. Begin
  25.  X:=LN(X);
  26.  X:=(X/Y);
  27.  X:=EXP(X);
  28.  XRT:=X;
  29. End;
  30.  
  31. both work well for me... :)
  32.  
  33. Mike Patterson