[原创js]阶乘 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

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

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

//阶乘	{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();