讨论 / 求标程(最好cheat)
desprado2 2013-04-27 04:23:00
点我顶贴 收藏 删除
RT,老过不了。
#1 thl@2012-01-30 23:40:00
回复 删除
给分吧!

程序:var

i,n:longint;

a:Array[1..40] of longint;

begin

readln(n);

a[1]:=1; a[2]:=1;

for i:=3 to 40 do

a[i]:=a[i-1]+a[i-2];

for i:=40 downto 1 do

if a[i]<=n then begin

writeln(a[i-1],' ',a[i]);

break;

end;

end.

这个其实就是Fabonacci数列,推出来的,拜托给点分吧!

#2 desprado2@2012-01-31 05:42:00
回复 删除
涨点RP

你那过不了!

#3 thl@2012-01-31 06:12:00
回复 删除
回复 板凳desprado2 的帖子

大哥,谁说我的过不了?

#4 thl@2012-01-31 06:27:00
回复 删除
给你数据吧!这样能分了吧?

测试结果1:k=9574 m=4181 n=6765

测试结果2: k=8573 m=4181 n=6765

测试结果3: k=24485746 m=14930352 n=24157817

测试结果4: k=10475937 m=5702887 n=9227465

测试结果5: k=100000 m=46368 n=75025

#5 灰天飞雁@2012-01-31 07:02:00
回复 删除
回复 楼主desprado2 的帖子

楼主你最近给我注意点……

#6 desprado2@2012-01-31 19:30:00
回复 删除
回复 地下室灰天飞雁 的帖子

明白了。之前的抄袭问题我感到惭愧,呃…………

#7 desprado2@2012-01-31 19:34:00
回复 删除
回复 地下室灰天飞雁 的帖子

还有个问题。各种被封号的原因(如抄袭、使用不文明语言等)中,其原则是什么?(就是怎样会被封号,封几次号就无法解封?)

#8 desprado2@2012-01-31 19:35:00
回复 删除
回复 地下室灰天飞雁 的帖子

你应该知道吧??

#9 thl@2012-01-31 20:19:00
回复 删除
lz你咋给分不给完哪?

给完给我吧!~~反正你都悬赏出去了,况且我给了你程序和数据······

#10 desprado2@2012-01-31 23:52:00
回复 删除
回复 地核thl 的帖子

做人要厚道,如果是斐波那契数列的话,我早过了!

别以为我什么都不会!

状态: Unaccepted

测评机: Xeost[5]

得分: 0分

提交日期: 2012-2-1 15:48:00

有效耗时: 该状态没有记录

查看更多回复
提交回复