Online Judge | Problem Set | Authors | Online Contests | User | ||||||
---|---|---|---|---|---|---|---|---|---|---|
Web Board Home Page F.A.Qs Statistical Charts | Current Contest Past Contests Scheduled Contests Award Contest |
求大牛看看错在哪里????????小弟感谢万分!!!!!!const dx:array[1..6] of longint=(-1,1,-1,1,0,0); dy:array[1..6] of longint=(-1,1,0,0,1,-1); var f:array[0..30,0..30,0..15] of longint; t,n,i,j,k,l,i1:longint; begin readln(t); for i1:=1 to t do begin readln(n); fillchar(f,sizeof(f),0); f[15,15,0]:=1; for k:=1 to n do for i:=1 to 15 do for j:=1 to 15 do for l:=1 to 6 do f[i,j,k]:=f[i,j,k]+f[i+dx[l],j+dy[l],k-1]; writeln(f[15,15,n]); end; end. Followed by: Post your reply here: |
All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator