中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

中国DOS联盟论坛
现在时间是 2026-09-15 13:00

共 47,812 主题排行 / 349,917 发帖 / 今日 0 篇 / 48,268 会员排行

DOS批处理 & 脚本技术（批处理室） » [讨论][探讨] 用批处理作趣味数学题

可打印版本　38,419 / 139

第76楼　不得不爱	发表于 2006-11-21 23:38
超级版主　发帖 2,044　积分 5,310　来自四川南充
不知道这个合乎要求不： @echo off set c1=5 set c2=3 set/a pen=2c2/(c1-c2) set/a 温差=(pen+1)c1 set/a 温升=(温差-c1-c2)/(pen+3) echo 原来水有%pen%杯，原来盆里的水和杯里的水的温差是%温差%度。 echo 现在温升是%温升%度。 pause

第80楼　youxi01	发表于 2006-11-22 07:17
高级用户　发帖 247　积分 846　来自湖南==》广东
先来最简单的25、26 25、”鸡兔同笼“ @echo off setlocal enabledelayedexpansion for /l %%i in (1 1 79) do ( set /a chick_num=%%i set /a dog_num=79-!chick_num! set /a footnum=2!chick_num!+4!dog_num! if !footnum! EQU 200 ( set msg1=小鸡的只数为：!chick_num! set msg2=狗的只数为：!dog_num! goto :exit ) ) :exit echo %msg1% echo %msg2% pause>nul 26、大小和尚的问题； @echo off setlocal enabledelayedexpansion for /l %%i in (0 4 100) do ( set /a small=%%i/4 set /a big=400-%%i*4 set /a total=!small!+!big! if !total! EQU 100 ( set msg1=小和尚人数为：%%i set /a num=100-%%i set msg2=大和尚人数为：!num! goto :exit ) ) :exit echo %msg1% echo %msg2% pause>nul

第81楼　youxi01	发表于 2006-11-22 07:40
高级用户　发帖 247　积分 846　来自湖南==》广东
23题，称珠子的问题，应该是舍弃“运气好”的情况吧，我要是运气好，说不定两次就搞定！^--^ @echo off setlocal enabledelayedexpansion set flag=1 call :test 243 echo 至少应该要：%flag%次 pause>nul :test set /a tmp=%1 %% 2 set /a num=%1 if %tmp% NEQ 0 set /a num-=1 if %num% geq 2 ( set /a num/=2 set /a flag+=1 call :test !num!) goto :eof

第82楼　youxi01	发表于 2006-11-23 07:09
高级用户　发帖 247　积分 846　来自湖南==》广东
我也来贴两题： 1、找素数（效率要求较高） 2、找出1-49之内，任意两数相乘，乘积相等的数字（如：23=6 和16=6）

第84楼　不得不爱	发表于 2006-11-25 06:57
超级版主　发帖 2,044　积分 5,310　来自四川南充
找10000以内的素数 @echo off setlocal enabledelayedexpansion echo 10000以内的素数有： set/p a= 2 3 5 7 <nul for /l %%a in (9 2 99) do (set/a a=%%a%%3 set/a b=%%a%%5 set/a c=%%a%%7 if not !a!==0 if not !b!==0 if not !c!==0 set/p a=%%a <nul) for /l %%a in (101 2 9999) do (for /l %%b in (3 2 97) do (set/a a=%%a%%%%b if !a!==0 set b=1) if not !b!==1 set/p a=%%a <nul set b=0)

第85楼　不得不爱	发表于 2006-11-25 07:03
超级版主　发帖 2,044　积分 5,310　来自四川南充
第24题： @echo off :1 set/a a+=3 set/a b+=1 if not %a%==9 goto 1 echo 这只青蛙要蹦%b%次才能跳出井口 pause 第25题： @echo off set/a a=(200-79*2)/(4-2) set/a b=79-a echo 共有%b%只鸡,%a%只狗 pause

第86楼　不得不爱	发表于 2006-11-25 07:13
超级版主　发帖 2,044　积分 5,310　来自四川南充
26题： @echo off set/a a=(1004-1001)/(4*4-1) set/a b=100-a echo 共有%b%个小和尚，大和尚%a%个 pause

第87楼　youxi01	发表于 2006-11-25 11:58
高级用户　发帖 247　积分 846　来自湖南==》广东
欣赏不得不爱斑竹的素数搜索程序；斑竹对24 25 26的解答似乎是解方程的方式哦

第88楼　youxi01	发表于 2006-11-25 12:10
高级用户　发帖 247　积分 846　来自湖南==》广东
找出1-43之内，任意两数相乘，乘积相等的数字（如：23=6 和16=6）贴一段自己的不成熟的代码： @echo off setlocal enabledelayedexpansion for /l %%a in (2 1 49) do ( for /l %%b in (%%a 1 49) do ( title %%a %%b set /a mult=%%a*%%b call :test !mult! %%a %%b set !mult!=%%a × %%b ) ) pause>nul :test if defined %1 ( echo !%1!=!mult! echo %2 × %3 =!mult! echo.)

第89楼　不得不爱	发表于 2006-11-25 21:48
超级版主　发帖 2,044　积分 5,310　来自四川南充
Originally posted by youxi01 at 2006-11-24 22:58: 欣赏不得不爱斑竹的素数搜索程序；斑竹对24 25 26的解答似乎是解方程的方式哦小学时算鸡兔问题不就是这么算的吗，难道还要解方程？

上一页　 1 … 3 4 5 6 7 8 9 … 10 　下一页