[原创js]斐波那契数列 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

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

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

//::::::::::::::::::::::::::Fibonacci Series {s11ss 2007-12-16}::::::::::::::::::::::::::

var host,re,n=new Array(),i,num;

//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 total numbers:");
num=WScript.StdIn.ReadLine();
num=num.toString()-1;
}

//Calculate:
n[0]=n[1]=1;
for(i=2;i<=num;i++) n[i]=n[i-1]+n[i-2]

//Print:
WScript.Echo("The Fibonacci Series:");
for(i=0;i<=num;i++) WScript.StdOut.Write(n[i]+" ");
WScript.Stdin.ReadLine();