Tools
dunteman.asc
Associated article: Structured Programming
Tags: Tools
_STRUCTURED PROGRAMMING COLUMN_
by Jeff Duntemann
[LISTING ONE]
FUNCTION Modulus(X,Y : Integer) : Integer;
VAR
R : Real;
BEGIN
R := X/Y;
IF R < 0 THEN
Modulus := X-(Y*Trunc(R-1))
ELSE
Modulus := X-(Y*Trunc(R));
END;
[LISTING TWO]
PROGRAM ...


