Board logo

标题: 【练习-034】批处理浮点计算 [打印本页]

作者: batman    时间: 2009-2-13 10:39     标题: 【练习-034】批处理浮点计算

出题目的:
 掌握批处理浮点计算的方法
加分标准:
 视情形加分,满分20分
解题限制:
 版主级的暂请观看,但可以做解题提示
题目如下:
 输入任意两个小数(小数点后最多为两位数),通过批处理输出两数的和、差、积、商
(积、商均保留两位小数)。

[ 本帖最后由 batman 于 2009-2-13 17:22 编辑 ]
作者: defanive    时间: 2009-2-13 17:43

Great,不过对分数运算更有兴趣。。。
作者: BBCC    时间: 2009-2-13 18:04

我的思路就是将小数点后面和前面分开,然后就分别计算,再加起来咯...
作者: defanive    时间: 2009-2-13 18:07

我的思路是提取掉小数点,对齐直接相加。。。
作者: BBCC    时间: 2009-2-13 18:15

也行啊...
但是如果不是两位数,而是

1.00000000000000000000000006
9.003

就麻烦了.

但在题目前提下,的确是去掉小数点这样快....
作者: defanive    时间: 2009-2-13 18:39

假若超过了CMD限制的话无论是对齐相加还是分段相加都没好结果。。。
作者: BBCC    时间: 2009-2-13 19:16

不一定这么说,有个大数算法是可以实现的...
作者: batman    时间: 2009-2-13 19:36

提示:
    此题情况相当复杂,大家可要充分考虑,举个例子:当两数为-0.12 -0.08时。
作者: defanive    时间: 2009-2-13 20:47

正负倒没什么问题,主要是看小数点怎么处理。。。
作者: more    时间: 2009-2-13 20:48

做这种题目的局限性太小,而且要耗费大量的精力,个人感觉没有一个星期想完成这个题目是非常困难的,最要命的是花费了大量的精力,最终却没有一点儿实用价值,建议弄个函数,先对算式进行分析然后再进行计算,这样就是对批处理四则运算,浮点运算及大数运算方面的极大贡献了.
    目前我只是分别做了加减乘除四个函数(在加法和减法函数中没有负数的运算),没有把它们集中在一个脚本里,难度太大了(主要是在对算式的分析上).
    真希望哪位牛人能做出这样一个函数来...
作者: lockmove    时间: 2009-2-13 21:00

  1. @echo off&setlocal enabledelayedexpansion
  2. set /p a=1数:
  3. set /p b=2数:
  4. set a2=0
  5. for /f "delims=. tokens=1,2" %%i in ("%a%") do set a1=%%i&set a2=%%j
  6. if "%a2%"=="" goto next1
  7. if %a2% leq 9 goto next2
  8. if %a2% gtr 9 goto next3
  9. :next1
  10. set a2=0
  11. set /a a3=a1*100
  12. goto next4
  13. :next2
  14. set /a a3=a1*100+a2*10
  15. goto next4
  16. :next3
  17. set /a a3=a1*100+a2
  18. goto next4
  19. :next4
  20. for /f "delims=. tokens=1,2" %%i in ("%b%") do set b1=%%i&set b2=%%j
  21. if "%b2%"=="" goto next6
  22. if %b2% leq 9 goto next7
  23. if %b2% gtr 9 goto next8
  24. pause
  25. :next6
  26. set b2=0
  27. set /a b3=b1*100
  28. goto next9
  29. :next7
  30. set /a b3=b1*100+b2*10
  31. goto next9
  32. :next8
  33. set /a b3=b1*100+b2
  34. goto next9
  35. :next9
  36. set sign=2
  37. set /a c=a3+b3
  38. set "s=!c:~-%sign%!"
  39. echo !c:%s%=!.%s%
  40. pause>nul
复制代码
这是加法的
bug有不能以.6代替0.6.结果为0.6时,显示为.6
其他的减法的话c=a3-b3就可以了吧
然后乘法的话sign改成4
除法的话最好.c就是结果了.
这题差不多就这样吧.

[ 本帖最后由 lockmove 于 2009-2-13 21:30 编辑 ]
作者: defanive    时间: 2009-2-13 21:01

