标题: Goto模拟递归计算Ｎ的阶乘：） [打印本页]
作者: redtek 时间: 2006-9-30 00:52 标题: Goto模拟递归计算Ｎ的阶乘：）
深受 pengfei 大侠的 “ :again ... goto again ” 精彩应用的启发，
学着楼主运用的goto原理试着做了一个模拟递归求N!的实验，goto用好了真是方便～：）
再一次感谢 pengfei 大侠这篇 关于数值运算时的进制问题 的大作～：）
计算Ｎ的阶乘：）
没有越界和没有非法检查。
为了学习goto的运用之作～：）
@echo off
setlocal ENABLEDELAYEDEXPANSION
set /p n=请输入 N! ：
set /a redtek=!n!
if !n!==0 (echo 0的阶乘为1 && goto :Eof )
:Start
set /a n-=1
if !n!==0 goto :Ok
set /a redtek*=n
goto :Start
:Ok
echo 阶乘为：!redtek!
echo 最大只能计算到 31的阶乘，再大溢出～：）
setlocal ENABLEDELAYEDEXPANSION
set /p n=请输入 N! ：
set /a redtek=!n!
if !n!==0 (echo 0的阶乘为1 && goto :Eof )
:Start
set /a n-=1
if !n!==0 goto :Ok
set /a redtek*=n
goto :Start
:Ok
echo 阶乘为：!redtek!
echo 最大只能计算到 31的阶乘，再大溢出～：）
作者: namejm 时间: 2006-9-30 01:21
呵呵，set /a redtek*=n 的写法不错。
不过这段代码可以把变量延迟去掉，把所有的叹号对改为百分号对，这样代码就比较简洁了。如果再加上错误检测，流程优化，提示信息的优化……这段代码就更完美了。
作者: redtek 时间: 2006-9-30 01:31
多谢版主指导～～：）
作者: 不得不爱 时间: 2006-10-2 20:10
你是什么系统？我在2000里算到13就溢出！
下面是我用FOR写的！
| Quote: | |
|
作者: redtek 时间: 2006-10-2 23:54
系统版本： Windows Server 2003
Microsoft Windows [版本 5.2.3790]
[code]
C:\TEMP>copy con a.bat
@echo off
set /p n=请输入 N! ：
set /a redtek=1
if n==0 echo 0的阶乘为1 && goto :Eof
for /l %%i in (1,1,%n%) do set /a redtek*=%%i
:Ok
echo 阶乘为：%redtek%
echo 最大只能计算到 31的阶乘，再大溢出～：）
^Z
已复制 1 个文件。
C:\TEMP>a
请输入 N! ：31
阶乘为：738197504
最大只能计算到 31的阶乘，再大溢出～：）
C:\TEMP>a
请输入 N! ：32
阶乘为：-2147483648
最大只能计算到 31的阶乘，再大溢出～：）
[code]
到３２的阶乘时溢出：）
作者: redtek 时间: 2006-10-3 00:01
版主这段代码巧妙，一个循环就全解决了，够精练！佩服～：）
作者: 不得不爱 时间: 2006-10-3 00:04
31的阶乘为：738197504？
不对吧！
应该是8.22283865417792281772556288e+33啊
应该是在13的阶乘时溢出，不信你试下！（12的的阶乘=479001600）
[ Last edited by qwe1234567 on 2006-10-3 at 00:05 ]
作者: redtek 时间: 2006-10-3 01:09
嗯，ＣＡＬＣ验证了一遍，到１２的时候正确，１３！就溢出了：）
Microsoft Windows XP [版本 5.1.2600]
和
Windows Server 2003 两个机器全试了一下，全都是到１３就溢出了，哈哈……
作者: 不得不爱 时间: 2006-10-3 02:30
cmd里最大的数是2147483647