首页 > 试题广场 >

（棋盘覆盖问题）在一个2k×2ksup...

[填空题]
（棋盘覆盖问题）在一个2k×2k个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的3各数字构成一个纸片。下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。(图画不了...郁闷)
Program j402;
type
   arr1=array[1..65] of integer;
   arr2=array[1..65] of arr1;
var
    board:arr2;
    tile:integer;
    size,dr,dc:integer;
procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer);
var t,s:integer;
begin
    if (size=1) then   1   ;
    t:=tile; inc(tile);
    s:=size div 2;
    if    2     then chessboard(tr,tc,dr,dc,s)
    else
    begin
        board[tr+s-1]:=t;
           3   ；
    end;
    if (dr<tr+s) and (dc>=tc+s) then chessboard(tr,tc+s,dr,dc,s)
    else
    begin
        board[tr+s-1][tc+s]:=t;
           4    ;
    end;
    if (dr>=tr+s) and (dc<tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else
    begin
       board[tr+s][tc+s]:=t;
           5   ;
    end;
    if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s)
    else
    begin
       board[tr+s][tc+s]:=t;
           6    ;
    end;
end;
procedure prt1(n:integer);
var i,j:integer;
begin
    for i:=1 to n do
    begin
        for j:=1 to n do write(board[j]:3);
        writeln;
    end;
end;
begin
    writeln('input size(4/8/16/64):');
    readln(size);
    writeln('input the position of special block(x,y):');
    readln(dr,dc);
    board[dr][dc]:=-1;
    tile:=1;
    chessboard(1,1,dr,dc,size);
    prt1(size);
end.

查看正确选项
添加回答
幸运的芹菜躺平又起来了头像 幸运的芹菜躺平又起来了
Program j402;
type
   arr1=array[1..65] of integer;
   arr2=array[1..65] of arr1;
var
    board:arr2;
    tile:integer;
    size,dr,dc:integer;
procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer);
var t,s:integer;
begin
    if (size=1) then exit;  // 填空1：递归出口，size=1直接退出
    t:=tile; inc(tile);
    s:=size div 2;
    
    // 处理左上角子棋盘
    if (dr<tr+s) and (dc<tc+s) then chessboard(tr,tc,dr,dc,s)  // 填空2
    else
    begin
        board[tr+s-1][tc+s-1]:=t;  // 填空3：补全右下角坐标
        chessboard(tr,tc,tr+s-1,tc+s-1,s);  // 填空4：递归覆盖左上角
    end;
    
    // 处理右上角子棋盘
    if (dr<tr+s) and (dc>=tc+s) then chessboard(tr,tc+s,dr,dc,s)
    else
    begin
        board[tr+s-1][tc+s]:=t;
        chessboard(tr,tc+s,tr+s-1,tc+s,s);  // 填空5：递归覆盖右上角
    end;
    
    // 处理左下角子棋盘
    if (dr>=tr+s) and (dc<tc+s) then chessboard(tr+s,tc,dr,dc,s)  // 填空6：补全坐标
    else
    begin
       board[tr+s][tc+s-1]:=t;  // 填空7：补全坐标
       chessboard(tr+s,tc,tr+s,tc+s-1,s);  // 填空8：递归覆盖左下角
    end;
    
    // 处理右下角子棋盘
    if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s)
    else
    begin
       board[tr+s][tc+s]:=t;
       chessboard(tr+s,tc+s,tr+s,tc+s,s);  // 填空9：递归覆盖右下角
    end;
end;

procedure prt1(n:integer);
var i,j:integer;
begin
    for i:=1 to n do
    begin
        for j:=1 to n do write(board[i][j]:3);  // 修正：board[i][j] 正确输出
        writeln;
    end;
end;

begin
    writeln('input size(4/8/16/64):');
    readln(size);
    writeln('input the position of special block(x,y):');
    readln(dr,dc);
    board[dr][dc]:=-1;
    tile:=1;
    chessboard(1,1,dr,dc,size);
    prt1(size);
    readln;
end.

发表于 今天 13:57:19 回复(0)
提交观点

问题信息

普及 阅读程序-Pascal Pascal 数学
上传者：牛客309901号
难度：
1条回答 2199浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号