Board logo

标题: 【GCD】 [打印本页]
作者: 龙听    时间: 2022-11-1 13:54     标题: 【GCD】

  1. inputs:
  2.         Num1( Numeric ),
  3.         Num2( Numeric ) ;

  5. variables:
  6.         var0( 0 ),
  7.         var1( 0 ),
  8.         var2( 0 ),
  9.         var3( 0 ) ;
  10.   
  11. var0 = AbsValue( Num1 ) ;
  12. var1 = AbsValue( Num2 ) ;

  14. condition1 = var0 = 0 or var1 = 0;
  15. if condition1 then
  16.         var3 = 0
  17. else
  18.         begin
  19.         var2 = MinList( var0, var1 ) ;
  20.         while var2 <> 0
  21.                 begin
  22.                 var3 = var2 ;
  23.                 if var0 > var1 then
  24.                         begin
  25.                         var2 = Mod( var0, var1 ) ;
  26.                         var0 = var2 ;
  27.                         end
  28.                 else if var1 > var0 then
  29.                         begin
  30.                         var2 = Mod( var1, var0 ) ;
  31.                     var1 = var2 ;
  32.                         end
  33.                 else
  34.                         var2 = 0 ;
  35.                 end ;
  36.         end ;

  38. GCD = var3 ;
复制代码




欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2