Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Pascal经典算法详解 - 骑士游历问题 →→→→→进入此内容的聊天室

来自 , 2019-02-15, 写在 Delphi (Object Pascal), 查看 156 次.
URL http://www.code666.cn/view/a7b23e6e
  1. fillchar(map,sizeof(map),0);
  2. map[x1,y1]←1；
  3. for i←x1+1 to x2 do
  4.   for j←1 to m do
  5.      map[i,j]←map[i-1,j-2]+map[i-1,j+2]+map[i-2,j-1]+map[i-2,j+1];
  6. writeln(map[x2,y2]);
  7.  
  8.  

回复 "Pascal经典算法详解 - 骑士游历问题"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666