home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-LA1.LBR / NUMFUNC.INC < prev    next >
Text File  |  2000-06-30  |  512b  |  16 lines
  1. {NUMFUNC.INC - Turbo Numeric Functions}
  2.  
  3. FUNCTION Power(X : real; Y : integer) : real;
  4.     begin
  5.         Power := Exp( Ln( X ) * Y );
  6.     end; (* Power *)
  7.  
  8. FUNCTION MakeMoney(X : real) : real;
  9.     var
  10.         Cents,
  11.         OldFrac      : real;
  12.     begin
  13.         OldFrac   := Frac(X);
  14.         Cents     := Round(OldFrac * 100.0) / 100.0;
  15.         MakeMoney := X - OldFrac + Cents;
  16.     end; (* MakeMoney *)