联盟域名: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();