523066680

Re 7 楼
代码问题可不小

[ 本帖最后由 523066680 于 2009-2-7 14:59 编辑 ]

wxcute

我来描述一下程序应有什么功能罢

　　判断输入正确性及计算顺序；
　　对两个分数进行相应四则运算，直到计算完成；
　　　　循环调用（这个可能比较难）
　　最小公约数、最大公倍数计算（已经有了）；
　　输入与输出显示。

defanive

优先级的判断很有难度，括号优先、乘除优先，还有很多，都是很麻烦的。。。

BBCC

给个小建议:运算符可以放在前面
    + 1/2 1/3

还有乘除法呢?可以将不同级运算算放在不同的模块里,然后分开调用,应该维护修改都比较方便的.

defanive

所以说做成函数最方便了。。。

523066680

小改一下~  帖子沉的真快   我下个星期再来喽~ 慢慢来~

简单的两个分数之间的加 减 乘 除    乘用 x  表示

@echo off &setlocal enabledelayedexpansion
set /p input="输入格式如 1/2 + 3/4 两分数之间的乘法用 x 表示 : "
call :readinput "%input%" inp
call :readinput "%inp1:/= %" left
call :readinput "%inp3:/= %" right
if %inp2% equ + (set /a lr1=left1*right2 + right1*left2,lr2=left2*right2)
if %inp2% equ - (set /a lr1=left1*right2 - right1*left2,lr2=left2*right2)
if %inp2% equ x (set /a lr1=left1*right1,lr2=left2*right2)
if %inp2% equ / (set /a lr1=left1*right2,lr2=left2*right1)
    call :cut %lr1% %lr2%
    set /a lr1=lr1/del,lr2=lr2/del
    echo,%lr1%/%lr2%
pause>nul &exit

:readinput
set readinput=0
for %%a in (%~1) do (set /a "readinput+=1" &set %2!readinput!=%%a)
goto :eof

::Function::取出最大公约数，赋值给del
:cut
set /a a=%1,b=%2
:cut-1
set /a mod=a%%b,adb=a/b
if %mod% equ 0 (set del=%b%) else (set /a "a=b,b=mod" &goto :cut-1)
goto :eof
复制代码