[数值计算] 【共同参与】批处理做简单分数运算

523066680

用批处理做简单的分数加减乘除运算，如果答案不是整数 就用分数形式表示。但是可以化简的要化简。
       回帖中可以只写一种运算，重在参与^_^


（多多捧场啊 我很想很想找个好的话题 现在也就这个了，希望能提起大家的兴趣。）

[ 本帖最后由 523066680 于 2009-2-1 20:08 编辑 ]

523066680

defanive 和 bc这么认真对待，我感到挺惭愧的（论坛其他人呢？）
怎么说也得弄一部分代码出来。

以下代码对于两个分数的加减运算，没有考虑什么其他情况，草草的贴上来了。

@echo off &setlocal enabledelayedexpansion
set /p input="输入格式如 1/2 + 3/4 : "
call :readinput "%input%" inp
call :readinput "%inp1:/= %" left
call :readinput "%inp3:/= %" right
for %%a in (+ -) do (if %inp2% equ %%a (
    set /a left=left1*right2,right=right1*left2,lr1=left%%aright,lr2=left2*right2
    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
复制代码

[ 本帖最后由 523066680 于 2009-2-5 20:58 编辑 ]

523066680

上面在讨论读几年级呢？
         好好加油吧，年龄不是问题，问题是时间在流逝 我以为自己算比较年轻的
哪知光阴似箭，成绩没考好，计算机也没懂多少，过了新年就19了，眼看就要20了，悲哀。


-----------------------------------------------------------------------------------------------------------------
又看了一下帖子，关于多个分数的，做成函数，反复利用吧~
比如先算a+b=AB 再算AB+c .......

[ 本帖最后由 523066680 于 2009-2-5 21:07 编辑 ]

523066680

Re 7 楼
代码问题可不小

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

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