|
不得不爱
超级版主
         我爱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
|

|
|
2006-11-21 23:38 |
|
|
NaturalJ0
银牌会员
    
积分 1181
发帖 533
注册 2006-8-14
状态 离线
|
|
2006-11-21 23:58 |
|
|
不得不爱
超级版主
         我爱DOS
积分 5310
发帖 2044
注册 2005-9-26 来自 四川南充
状态 离线
|
『第
78 楼』:
不知道还有什么题目没有?
|

|
|
2006-11-22 02:03 |
|
|
zouzhxi
中级用户
   蝴蝶之吻
积分 430
发帖 177
注册 2006-9-20 来自 广东深圳
状态 离线
|
『第
79 楼』:
问题已更新
|

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

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

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

|
|
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 楼』:
Originally posted by youxi01 at 2006-11-24 22:58:
欣赏 不得不爱 斑竹的素数搜索程序;
斑竹对24 25 26的解答似乎是解方程的方式哦 小学时算鸡兔问题不就是这么算的吗,难道还要解方程?
|

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

|
|
2006-11-25 21:59 |
|