プログラミングⅡ　第５回

プログラミング課題　つづき

石置きゲーム５×８ を完成させてください

盤の内部表現は実際よりひとまわり大きくします．
01234 56789
1011121314 1516171819
2021222324 2526272829
3031323334 3536373839
4041424344 4546474849
5051525354 5556575859
6061626364 6566676869

盤を書くには二重ループにした方が楽です． 空いている部分を考えてください． 
           begin
             WriteLn('　　　-1  -2  -3  -4  -5  -6  -7  -8  ');
             WriteLn('　　┌─┬─┬─┬─┬─┬─┬─┬─┐');
             for I := 1 to 5 do
             begin

               for J := 1 to 8 do
                 begin
                   N := I*10+J;
                   YousoWoKaku(Ban[N]);
                  Write('│');
                 end;

             end;
             WriteLn('　　└─┴─┴─┴─┴─┴─┴─┴─┘');
           end; {BanWoKaku}