已知一个数列的前三个数为0,1,1,以后每个数为前三个数的和,编程序求此数列的第20项

35890

var
a:array[1..20]:integer;
i:integer;
begin
a[1]:=0;
a[2]:=1;
a[3]:=1;
for i:=4 to 20 do a[i]:=a[i-1]+a[i-2]+a[i-3];
writeln(a[20]);
end.

如果用vb的话，代码如下：其他语言，可依照这个算法。
要输出任何一项都可以。

dim a1,a2,a3,a4,i,n as integer
n=inputbox("please iniput integer")
a1=0
a2=1
a3=1
for i=4 to n
a4=a1+a2+a3
a1=a2
a2=a3
a3=a4
next
print "a";n;"=";a4

c语言调试成功：
main()
{long s[20]={0,1,1};
int i;
for(i=3;i<20;i++)
s[i]=s[i-1]+s[i-2]+s[i-3];
printf("\n%ld",s[19]);
}

35890

加撒