添加到桌面   加入收藏

批处置惩罚bat递归盘算N!的实现代码

01-01 08:00 来源:未知 编辑:admin  人气:   点评:评论一下 刷新: 刷新文章

焦点代码:

@echo off
:: 代码来自网友:liangbch
setlocal enabledelayedexpansion

echo To calculate n^^!
set/p nn=n=?

set/a "buff_1=1,rad=10000,len=1" 

for /l %%i in (1,1,%nn% ) do (
    set/a cc=0
    for /l %%j in (1,1,!len!) do (
      set/a "tt=buff_%%j* %%i+!cc!"
      set/a "buff_%%j=!tt! %% !rad!,cc=!tt!/!rad!"
    )
    if !cc! gtr 0 (
      set/a len+=1
      set/a buff_!len!=!cc!
    ) 
)

set/p xx=n^^!=<nul
set/a tt=buff_%len%
set/p xx=!tt!<nul
set/a len-=1

for /l %%i in (%len%,-1,1 ) do (
  set/a tt=buff_%%i
  if !tt! lss 1000 set tt=00000!tt!
  set/p xx=!tt:~-4!<nul
)

echo.
pause

双击输入数字即可。

[提醒] 转载请保留( 飞猪云教程)文章链接,谢谢!对本文有疑问欢迎留言讨论 ( 我有话说)!
元芳,把你的犀利的看法写到这里可好?
  • 全部评论(0
    还没有评论,快来抢沙发吧!