1樓：匿名使用者
陣列a[1..n]儲存數列,
在設乙個b[1..n]的陣列,其中儲存的數為1或-1,只有b[1]永遠為1;
窮舉所有b[1..n]可能情況,寫個求和函式sum,sum(n)=a[n]*b[n]+sum(n-1),且sum(1)=a[1],如果sum(n)與目標數相同,那麼從頭掃瞄陣列b,如果b[x]=1,那麼求e(x),直到陣列b中只有-1,然後從頭開始,同樣的,如果b[x]=-1,那麼求e(x),直到全部結束.
至於一共多少種+個計數器就行.
思路給你了,做起來應該很方便.
pascal斐波那契數列
2樓：
varn:longint;
function f(k:longint):longint;
begin
if k<=2 then exit(1)
else exit(f(k-1)+f(k-2));
end;
begin
readln(n);
writeln(f(n));
readln;
end.
我用遞迴的
3樓：
var n,i:longint;
a:array[1..100000]of qword;
begin
readln(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
writeln(a[n]);
end.
4樓：匿名使用者
樓上錯了
var n,i:longint;
a:array[1..100000]of qword;
begin
readln(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
for i:=1 to n-1 do
write(x[i],' ');
writeln(a[n]);
end.
pascal程式：數列
5樓：破天一彈
就拿你的樣例舉例吧。。。100=64+32+4 換成2進製就是 1100100
再把 1100100 在三進製下的權值求出來。。。就是 729+243+9=981 就是這樣。。
換種說法 就是 2(6)+2(5)+2(2) 變成 3(6)+3(5)+3(2)
6樓：匿名使用者
先把n轉化為二進位制數
然後是1的位置就要加上k的對應次冪，0的無視
似乎需要高精
7樓：張映田
這個中有規律
program sl;
vara:array [1..2000] of longint;
i,j,k:longint;
n:longint;
begin
readln(k,n);
a[1]:=1;
a[2]:=k;
i:=2;
while i<=512 do
begin
a[i]:=a[i div 2]*k;
for j:=i+1 to i*2-1 doa[j]:=a[i]+a[j-i];
i:=i*2;
end;
writeln(a[n]);
readln;
end.
保證ac
斐波那契數列第n個數是多少？（pascal語言)
數列 pascal
8樓：匿名使用者
你難道沒有找到規律嗎?
建立乙個陣列
初始化先放入n^0 然後放入 n^1
放入n^0+n^1,n^2,n^2+n^0,n^2+n^1,n^2+n^0+n^1,n^3……
也就是每放入乙個新的n的方冪之後就將新的方冪與陣列中前面的所有的數都與這個新的方冪加和
放到下乙個裡面
懂了嗎？
**實現應該很簡單吧！
另外還有乙個轉換進製的做法 但是沒有上面這個方法好想，我看你就是用的這個方法吧
這個方法如果有一點細節的地方沒有處理好的話就會出錯的所以你還是按照我教你的方法在寫乙個 試試吧
pascal 數列 5
9樓：
program shulie;
var a:array[1..100,1..100]of longint;
t,k,m,n,i,j:longint;
begin
readln(n);
for t:=1 to n do
for k:=t to t+2*(n-t) dobegin
inc(j);
a[k,t]:=j;
end;
for t:=1 to 2*n-1 do
begin
for k:=1 to n do
if a[t,k]<>0 then
write(a[t,k],' ');
writeln;
end;
end.
10樓：
當n=3的時候 格式怎麼像上面呢 ？？
為什麼總看不懂pascal遞迴斐波那契數列啊？求大神指點指點啊！
11樓：匿名使用者
你知道f(1)的順序，知道f(2)的順序，但是我告訴你，這是沒有用的，因為，你不知道f(1)和f(2)的關係，遞迴法是整體法，或者說是復合法。
f(4) = f(3)+f(2),
這就是遞迴關係，你要看懂這個，
那麼f(4)的流程就是f(3)的流程和f(2)的流程的復合，懂了沒，呵呵。
12樓：延納
斐波那契數在4之後第n位=(n-1)+(n-2)
斐波那契數列求和，斐波那契數列求和程式怎麼編寫？
1 fig.6.30 fig06 30.cpp 2 testing the recursive fibonacci function.3 include 4 using std cout 5 using std cin 6 using std endl 78 unsigned long fibona...
斐波那契數列什麼時候會學，斐波那契的斐波那契數列是什麼時候提出的
斐波那契數列的發明者，是義大利數學家列昂納多 斐波那契 leonardo fibonacci 生於公元1170年，卒於1250年，籍貫是比薩。他被人稱作 比薩的列昂納多 1202年，他撰寫了 算盤全書 liber abacci 一書時提出的 斐波那契數列和花瓣的聯絡什麼 時間發現的 這裡對斐波那契數...
斐波那契數列前20項求和，斐波那契數列前20項求和pascal
program gxd varf1,f2,tot,i,tmp longint begin f1 1 f2 1 tot 2 for i 3 to 20 do begin tmp f1 f2 inc tot,tmp f1 f2 f2 tmp end writeln tot readln end.peog...
什麼是數列，什麼是斐波那契數列
月照星空 按一定次序排列的一列數稱為數列 sequence of number 數列中的每乙個數都叫做這個數列的項。排在第一位的數稱為這個數列的第1項 通常也叫做首項 排在第二位的數稱為這個數列的第2項，排在第n位的數稱為這個數列的第n項。傳說古希臘畢達哥拉斯 約西元前570 約西元前500年 學派...
斐波那契數列與自然有什麼關係，什麼是斐波那契數列
斐波那契數列指的是這樣乙個數列 1，1，2，3，5，8，13，21 這個數列從第三項開始，每一項都等於前兩項之和。它的通項公式為 1 5 又叫 比內公式 是用無理數表示有理數的乙個範例。5表示根號5 很有趣的是 這樣乙個完全是自然數的數列，通項公式居然是用無理數來表達的。斐波那契數列又因數學家列昂納...