中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-06 22:53
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创js]阶乘 查看 646 回复 0
楼 主 [原创js]阶乘 发表于 2007-12-16 23:44 ·  中国 北京 电信
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线
//阶乘	{s11ss 2007-12-16}

var host,re,i,num,answer=1;

//ScriptHost:
host=WScript.FullName;
host=host.substring(host.length-11,host.length).toLowerCase();
if(host=="wscript.exe") {
host=new ActiveXObject("WScript.Shell");
host.Run("cmd /ccscript/nologo \""+WScript.ScriptFullName+"\"");
WScript.Quit();
}

//Receive a number:
re=/^\d+$/gi;
while(!re.test(num)) {
WScript.Echo("Please input the number:");
num=WScript.StdIn.ReadLine();
num=num.toString();
}

//Calculate:
for(i=1;i<=num;i++) answer=answer*i

//Print:
WScript.StdOut.Write(num+"!\n=");
for(i=num;i>=2;i--) WScript.StdOut.Write(i+"*");
if(num>1) WScript.StdOut.Write("1\n="+answer); else WScript.StdOut.Write("1");
WScript.Stdin.ReadLine();
论坛跳转: