在不断的看楼下的之后。。

终于一次AC了 正感動起在。

這道題可以用分組背包來做

先預處理每個課題寫i(1

Program P1198;

var a,b:array[0..200] of int64;

f:array[0..200,0..200] of int64;

k,i,j,n,m:longint;

x:int64;

function change(a:int64;b,t:longint):int64;

var i,j:longint;

begin

change:=a;

for i:=1 to b do

change:=change*t;

end;

Begin

fillchar(f,sizeof(f),$F);

readln(m,n);

for i:=1 to n do readln(a[i],b[i]);

for i:=1 to m do f[1,i]:=change(a[1],b[1],i);

for i:=0 to n do f:=0;

for i:=2 to n do

for j:=1 to m do

begin

x:=1000000000;

for k:=0 to j do

if f+change(a[i],b[i],j-k)

为什么我超时了7个点

说实话就是分组背包……注意范围，尤其是单个变量的范围~

program p1198l;

var n,m,i,j,z:longint;

　　 a,b:array[0..25] of int64;

　　 f:array[0..25,0..205] of int64;

function chen(t:longint):int64;

var y:longint;

begin

chen:=a[i];

for y:=1 to b[i] do chen:=chen*t;

end;

begin

readln(n,m);

for i:=1 to m do

readln(a[i],b[i]);

filldword(f,sizeof(f)shr 2,99999999);

for i:=0 to m do f:=0;

for i:=1 to m do

for z:=1 to n do

for j:=0 to z do

if f>f+chen(j) then

　　 f:=f+chen(j);

　　

writeln(f[m,n]);

end.

话说 这道题本来应该一次AC的

但是 天欲亡我 我又有何语哉.....

数组范围竟然要int64

看来我的估算水平很低很低很低...........

program p1198l;

var n,m,i,j,z:longint;

a,b:array[0..25] of int64;

f:array[0..25,0..205] of int64;

function chen(t:longint):int64;

var y:longint;

begin

chen:=a[i];

for y:=1 to b[i] do chen:=chen*t;

end;

begin

readln(n,m);

for i:=1 to m do

readln(a[i],b[i]);

filldword(f,sizeof(f)shr 2,99999999);

for i:=0 to m do f:=0;

for i:=1 to m do

for z:=1 to n do

for j:=0 to z do

if f>f+chen(j) then

f:=f+chen(j);

writeln(f[m,n]);

end.

第二次

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

诶 每次告诉自己要注意范围

可是每次基本上都忘光了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这道题简单，但出的不错，因为是Ai*x^Bi所以纠错很难

踏着前辈的肩膀，我AC了！

我CCC MD 数据范围不说清楚

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

DP+预处理，数组开int64就能过了。

var a,b,i,j,k,n,m:integer;

c:array[1..20,1..200] of int64; {预处理数组}

f:array[0..200] of int64;

begin

readln(n,m);

for k:=1 to m do begin

readln(a,b);

for i:=1 to n do begin

c[k,i]:=a;

for j:=1 to b do

c[k,i]:=c[k,i]*i;

end;

end;

f[0]:=0;

for i:=1 to n do

f[i]:=100000000000000000;

for k:=1 to m do

for i:=n-1 downto 0 do

for j:=1 to n-i do

if f[i]+c[k,j]

注意！注意！数组开 400*400 int64 的才能过。

受不了了，差距也太大了吧？

for (int i = 1; i

我郁闷了,在计算Ai*x^Bi的时候函数内部的一个临时变量竟然没有用long long int

导致提交N次才AC...我郁闷

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

水题

大师们：

有没有 动态方程 顺便解释下

小弟在此谢过了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

贪心模拟

不会

for(int i=2;i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1198;

var f,c:array[0..400,0..400]of int64;

a:array[1..400]of integer;

b:array[1..400]of integer;

i,j,k,n,m:integer;

procedure workout(a,b,x:integer;var c:int64);

var i:integer;

begin

c:=1;

for i:=1 to b do c:=c*x;

c:=c*a;

end;

function min(a,b:int64):int64;

begin

if a

编译通过...

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

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

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

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

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

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

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

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

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

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

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

int64!!!!!

还我花了n多的时间，用3种不同方法！

结果把longint改成int64立马AC