|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26 来自 四川南充
状态 离线
|
|
2006-11-21 23:38 |
|
|
NaturalJ0
银牌会员
积分 1181
发帖 533
注册 2006-8-14
状态 离线
|
|
2006-11-21 23:58 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26 来自 四川南充
状态 离线
|
|
2006-11-22 02:03 |
|
|
zouzhxi
中级用户
蝴蝶之吻
积分 430
发帖 177
注册 2006-9-20 来自 广东深圳
状态 离线
|
|
2006-11-22 05:06 |
|
|
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)
|
我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛
论坛新手必读,所有人的基本行为准则
刷QQ空间人气、留言的小软件 |
|
2006-11-25 06:57 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26 来自 四川南充
状态 离线
|
|
2006-11-25 07:03 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26 来自 四川南充
状态 离线
|
|
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 来自 四川南充
状态 离线
|
|
2006-11-25 21:48 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26 来自 四川南充
状态 离线
|
|
2006-11-25 21:59 |
|