LS发布你做的四则函数,有用。。。
作者: BBCC    时间: 2009-2-13 21:34

在cn-dos里发过了吧,表扬一下more同学!
lockmove同学也不错,要是能改成支持任意数是多方便啊...
作者: batman    时间: 2009-2-14 01:55

先发几张程序运行的截图给大家看看,代码就先不发:

作者: 随风    时间: 2009-2-14 04:09

感觉这题不是一般的难唉,尤其是除法。。!!
赞一个先。!
作者: terse    时间: 2009-2-14 11:39

batman兄:
输入数有限制不?位数
作者: BBCC    时间: 2009-2-14 12:50

题目已经写好是两位小数啦...
作者: youxi01    时间: 2009-2-14 12:57

个人支持将含小数的分成两部分计算

以小数点为分割点,分别计算
作者: batman    时间: 2009-2-15 02:45

看来此题确是有难度,我只要公布自己的代码了(自己看着都晕得很。。。):
  1. @echo off&setlocal enabledelayedexpansion
  2. set /p str=输入的两数为:
  3. set /a num_1=0,num_2=0,num=1,v=0
  4. for %%a in (%str%) do (
  5.     set /a n+=1
  6.     for /f "tokens=1,2 delims=." %%b in ("%%a") do (
  7.         set "_!n!=%%b"
  8.         if "%%c" equ "" (
  9.            set ".!n!=00"&set /a m+=1
  10.            if !m! equ 2 set "flag=a"
  11.            ) else (
  12.            set "a=%%c00"&set "a=!a:~,2!"
  13.            set ".!n!=!a!"
  14.         )
  15.      )
  16. )
  17. for %%a in (+#h -#c) do (
  18.     for /f "tokens=1,2 delims=#" %%b in ("%%a") do (
  19.         if "%_1:~,1%" equ "-" set "k1=-"
  20.         if "%_2:~,1%" equ "-" set "k2=-"
  21.         set /a %%c1=_1%%b_2,%%c2=!k1!1%.1%%%100%%b!k2!1%.2%%%100
  22.         if !%%c1! lss 0 (
  23.            if !%%c2! leq -100 set /a %%c2+=100,%%c1-=1
  24.            ) else (
  25.            if !%%c1! equ 0 (
  26.               if !%%c2! lss 0 set "%%c1=-0"&set "a=!%%c2!"&set "%%c2=!a:-=!"
  27.               ) else (
  28.               if !%%c2! lss 0 set /a %%c2+=100,%%c1-=1
  29.            )
  30.          )
  31.          if !%%c2! geq 100 set /a %%c2-=100,%%c1+=1
  32.     )
  33. )
  34. for %%a in (h2 c2) do (
  35.     set "a=!%%a!"&set "a=!a:-=!"&set %%a=!a!
  36.     if !a! lss 10 set "%%a=0!a!"
  37. )
  38. echo 其和为:%h1%.%h2%&echo 其差为:%c1%.%c2%&set /a n=0
  39. if defined flag set ".1="&set ".2="
  40. for %%a in (1 2) do (
  41.     if "!_%%a!" equ "0" (
  42.        set "_%%a="&set /a .%%a=1!.%%a!%%100
  43.        ) else (
  44.        if "!_%%a!" equ "-0" (
  45.           set "_%%a=-"
  46.           ) else (
  47.           set "a=!_%%a!"&set "a=!a:-=!"
  48.           set /a n+=1&call :lp
  49.        )
  50.     )
  51.     if "!.%%a!" neq "" set "a=!.%%a!"&call :loop&set ".%%a=!a!"
  52. )
  53. set /a num1=3-num_1+num_2,m=4-v
  54. if defined flag set /a m=0
  55. if %num1% leq 0 set /a num1=2
  56. for /l %%a in (1,1,%num1%) do set /a num*=10
  57. set /a s=%_1%%.1%*num/%_2%%.2%,j=%_1%%.1%*%_2%%.2%
  58. if %j% lss 0 set "j=%j:-=%"&set "jk=-"
  59. if %s% lss 0 set "s=%s:-=%"&set "sk=-"
  60. if %m% neq 0 if "!j:~%m%!" equ "" set "j=0000%j%"&set "j=!j:~-%m%!"
  61. if %s% lss %num% set "s=%num:~1%%s%"&set "s=!s:~-%num1%!"
  62. if %m% neq 0 set "j=!j:~,-%m%!.!j:~-%m%,2!"
  63. set "s=!s:~,-%num1%!.!s:~-%num1%,2!
  64. for %%a in (s j) do (
  65.     set "a=!%%a!"
  66.     if "!a:.=!" equ "!a!" (
  67.        set "%%a=!%%a!.00"
  68.        ) else (
  69.        if "!a:~-2,1!" equ "." set "%%a=!%%a!0"
  70.     )  
  71.     if "!a:~,1!" equ "." set "%%a=0!%%a!"
  72. )
  73. echo 其积为:%jk%%j%&echo 其商为:%sk%%s%
  74. pause>nul&goto :eof
  75. :lp
  76. set /a num_%n%+=1&set "a=%a:~1%"
  77. if defined a goto lp
  78. goto :eof
  79. :loop
  80. if "%a:~-1%" equ "0" set "a=%a:~,-1%"&set /a v+=1&goto loop
