|
最小公倍数,plsql是容易的
SQL> set serverout on
SQL> declare
2 a number;
3 b number;
4 tmp number;
5 lcm number;
6 gcd number;
7 begin
8 lcm:=1;
9 for i in 2..7 loop
10 a:=i;
11 b:=lcm;
12 while a<>0 loop
13 tmp:=a;
14 a:=mod(b,a);
15 b:=tmp;
16 end loop;
17 gcd:=b;
18 lcm:=lcm*i/gcd;
19 dbms_output.put_line(i||','||a||','||b||','||lcm);
20 end loop;
21 end;
22 /
2,0,1,2
3,0,1,6
4,0,2,12
5,0,1,60
6,0,6,60
7,0,1,420
PL/SQL 过程已成功完成。
已用时间: 00: 00: 00.01
SQL> 9
9* for i in 2..7 loop
SQL> c/7/20
9* for i in 2..20 loop
SQL> /
2,0,1,2
3,0,1,6
4,0,2,12
5,0,1,60
6,0,6,60
7,0,1,420
8,0,4,840
9,0,3,2520
10,0,10,2520
11,0,1,27720
12,0,12,27720
13,0,1,360360
14,0,14,360360
15,0,15,360360
16,0,8,720720
17,0,1,12252240
18,0,18,12252240
19,0,1,232792560
20,0,20,232792560
PL/SQL 过程已成功完成。
已用时间: 00: 00: 00.01 |
|