Board logo

标题: [数值计算] 批处理计算两个数的最大公约数(欧几里得算法) [打印本页]

作者: 小竹    时间: 2008-1-7 21:10     标题: 批处理计算两个数的最大公约数(欧几里得算法)

  1. @echo off
  2. set/p a=请输入正整数a
  3. set/p b=请输入正整数b
  4. if %a% lss %b% set temp=%a%,a=%b%,b=%temp%
  5. :start
  6. set /a r=%a%%%%b%
  7. if {%r%}=={0}   goto end
  8. set a=%b%
  9. set b=%r%
  10. goto start
  11. :end
  12. echo a和b的最大公因子是%b%
  13. pause
复制代码





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