Board logo

标题: [数值计算] 批处理计算两数的最大公因数 [打印本页]

作者: mkl    时间: 2008-8-17 16:45     标题: 批处理计算两数的最大公因数

  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%
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2