复制代码

[ 本帖最后由 batman 于 2009-2-15 19:16 编辑 ]
作者: batman    时间: 2009-2-15 19:34

&&本人19楼的代码相当复杂,估计大家肯定会看得云里雾里,所以思来想去还
是补充代码编写思路如下,以便理解,同时期待高人出手,给出完美代码:

   一、总体计算思路
   大家知道本题最关键是在对小数点前后两部分数值的处理上,在楼上大家也有
过相关讨论。本人认为在加减法的处理上,应该是要将前后数值分开分别进行计
算然后再做处理(如后面小数位和满百位的处理),最后再在中间补上小数点。
而对乘法,则应是去掉小数点后前后位一起运算,最后从后向前移位补上小数点
。至于除法则是最复杂的,如结果要保留两位小数,你必须要保证除数的数位比
被除数多三位(两数均先去掉小数点),当这一条件没有得到满足时,就要给除
数后面补上足够的0,最后在结果中从后向前移位补上小数点。

   二、对数值的处理
   大家可以看到本人在代码中使用了海量的if语句来做判断,主要是为了处理各
种情况下的数值,大致将情况归纳如下面的12点:
   1 处理原始数值无小数位的情况--从后面补上.00
   2 处理原始数值小数位不满两位的情况--给小数位补上00并提取前面的两位
   3 处理加减计算时小数位大于100的情况--小数位减去100,整数位加1
   4 处理加减计算整数位为负小数位小于-100的情况--小数位加上100,整数位
减1
   5 处理加减计算整数位为0小数位小于0的情况--整数位变为-0,小数位去掉负

   6 处理加减计算整数位为正小数位小于0的情况--小数位加上100,整数位减1
   7 处理加减计算小数位小于10的情况--在小数位前面加上0
   8 处理乘除计算时两数小数位均为00的情况--将小数位置空
   9 处理乘除计算时整数位为0的情况--对小数位进行取余运算
  10 处理乘除计算时结果数位不够小数位的情况--在结果值前面补上足够的0并
从后向前提取小数位(如结果为负数还要先取掉负号最后再补上)
  11 处理乘除计算时结果无小数位的情况--在结果后补上.00
  12 处理乘除计算时结果小数位不足两位的情况--在结果后补上0

   三、感言
   在这次编写代码的过程中,本人深深感受到批处理在处理数值上的不足和缺陷
,这也是本人在出题时始料不及的。没想到其中要考虑的问题是方方面面错综复
杂,本人也曾几次在困难面前想要退缩,但为了给大家一个较满意的答案,还是
硬着头皮写了下来。看来批处理只适合做它适合做的事,想人为强加给它其他的
功能的确是费力不计好。

[ 本帖最后由 batman 于 2009-2-15 19:38 编辑 ]
作者: inittab    时间: 2009-5-2 22:31

