讨论 - 撒分求rp！

真·无双 2013-04-10 20:35:00

点我顶贴收藏删除

撒分求rp！

#1 刹那的永恒@2013-03-21 21:25:00

回复删除

var f,h:array[1..5000] of longint;

i,j,m,n,s,l:longint;

t,k:real;

begin

readln(n,l);

for i:=1 to n do readln(h[i]);

f[1]:=1; for i:=2 to n do f[i]:=100000000;

for i:=2 to n do

begin

k:=2000000000;

if i-l>0 then s:=i-l else s:=1;

for j:=i-1 downto s do

begin

t:=(h[i]-h[j])/(i-j);

if t<=k then

begin

if f[j]+1<f[i] then f[i]:=f[j]+1;

k:=t;

end;

writeln(f[n]);

end.

#2 1164239825@2013-03-21 21:25:00

回复删除

5434563

4536456456

#3 CX陈子拓1@2013-03-21 21:25:00

回复删除

RP+++++++++++++++++++++++++++++++++++++++++++++++++++

#4 CX陈子拓1@2013-03-21 21:25:00

回复删除

+++++++++++++++++++++++++++++++++++++++++++++++++++

RP+++++++++++++++++++++++++++++++++++++++++++++++++++

#5 刹那的永恒@2013-03-21 21:25:00

回复删除

rp++++

#6 CX陈子拓1@2013-03-21 21:25:00

回复删除

+++++++++++++++++++++++++++++++++++++++++++++++++++

RP+++++++++++++++++++++++++++++++++++++++++++++++++++

#7 1164239825@2013-03-21 21:25:00

回复删除

rp

rp++++++++++++++++++++++++++++++

#8 1164239825@2013-03-21 21:25:00

回复删除

rp

rp++++++++++++++++++++++++++++++

#9 1164239825@2013-03-21 21:25:00

回复删除

rp

rp++++++++++++++++++++++++++++++

#10 1164239825@2013-03-21 21:25:00

回复删除

rp

rp++++++++++++++++++++++++++++++