home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / excard / exfunc.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  682 b   |  23 lines
  1. DEFINITION MODULE ExFunc;
  2.  
  3. (*                Definitionsmodul ExFunc Version 1.0                 *
  4.  *          Copyright: K. Hartlage, Pr.Stroehen 194, 4993 Rahden      *
  5.  * Berechnung (Ex-)tra langer (Card-)inalzahlen;                      *
  6.  * Verbesserungen, Berichtigungen und eigene Anwendungen bitte an die *
  7.  * obige Adresse senden                                               *)
  8.  
  9. FROM Excard IMPORT ExCard;
  10.  
  11. PROCEDURE ExFak(VAR facc : ExCard; f : CARDINAL);
  12.  
  13. PROCEDURE MueberN(VAR result : ExCard;m,n : CARDINAL);
  14.  
  15. PROCEDURE ExggT(VAR ggt,n0,m0 : ExCard);
  16.  
  17. PROCEDURE ExkgV(VAR kgv,n0,m0 : ExCard);
  18.  
  19. PROCEDURE ExSum(VAR sum,n : ExCard);
  20.  
  21. END ExFunc.
  22.  
  23.