社区讨论

大神，救救我！！！！！

nnoipoyjh
P1002[NOIP 2002 普及组] 过河卒参与者 6已保存回复 6

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
6 条
当前快照
1 份
快照标识符
@mi4g9ml1
此快照首次捕获于
2025/11/18 18:47
4 个月前
此快照最后确认于
2025/11/18 18:47
4 个月前
查看原帖
CPP
const
dx:array[1..8] of -2..2=(-2,2,-2,2,1,-1,1,-1);
dy:array[1..8] of -2..2=(1,-1,-1,1,2,-2,-2,2);
var n,m,x,y,i,j:integer;
    a:array[-2..30,-2..30] of longint;
begin
  read(n,m,x,y);
  for i:=0 to n do
    for j:=0 to m do
    a[i,j]:=1;
  a[x,y]:=0;
  for i:=1 to 8 do
  a[x+dx[i],y+dy[i]]:=0;
  for i:=1 to n do
    for j:=1 to m do
    if a[i,j]<>0 then
    a[i,j]:=a[i-1,j]+a[i,j-1];
  writeln(a[n,m]);
end.

回复

共 6 条回复，欢迎继续交流。

正在加载回复...