165 条题解
-
0
chaozixi LV 8 @ 2009-08-20 12:24:09
POJ1579的程序贴过来直接AC,0MS秒杀,哈哈
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar i,j,k,x,y,z:longint;
a:array[-60..21,-60..21,-60..21]of longint;
begin
for i:=-50 to 0 do
for j:=-50 to 0 do
for k:=-50 to 0 do a:=1;
for i:=-50 to 20 do
for j:=-50 to 20 do
for k:=-50 to 20 do
begin
if (i -
0
sixhomeland LV 9 @ 2009-08-12 22:57:24
崩溃啊！！！
这是什么题啊！！！
如果用记忆化，一定要预处理！！
不能算一个记一个！
PS:照理说没预处理的话应该是超时，可评测机却显示答案错误！崩溃啊！！！ -
0
1.记忆化搜索;
2.应输出的空格一个也不能少;
3.
begin
writeln('w(0, 0, 0) = 1');
writeln('w(1, 1, 1) = 2');
writeln('w(2, 2, 2) = 4');
writeln('w(10, 4, 6) = 523');
writeln('w(50, 50, 50) = 1048576');
writeln('w(-1, 7, 18) = 1');
writeln('w(17, 17, 18) = 131072');
writeln('w(19, 17, 18) = 524271');
writeln('w(21, -21, 20) = 1');
writeln('w(-1, -1, -11) = 1');
end.
这是测试数据,如果在自己的机子上没有通过,请仔细检查运算式有没有打错. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|--
program p1080;
var x,y,z:longint;
w:array[0..20,0..20,0..20] of longint;
t:array[0..20,0..20,0..20] of boolean;procedure pre;
var i,j:longint;
begin
fillchar(t,sizeof(t),0);
fillchar(w,sizeof(w),0);
for i:=0 to 20 do
for j:=0 to 20 do
begin
w[0,i,j]:=1; t[0,i,j]:=true;
w:=1; t:=true;
w:=1; t:=true;
end;
end;function search(i,j,k:longint):longint;
begin
if t then exit(w);
if (i -
0
why19931123 LV 10 @ 2009-07-25 09:49:35
编译通过...
├ 测试数据 01：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms直接找递推关系！
不用递归做！
-
0
lemon_TsyD LV 9 @ 2009-09-03 16:30:05
以前这题一交就Running不停。。。。。
现在交竟然不了，难道RP++了
现在用的是goto的循环了，我都不敢用while（1）循环了，防止RUnning
cout -
0
guori12321 LV 8 @ 2009-07-16 11:46:50
天知道我为什么只开了integer...估计错误，交了7次，改了就AC了
-
0
var f:array[-100..100,-100..100,-100..100] of qword;
i,j,k,n,m,a,b,c:integer;
v:array[-100..100,-100..100,-100..100] of boolean;
flg:boolean;function w(a,b,c:integer):qword;
var t:qword;
begin
if v[a,b,c] then exit(f[a,b,c]);
if (( a 20 )) then begin f[a,b,c]:= f[20,20,20] ; v[a,b,c]:=true ; exit(f[20,20,20]); end;
if (( a < b ) and ( b < c )) then
begin
t:=w(a,b,c-1)+w(a,b-1,c-1)-w(a,b-1,c);
f[a,b,c]:=t;
v[a,b,c]:=true;
exit(t);
end;
t:=w(a-1,b,c)+w(a-1,b-1,c)+w(a-1,b,c-1)-w(a-1,b-1,c-1);
f[a,b,c]:=t;
v[a,b,c]:=true;
exit(t);
end;begin
fillchar(v,sizeof(v),false);
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
f[a,b,c]:=w(a,b,c);
readln(a,b,c);
while (( a -1 ) or ( b -1 ) or ( c -1 )) do
begin
writeln('w(',a,',',b,',',c,') = ',w(a,b,c));
readln(a,b,c);
end;
end.
chaozixi
LV 8
@ 2009-08-20 12:24:09
