斐波那契数列 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

//::::::::::::::::::::::::::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=n=1;
for(i=2;i<=num;i++)	n=n+n

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

第1楼　s11ss	发表于 2007-12-16 23:04
银牌会员　发帖 566　积分 2,098
[原创js]斐波那契数列 //::::::::::::::::::::::::::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=n=1; for(i=2;i<=num;i++) n=n+n //Print: WScript.Echo("The Fibonacci Series:"); for(i=0;i<=num;i++) WScript.StdOut.Write(n+" "); WScript.Stdin.ReadLine();

第2楼　kich	发表于 2007-12-26 19:21
中级用户　发帖 168　积分 397
能不能先文字描述下这数列是怎么回事?

第3楼　s11ss	发表于 2007-12-26 19:49
银牌会员　发帖 566　积分 2,098
n[i]=n[i-1]+n[i-2] 最前面的两个数都是1，从第三个数起，一个数为前两个数之和。如： 1 1 2 3 5 8 13