Board logo

标题: [原创js]阶乘 [打印本页]

作者: s11ss     时间: 2007-12-16 23:44    标题: [原创js]阶乘


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