home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / MAGAZINE / DDJMAG / DDJ9102.ZIP / STRUCTUR.ASC < prev    next >
Text File  |  1990-12-26  |  401b  |  29 lines
  1. _STRUCTURED PROGRAMMING COLUMN_
  2. by Jeff Duntemann
  3.  
  4.  
  5.  
  6. [Figure 1: The Zeller expression]
  7.  
  8.  
  9.     (m + 1) * 26        K     J
  10. q + ------------ + K + --- + --- - 2*J
  11.         10              4     4
  12.  
  13.  
  14.  
  15.  
  16. [FIGURE 2]
  17.  
  18. FUNCTION Modulus(X,Y : Integer) : Integer;
  19.  
  20. VAR
  21.   Holder : Integer;
  22.  
  23. BEGIN
  24.   Holder := X MOD Y;
  25.   IF Holder < 0 THEN Inc(Holder,Abs(Y));
  26.   Modulus := Holder;
  27. END;
  28.  
  29.