home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
drdobbs
/
1991
/
02
/
structur.asc
< prev
next >
Wrap
Text File
|
1990-12-26
|
401b
|
29 lines
_STRUCTURED PROGRAMMING COLUMN_
by Jeff Duntemann
[Figure 1: The Zeller expression]
(m + 1) * 26 K J
q + ------------ + K + --- + --- - 2*J
10 4 4
[FIGURE 2]
FUNCTION Modulus(X,Y : Integer) : Integer;
VAR
Holder : Integer;
BEGIN
Holder := X MOD Y;
IF Holder < 0 THEN Inc(Holder,Abs(Y));
Modulus := Holder;
END;