- UID
- 2
- 积分
- 2874674
- 威望
- 1387366 布
- 龙e币
- 1487308 刀
- 在线时间
- 13156 小时
- 注册时间
- 2009-12-3
- 最后登录
- 2024-11-24
|
【GCD】
- inputs:
- Num1( Numeric ),
- Num2( Numeric ) ;
- variables:
- var0( 0 ),
- var1( 0 ),
- var2( 0 ),
- var3( 0 ) ;
-
- var0 = AbsValue( Num1 ) ;
- var1 = AbsValue( Num2 ) ;
- condition1 = var0 = 0 or var1 = 0;
- if condition1 then
- var3 = 0
- else
- begin
- var2 = MinList( var0, var1 ) ;
- while var2 <> 0
- begin
- var3 = var2 ;
- if var0 > var1 then
- begin
- var2 = Mod( var0, var1 ) ;
- var0 = var2 ;
- end
- else if var1 > var0 then
- begin
- var2 = Mod( var1, var0 ) ;
- var1 = var2 ;
- end
- else
- var2 = 0 ;
- end ;
- end ;
- GCD = var3 ;
复制代码 |
论坛官方微信、群(期货热点、量化探讨、开户与绑定实盘)
|