中国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] »
作者:
标题: [讨论][探讨] 用批处理作趣味数学题 上一主题 | 下一主题
cl02
新手上路





积分 12
发帖 5
注册 2007-6-27
状态 离线
『第 121 楼』:  

支持这样的贴子~~~~强

2007-6-27 23:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
my3439955
中级用户




积分 272
发帖 99
注册 2006-6-2
状态 离线
『第 122 楼』:  

第16题

  Quote:
p是质数,且p×p+1也是质数。求2006×p。解决方案:暂无

先说p*p+1不能是2,这样的话 p=1,不是质数

假设p是奇数,那么p*p也是奇数,p*p+1就是偶数,并且p*p+1是质数,又不是二,这是不可能的

因此p是偶数,又 p是质数,因此p=2

2006*2=?



X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
2007-6-30 11:46
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chenghui
新手上路





积分 4
发帖 2
注册 2007-6-30
状态 离线
『第 123 楼』:  好

很高

2007-6-30 18:34
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
maladana
初级用户





积分 47
发帖 24
注册 2006-10-22
状态 离线
『第 124 楼』:  

大家都太强了啊,佩服

2007-7-8 00:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
3dnowex
初级用户





积分 41
发帖 20
注册 2007-3-5
状态 离线
『第 125 楼』:  

第一题求水仙花数的简便方法:
@echo off && setlocal enabledelayedexpansion
for /l %%i in (100 1 999) do (
        set tin=%%i
        set /a ton=!tin:~0,1!*!tin:~0,1!*!tin:~0,1!+!tin:~1,1!*!tin:~1,1!*!tin:~1,1!+!tin:~-1!*!tin:~-1!*!tin:~-1!
        if !tin! equ !ton! (
                echo %%i
        )
)
pause>nul

[ Last edited by 3dnowex on 2007-8-20 at 06:08 PM ]

2007-8-20 18:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zouzhxi
中级用户

蝴蝶之吻


积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
『第 126 楼』:  新题目来了.

#
求1000以内的完数.
所谓完数:
例如:
6
2*3=6
2+3+1=6
只要符合上述两要求就可以了.(第二条件是+1不可少的)

{
  ??????
}



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




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


@echo off & setlocal enabledelayedexpansion
for /l %%i in (6 1 1000) do (
    title 正在检测:%%i
    set/a sum=1
    set/a partnum=%%i/2
    for /l %%j in (2 1 !partnum!) do (
       set/a var=%%i %% %%j
       if !var! EQU 0 set/a sum+=%%j)
    if !sum! EQU %%i echo %%i是完数)
pause


2007-8-21 13:21
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
youxi01
高级用户




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

Re:126F,来段效率高点的代码:
@echo off & setlocal enabledelayedexpansion
for /l %%i in (6 1 1000) do (
    title 正在检测:%%i
    set/a sum=1
    set/a partnum=%%i/2
    if !partnum! gtr 40 set/a partnum=40
    for /l %%j in (2 1 !partnum!) do (
         set/a var=%%i %% %%j
         if !var! EQU 0 (
              set/a tmp=%%i/%%j
              if !tmp! gtr %%j set/a sum+=!tmp!+%%j))
    if !sum! equ %%i echo %%i是完数
)
pause>nul


2007-8-21 13:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
youxi01
高级用户




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

有个奇怪的现象:
用第二段代码检测1000以内的完数只有三个:6 28 496
改装一下,检测10000以内的完数也只多了一个而已:8128
是不是因为数字大,因而因子多,因子之和一般就比本身大,所以完数出现的概率就特别小啊?!

2007-8-21 14:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zjq20032006
初级用户





积分 23
发帖 10
注册 2006-12-4
状态 离线
『第 130 楼』:  

有点意思            .

2007-8-25 01:49
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
Eblis
中级用户




积分 251
发帖 108
注册 2007-1-7
来自 湖南==>广州
状态 离线
『第 131 楼』:  

25题
@echo off
setlocal enabledelayedexpansion
set /a gj=79
for /l %%i in (1,1,79) do (
  set /a j1=200-%%i*4
  set /a j=j1/2
  set /a jg=!j!+%%i
if !jg! equ !gj! echo 鸡=!j! 狗=%%i
)
借鉴了youxi01的骆驼峰的算法..



DOS新人.多多指導
2007-8-25 22:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qyjytd
新手上路





积分 6
发帖 3
注册 2007-9-12
状态 离线
『第 132 楼』:  

呵呵 有趣 学习了

2007-9-12 23:25
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qyjytd
新手上路





积分 6
发帖 3
注册 2007-9-12
状态 离线
『第 133 楼』:  

呵呵 有趣 学习了

2007-9-12 23:25
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zjh104032135
新手上路





积分 2
发帖 1
注册 2007-9-20
状态 离线
『第 134 楼』:  看见高手了呀

看见高手学习下》

2007-9-20 21:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zouzhxi
中级用户

蝴蝶之吻


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

28
2*8=16
2+8+1=11

28是么...



Butterfly Kiss Blog
计算机DIY联盟论坛
2007-9-24 10:18
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (234693993)  编辑帖子  回复  引用回复
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


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



论坛跳转: