中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [讨论][探讨] 用批处理作趣味数学题
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] »
作者:
标题: [讨论][探讨] 用批处理作趣味数学题 上一主题 | 下一主题
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 76 楼』:  

不知道这个合乎要求不:
@echo off
set c1=5
set c2=3
set/a pen=2*c2/(c1-c2)
set/a 温差=(pen+1)*c1
set/a 温升=(温差-c1-c2)/(pen+3)
echo 原来水有%pen%杯,原来盆里的水和杯里的水的温差是%温差%度。
echo 现在温升是%温升%度。
pause




我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-21 23:38
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
NaturalJ0
银牌会员




积分 1181
发帖 533
注册 2006-8-14
状态 离线
『第 77 楼』:  

完全正确

2006-11-21 23:58
查看资料  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 78 楼』:  

不知道还有什么题目没有?



我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-22 02:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zouzhxi
中级用户

蝴蝶之吻


积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
『第 79 楼』:  

问题已更新



Butterfly Kiss Blog
计算机DIY联盟论坛
2006-11-22 05:06
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (234693993)  编辑帖子  回复  引用回复
youxi01
高级用户




积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
『第 80 楼』:  

先来最简单的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


2006-11-22 07:17
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
youxi01
高级用户




积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
『第 81 楼』:  

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


2006-11-22 07:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
youxi01
高级用户




积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
『第 82 楼』:  

我也来贴两题:

1、找素数(效率要求较高)
2、找出1-49之内,任意两数相乘,乘积相等的数字(如:2*3=6 和1*6=6)

2006-11-23 07:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 83 楼』:  

期待~~绝不能让好贴沉下去~:)



    Redtek,一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2006-11-25 03:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 84 楼』:  

找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)


   此帖被 +2 点积分    点击查看详情   
评分人:【 youxi01 分数: +2  时间:2006-11-25 12:00




我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-25 06:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 85 楼』:  

第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




我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-25 07:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 86 楼』:  

26题:
@echo off
set/a a=(100*4-100*1)/(4*4-1)
set/a b=100-a
echo 共有%b%个小和尚,大和尚%a%个
pause




我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-25 07:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
youxi01
高级用户




积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
『第 87 楼』:  

欣赏 不得不爱 斑竹的素数搜索程序;

斑竹对24 25 26的解答似乎是解方程的方式哦

2006-11-25 11:58
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
youxi01
高级用户




积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
『第 88 楼』:  

找出1-43之内,任意两数相乘,乘积相等的数字(如:2*3=6 和1*6=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.)


2006-11-25 12:10
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 89 楼』:  



  Quote:
Originally posted by youxi01 at 2006-11-24 22:58:
欣赏 不得不爱 斑竹的素数搜索程序;

斑竹对24 25 26的解答似乎是解方程的方式哦

小学时算鸡兔问题不就是这么算的吗,难道还要解方程?



我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-25 21:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
不得不爱
超级版主

我爱DOS


积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
『第 90 楼』:  

88楼的代码漏了不少的数哦
如:
2*27=54
3*18=54
6*9=54
1*54=54
而你的代码却只输出:
2*27=54
3*18=54



我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛  
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件
2006-11-25 21:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: