【再求教】之前那个帖子我自己删掉了,这次直接上题目吧
pascal吧
全部回复
仅看楼主
level 1
biangh991107 楼主
已知a0=0,a1=1,a2=1
a3=a0+2a1+a2 a4=a1+2a2+a3 ………
输入n;
输出a0…an
应该是斐波那契数列的题目
然后按照那个公式算出来为什么是0、1、1、3、6……
不用给程序,给个思路吧
2013年05月04日 12点05分 1
level 7
a3=a0(0)+2a1(1)+a2(1)=0+2+1=3
a4=a1(1)+2a2(1)+a3(3)=1+2
+3
=6
2013年05月04日 12点05分 2
level 1
biangh991107 楼主
刚有空把做出来了,但是还有问题
怎样输出一整条数列,要求是输出a0..an@Orz虐江湖srO
2013年05月04日 13点05分 3
level 13
递推公式:a(k)=a(k-3)+2*a(k-2)+a(k-1),a0=0,a1=1,a2=1,k>2。
基本思想:递推。
不废话了上程序(裸打,可能会有一些编译错误请见谅)
var a,b,c,d,i,n:longint;
begin
readln(n);
a:=0;
b:=1;
c:=1;
write(a,' ',b,' ',c,' ');
for i:=4 to n-1 do begin
d:=a+2*b+c;
a:=b;
b:=c;
c:=d;
write(d,' ');
end;
d:=a+2*b+c;
writeln(d);
end.
2013年05月04日 14点05分 4
虽然LS我已经做出来了,但是谢谢完善输出问题。
2013年05月04日 14点05分
1