练练手。基本思路是化小数为整数运算,得到结果后再恢复成小数。
不支持大数字运算。特别是乘法部分有待完善,需要考虑的成分的确太多了。可能有批漏之处
  1. @echo off&setlocal enabledelayedexpansion
  2. :begin
  3. set /p m=输入(q退出):
  4. if "!m!"=="q" goto :eof
  5. set /p n=输入:
  6. for /f "tokens=1,2 delims=." %%i in ("%m%") do set m1=%%j00&if not "%%j"=="" (set mm=%%i!m1:~0,2!) else set mm=%%i00
  7. for /f "tokens=1,2 delims=." %%i in ("%n%") do set n1=%%j00&if not "%%j"=="" (set nn=%%i!n1:~0,2!) else set nn=%%i00
  8. if "!mm:~0,1!"=="-" (set mm=!mm:~1!&set /a num=2!mm!-1!mm!,mm=1!mm!-num&set mm=-!mm!) else set /a num=2!mm!-1!mm!,mm=1!mm!-num
  9. if "!nn:~0,1!"=="-" (set nn=!nn:~1!&set /a num=2!nn!-1!nn!,nn=1!nn!-num&set nn=-!nn!) else set /a num=2!nn!-1!nn!,nn=1!nn!-num
  10. set /a add=mm+nn
  11. call :check !add! num1
  12. echo 两值之和是: !num1!
  13. set /a sub=mm-nn
  14. call :check !sub! num2
  15. echo 两值之差是: !num2!
  16. set /a mul=mm*nn
  17. if !mul! lss 100 (set num3=0.00) else (
  18. set mul=!mul:~0,-2!
  19. call :check !mul! num3
  20. )
  21. echo 其积为:!num3!
  22. set /a div=100*mm/nn
  23. call :check !div! num4
  24. echo 其商为:%num4%
  25. goto begin
  26. :check
  27. set var=%1&set "_="
  28. if !var! lss 0 (set /a var=-1*var&set _=-)
  29. if !var! lss 10 (set var=00!var!) else if !var! lss 100 set var=0!var!
  30. if "!var:~-2!"=="00" (set var=!var:~0,-2!) else if "!var:~-1!"=="0" (set var=!var:~0,-2!.!var:~-2,1!) else set var=!var:~0,-2!.!var:~-2!
  31. set %2=!_!!var!&goto :eof
复制代码

作者: qq506657335    时间: 2010-8-29 11:20

商的取值不怎么准确。。
如23/36 你写的批处理的结果是0.63
但实际上是0.638888循环。。。
所以取值应该是0.64
作者: Hello123World    时间: 2011-7-27 16:42

回复 5# BBCC
for /f "delims=" %%a in ('%0') do (echo %%a)
是你搞错了('%0'因为"%0"),还是有什么其他的意思——我运行后批处理就不动了。
作者: zhengdalu    时间: 2011-9-22 18:22

这...我新手,请问不是批处理不支持浮点吗
作者: Batcher    时间: 2011-9-22 19:36

回复 25# zhengdalu


你自己试试就知道啦
作者: guaiwu    时间: 2011-9-22 20:20

本帖最后由 guaiwu 于 2011-9-22 20:24 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set /p q=请输入两个小数:
  4. for %%i in (%q%) do (
  5. set /a a+=1
  6. set a!a!=%%i
  7. )
  8. set /a a=%a1%+%a2%
  9. set /a b=%a1%-%a2%
  10. set /a c=%a1%*%a2%
  11. set /a d=%a1%/%a2%
  12. echo 两个小数的和为%a%
  13. echo 两个小数的差为%b%
  14. echo 两个小数相乘为%c%
  15. echo 两个小数相除为%d%
  16. pause
复制代码

作者: zhengdalu    时间: 2011-9-23 21:32

回复 26# Batcher


    我试过,窗口只给显示整数位,小数没有啊。
作者: Batcher    时间: 2011-9-23 22:59

回复 28# zhengdalu


嗯,根据你试的结果,你觉得支持吗?
作者: zhengdalu    时间: 2011-9-24 15:05

我觉得不支持,可是楼主...怎么这么问啊
作者: Batcher    时间: 2011-9-24 20:12

回复 30# zhengdalu


如果你觉得不支持,为何还有25楼的疑问呢?
作者: dengyuli    时间: 2015-1-23 12:01

