批处理计算两数的最大公因数

mkl

1. @echo off
   
2. echo 输入要求最大公因数的两个数
   
3. set /p a=num 1 :
   
4. set /p b=num 2 :
   
5. set c=0
   
6. if %a% gtr %b% (goto a) else if %a% equ %b% (goto ab) else goto b
   
7. :a
   
8. set /a c=%a% %% %b%
   
9. set a=%b%
   
10. set b=%c%
    
11. if %c% neq 0 (goto a) else goto en
    
12. :b
    
13. set z=%a%
    
14. set a=%b%
    
15. set b=%z%
    
16. goto a
    
17. :ab
    
18. :en
    
19. echo ^|-----^> %a%

复制代码