Oracle函数:求两个数的最大公约数

时间:2015-02-26 16:27:12   收藏:0   阅读:1209
 1 CREATE OR REPLACE FUNCTION GETGYS(NUM1 NUMBER, NUM2 NUMBER) RETURN NUMBER IS
 2   RESULTNUM NUMBER;
 3   NUM3      NUMBER;
 4   MINNUM    NUMBER;
 5 BEGIN
 6   IF NUM1 >= NUM2 THEN
 7     MINNUM := NUM2;
 8   ELSE
 9     MINNUM := NUM1;
10   END IF;
11   NUM3 := MINNUM;
12   LOOP
13     IF (MOD(NUM1, NUM3) = 0 AND MOD(NUM2, NUM3) = 0) THEN
14       RESULTNUM := NUM3;
15       EXIT;
16      END IF;
17     NUM3 := NUM3 - 1;
18   END LOOP;
19   RETURN(RESULTNUM);
20 END GETGYS;

2015-02-26 15:23:56

原文:http://www.cnblogs.com/Rainbow-G/p/4301373.html

评论(0
© 2014 bubuko.com 版权所有 - 联系我们:wmxa8@hotmail.com
打开技术之扣,分享程序人生!