我发一个自己做的,是除法运算,被除数,除数都可以为小数,支持负数。
最小分度值为10^-8,可以酌情提升,不过效率会降低。
主要思路:
1、将小数化为整数,具体做法是计算被除数和除数小数部分字串的长度,若被除数的小数部分长度大于除数的小数部分的长度,则在除数的小数部分后补上0,直到除数的小数部分的长度与被除数的小数部分的长度一样,反之亦然,再去掉小数点,将被除数和除数前面的0去掉。
2、开始运算:商=被除数 整除 除数
             余数=被除数 取余 除数
             如果余数不等于0,商=商. 否则 完成
             计数器=0
             循环体
             如果余数等于0,跳出循环体
              循环嵌套,8次,循环变量为a
               如果余数比除数小,(
                       余数*=10
                       如果循环变量大于2,商=商0
                       判断结束
              循环嵌套结束
             余数与除数的商=余数 整除 除数
             余数=余数 取余 除数
             商=商余数与除数的商       ::两个字符串连接
             计数器加1
                    如果计数器大于10,跳出循环体
             循环体结束
  1. @echo off
  2. rem 已封装
  3. setlocal enabledelayedexpansion
  4. set ctr=0
  5. set "bc=%~1"
  6. set "c=%~2"
  7. set f=false
  8. if "!bc:~0,1!"=="-" if "!c:~0,1!"=="-" (
  9. set bc=!bc:-=!
  10. set c=!c:-=!
  11. set bc=!bc: =!
  12. set c=!c: =!
  13. set f=false
  14. ) else (
  15. rem nothing
  16. )
  17. if "!bc:~0,1!"=="-" if "!c:~0,1!" neq "-" (
  18. set bc=!bc:-=!
  19. set bc=!bc: =!
  20. set f=true
  21. ) else (
  22. rem nothing
  23. )
  24. if "!bc:~0,1!" neq "-" if "!c:~0,1!"=="-" (
  25. set c=!c:-=!
  26. set c=!c: =!
  27. set f=true
  28. ) else (
  29. rem nothing
  30. )
  31. set tbc=!bc!
  32. set tc=!c!
  33. set tbc=!tbc:.=!
  34. set tc=!tc:.=!
  35. set tbc=!tbc: =!
  36. set tc=!tc: =!
  37. if !"tbc!" neq "!bc!" if  "!tc!" neq "!c!" (
  38. for /f "delims=. tokens=1-3 eol=a" %%a in ('echo !bc!') do (
  39.   call :len %%b
  40.   set lenbcx=!zz!
  41. )
  42. for /f "delims=. tokens=1-3 eol=a" %%a in ('echo !c!') do (
  43.   call :len %%b
  44.   set lencx=!zz!
  45. )
  46. ) else (
  47. goto :r
  48. )
  49. if !lenbcx! gtr !lencx! (
  50. set /a cz=lenbcx-lencx
  51. for /l %%a in (1,1,!cz!) do (set c=!c!0)
  52. set c=!c:.=!
  53. set c=!c: =!
  54. set bc=!bc:.=!
  55. set bc=!bc: =!
  56. ) else (
  57. if !lenbcx!==!lencx! set bc=!bc:.=! & set c=!c:.=! & set bc=!bc: =! & set c=!c: =! & goto :r
  58. set /a cz=lencx-lenbcx
  59. for /l %%a in (1,1,!cz!) do (set bc=!bc!0)
  60. set c=!c:.=!
  61. set c=!c: =!
  62. set bc=!bc:.=!
  63. set bc=!bc: =!
  64. )
  65. :r
  66. for /l %%a in (1,1,9) do (if "!bc:~0,1!"=="0" set bc=!bc:~1!)
  67. for /l %%a in (1,1,9) do (if "!c:~0,1!"=="0" set c=!c:~1!)
  68. set /a "s=bc/c"
  69. set /a "m=bc %% c"
  70. if !m!==0 goto :f
  71. set s=!s!.
  72. :main
  73. if !m!==0 goto :f
  74. for /l %%a in (1,1,8) do (
  75. if !m! lss !c! (
  76.   set /a m=m*10
  77.   if %%a geq 2 set s=!s!0 & set /a ctr+=1
  78. ) else (
  79. rem nothing
  80. )
  81. )
  82. set /a "ss=m/c"
  83. set /a "m=m %% !c!"
  84. set s=!s!!ss!
  85. set s=!s: =!
  86. set /a ctr+=1
  87. if !ctr! gtr 10 goto :f
  88. goto :main
  89. :f
  90. if !f!==false (
  91. echo !s!
  92. ) else (
  93. echo -!s!
  94. )
  95. goto :eof
  96. :len
  97. set "t=%1"
  98. set zz=0
  99. for /l %%a in (0,1,11) do (
  100. if "!t:~%%a,1!"=="" goto :eof
  101. set /a zz+=1
  102. )
  103. goto:eof
复制代码

作者: taofan712    时间: 2017-3-20 14:54

本帖最后由 taofan712 于 2017-3-20 15:27 编辑

回复 20# batman

最开始我也这样想,后来觉得太多意外,需要很多if。
然后我选择先把数字放大到没有小数点再计算,计算完毕再缩小倍数。
为了追求根据输入算式直接得出答案(而不是列举加减乘除4种结果),导致代码多了一半,不然代码应该在48行左右。
  1. @echo off&setlocal enabledelayedexpansion
  2. title 批处理小数运算。
  3. set /p input=输入算式(如 2.96+0.907) :
  4. for /f "tokens=1,2 delims=+-*/" %%a in ("%input%") do (
  5. set x=%%a & set y=%%b
  6. call set symbol=%%input:%%a=%%
  7. call set symbol=%%symbol:%%b=%%
  8. )
  9. set /p precision=自定义精度(默认为3):
  10. if not defined precision set precision=3
  11. set /a xsd=1
  12. for /l %%a in (1 1 %precision%) do set /a xsd*=10
  13. echo;
  14. rem echo;思路:先将数字放大%xsd%倍,得到结果再缩小%xsd%倍。
  15. set/p=%x%  %symbol% %y% 的值为:<nul
  16. call :largen x %precision%
  17. call :largen y %precision%
  18. if "%symbol%"=="*" set expression=x*y & set /a z=!expression!/%xsd%
  19. if "%symbol%"=="/" set expression=x/y & set /a z=!expression!*%xsd%
  20. if "%symbol%"=="+" set expression=x+y & set /a z=!expression!
  21. if "%symbol%"=="-" set expression=x-y & set /a z=!expression!
  22. call :output z
  23. echo;
  24. pause&exit /b
  25. :largen              
  26. setlocal
  27. set bignum=!%~1!
  28. set /a _precision=%~2 + 1
  29. for /l %%n in (1,1,%_precision%) do set zero=!zero!0
  30. set multiple=1%zero%
  31. for /f "tokens=1,2 delims=. " %%a in ("%bignum%") do (
  32. set bignum_b=%%a&set bignum_e=%%b%zero%
  33. )
  34. set bignum_e=1!bignum_e:~0,%_precision%!
  35. set /a smallnum=bignum_b*multiple+bignum_e
  36. set /a smallnum+=5
  37. set /a smallnum-=multiple
  38. set smallnum=%smallnum:~0,-1%
  39. endlocal & set %~1=%smallnum%
  40. goto :eof
  41.   
  42. :lessen
  43. setlocal
  44. set smallnum=!%~1!
  45. set _precision=%~2
  46. for /l %%n in (1,1,%_precision%) do set zero=!zero!0
  47. set multiple=1%zero%
  48. set /a bignum_b=smallnum/multiple
  49. set /a bignum_e=smallnum%%multiple
  50. set bignum_e=%zero%%bignum_e%
  51. set bignum_e=!bignum_e:~-%_precision%!
  52. set bignum=%bignum_b%.%bignum_e%
  53. endlocal & set %~1=%bignum%
  54. goto :eof
  55. :output
  56. call :lessen %~1 %precision%
  57. set/p= !z!<nul
  58. goto :eof
复制代码

作者: yhcfsr    时间: 2018-3-28 14:09

调用powershell来做数学计算吧,纯BAT光计算就很复杂了,若还要实现其他功能,真是难以想象。
时间效率不高,胜在代码简单。
  1. set/p "input=输入表达示:
  2. for /f "delims=" %%a in ('powershell "%input%"') do echo %%a
  3. pause
复制代码

作者: LTSC1809    时间: 2023-4-9 10:43

调用powershell运算就可以了




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