Collection of Delphi useful functions and procedures
ON THIS BLOG, DELPHI PROGRAMMERS CAN FIND FREE USEFUL FUNCTIONS AND PROCEDURES
Greatest common divisor Delphi Function
function
GCD
(
a
,
b
:
integer
):
integer
;
begin
if
(
b
mod
a
) =
0
then
Result
:=
a
else
Result
:=
GCD
(
b
,
a
mod
b
) ;
end
;
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment