中国DOS联盟论坛

中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:bbs.cn-dos.net

DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

» 游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助

 
« « 2019-3 » »
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            

栏目分类

最热的 5 篇文章

搜索网志文章


在线用户 : 83
0 位会员   83 位游客
2009-2-27 Exist's Blog
也开一个,以后写点零散的东西。

2009-2-27 05:44 523066680 查看 评论

2009-2-13 523066680编辑区
[code]
@echo off &setlocal enabledelayedexpansion
set /p inp=" : "
call :funa na %inp%
call :funa nb %inp:* =%


set /a lpna=0,lpr=-1
:lpna
set /a lpna+=1,lpnb=0,lpr+=1,lp=lpr
  :lpnb
  set /a lpnb+=1,lp+=1
  ::::::::::::::::::::::::::
    set /a cup%lp%+=na%lpna%*nb%lpnb%
     set /a tlpa=lp,tlpb=tlpa+1
     :cuplp
     set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10
     if !cup%tlpb%! gtr 9 (
        set /a tlpa+=1,tlpb=tlpa+1
        goto :cuplp
     ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)

  ::::::::::::::::::::::::::
  if %lpnb% lss %nb% (goto :lpnb)
if %lpna% lss %na% (goto :lpna)

for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul
echo,
echo,wscript.echo %inp: =*%>x.vbs
cscript //nologo x.vbs
pause>nul &exit


:funa
set %1=%2
set fu ...

2009-2-13 18:49 523066680 查看 评论



[ 联系我们 - 中国DOS联盟 ]


Powered by Discuz! © 2001-2011