貌似我楼下的和json程序很像啊.

疯狂递归.一次AC..第100题..纪念一下..

定理:如果一个数列的通项公式是关于自然数N的R次多项式 ,那么这个数列就是R阶的等差数列 /

@_@ 十万火急+小心翼翼

哪位大牛证明一下算法??????????????????

参考借鉴他人程序后AC

^_^

我晕，第一遍交编译失败，同样程序第二遍交ac，我的通过率阿……

两两求差

差数列再两两求差

直到得到常数

加回去

参见其他人的程序^_^

；拉格朗日插值公式是第一方法 最高效

递归
#include<cstdio>
int a[1000],m;
int work(int x[],int k)
{
int i,t=x[k-1];
for(i=0;i<k-1;++i)if(x[i]!=x[i+1])break;
if(i==k-1)return t;
else for(i=0;i<k-1;++i)x[i]=x[i+1]-x[i];
return work(x,k-1)+t;
}
int main()
{
int i;
scanf("%d",&m);
for(i=0;i<m;++i)
scanf("%d",&a[i]);
printf("%d",work(a,m));
return 0;
}

Pascal AC
var a:array[1..1000]of longint;
n,i,j,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
read(a[i]);
for i:=n-1 downto 1 do
for j:=1 to i do
a[j]:=a[j+1]-a[j];
for i:=1 to n do
s:=s+a[i];
write(s);
end.

看来算法方面还得再提升啊~真是长见识了

program p1220;

var m,i,j,ans:longint;

a:array[1..1000,1..1000] of longint;

begin

readln(m);

for i:=1 to m do

read(a[m,i]);

readln;

for i:=m-1 downto 1 do

for j:=1 to i do

a:=a-a;

ans:=0;

for i:=1 to m do

ans:=ans+a;

writeln(ans);

end.

那么简单的意思，为啥还要为宇宙超级无敌冲天乾坤五香霹雳拉面做广告啊？

write改成writeln为什么就AC了？一开始他居然显示最后两点超时

数学竞赛里面数列知识的拓展.

一维数组滚动.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

#include

long f[1001]={0};

long ans=0;

int main()

{

int i,j;

int m;

scanf("%d",&m);

for(i=1;i

……看了题解只能说这题……太牛了……

传说中....我不会这公式

求导？

有收获