标题: [已解决]求最大公约数，得不到要的结果 [打印本页]
作者: donpps 时间: 2007-1-13 00:58 标题: [已解决]求最大公约数，得不到要的结果
请教：
代码如下，不知错在何处，得不到要的结果
@echo off
rem 求36与另一个正整数（少于36）的最大公约数
:start
set y=36
set /p x= 输入小于36的正整数：
:divisor
set /a y=%y%%%%x%
if %y%==0 set mcdivisor=%x% && goto :display
set x=%x%%%%y%
if %x%==0 set mcdivisor=%y% && goto :display
goto :divisor
:display
echo mcdivisor:%mcdivisor%
pause
goto :start
[ Last edited by donpps on 2007-1-13 at 02:13 AM ]
作者: youxi01 时间: 2007-1-13 01:30
试试这个：
@echo off
echo.
echo 求两数的最大公约数
echo ================================
title 求两数的最大公约数
setlocal enabledelayedexpansion
set /p num1=请输入第一个数字：
set /p num2=请输入第二个数字：
echo --------------------------------
echo %num1%和%num2%最大公约数为：
:test
set /a temp=%num1% %% %num2%
if %temp% NEQ 0 (
set /a num1=!num2!
set /a num2=!temp!
goto :test)
echo %num2%
pause>nul
[ Last edited by youxi01 on 2007-1-13 at 02:27 AM ]echo.
echo 求两数的最大公约数
echo ================================
title 求两数的最大公约数
setlocal enabledelayedexpansion
set /p num1=请输入第一个数字：
set /p num2=请输入第二个数字：
echo --------------------------------
echo %num1%和%num2%最大公约数为：
:test
set /a temp=%num1% %% %num2%
if %temp% NEQ 0 (
set /a num1=!num2!
set /a num2=!temp!
goto :test)
echo %num2%
pause>nul
作者: youxi01 时间: 2007-1-13 01:33
TO: 楼主，你的错误的地方是那个y应该要交换的，而你直接去定义了
“set /a y=%y%%%%x%”
作者: donpps 时间: 2007-1-13 01:51
谢谢指正，2楼的代码有点小小毛病
echo %num1%和%num2%最大公约数为：%num2%
其中%num1%和%num2%已经变化
作者: jmz573515 时间: 2007-1-20 03:19
VBS写一个，灌水~
a=inputbox("请输入两个数用空格分开:")
h=split(a," ")
min=h(0)
if h(0)>h(1) then min=h(1)
for i=1 to min
if h(0) mod i=0 and h(1) mod i=0 then s=i
next
msgbox h(0)&"和"&h(1)&"的最大公约数是:"&s
h=split(a," ")
min=h(0)
if h(0)>h(1) then min=h(1)
for i=1 to min
if h(0) mod i=0 and h(1) mod i=0 then s=i
next
msgbox h(0)&"和"&h(1)&"的最大公约数是:"&s