245 条题解
-
0
国防安全员001 LV 8 @ 2009-07-15 11:41:32
var f:array [0..1000,0..1000] of longint;
n,j,k,m,l,i,o:longint;
begin
readln(n,k);
for i:=1 to n do
f:=1;
for j:=2 to k do
for i:=j to n do
f:=f+f;
writeln(f[n,k]);
end. -
0
var m,n,k,s:longint;
a:array[1..10000]of longint;
procedure hua(b,q,q2:longint);
var i:longint;
begin
if q2=n then
begin
s:=s+1;
exit;
end;
begin
for i:=q to m-q*2 do
if b>=i*2 then
begin
a[q2]:=i;
hua(b-i,i,q2+1);
end;
end;
end;
begin
read(m,n);
hua(m,1,1);
write(s);
writeln;
end.
回溯？ -
0
用最笨的方法，但照样AC
var n,k,a,b,c,d,e,f,z:longint;
begin
read(n,k);
if k=2 then begin
for a:=1 to n-1 do
for b:=a to n-a do
if a+b=n then z:=z+1;
end;
if k=3 then begin
for a:=1 to n-2 do
for b:=a to n-a do
for c:=b to n-a-b do
if a+b+c=n then z:=z+1;
end;
if k=4 then begin
for a:=1 to n-3 do
for b:=a to n-a do
for c:=b to n-a-b do
for d:=c to n-a-b-c do
if a+b+c+d=n then z:=z+1;
end;
if k=5 then begin
for a:=1 to n-4 do
for b:=a to n-a do
for c:=b to n-a-b do
for d:=c to n-a-b-c do
for e:=d to n-a-b-c-d do
if a+b+c+d+e=n then z:=z+1;
end;
if k=6 then begin
for a:=1 to n-5 do
for b:=a to n-a do
for c:=b to n-a-b do
for d:=c to n-a-b-c do
for e:=d to n-a-b-c-d do
for f:=e to n-a-b-c-d-e do
if a+b+c+d+e+f=n then z:=z+1;
end;
writeln(z);
end. -
0
记忆化 秒杀
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar
i,j,k,kk,n:longint;
f:array[0..200,1..6,0..200]of longint;
function dfs(x,y,z:longint):longint;
var
i,t:longint;
begin
if x -
0
ivyliangyue LV 9 @ 2009-06-30 20:19:31
惨啊~~~
第一遍用的是整型~~~
好在第二遍过了
在此对推出式子的牛们致以崇高的敬意！！！ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar f:array[0..200,0..6]of longint;
var i,j,n,k:longint;
begin
readln(n,k);
f[0,0]:=1;
for i:=1 to n do f:=1;
for i:=2 to n do
for j:=2 to k do
f:=f+f[abs(i-j),j];
writeln(f[n,k]);
end. -
0
DFS 0 MS
第一次用INTEGER只有40分...
var n,k:integer;
total:longint;procedure dfs(n,dep,now:longint);
var i:integer;
begin
if dep = k then
begin
if n >= now then inc(total);
exit;
end;
for i:= now to n div 2 do dfs(n-i,dep+1,i);
end;begin
readln(n,k);
total:=0;
dfs(n,1,1);
writeln(total);
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-Accepted 有效得分：100 有效耗时：0ms
暴搜超时最后一个点，递归一次AC……
不知zhhyoi用户暴搜怎么过的，汗……#include "stdio.h"
int fun(int n,int k,int start)
{
int i=start,sum=0;
if(k==1) return 1;
for(;i
国防安全员001
LV 8
@ 2009-07-15 11:41:32
