046.使用多维数组

最新推荐文章于 2024-07-23 16:58:35 发布

原创最新推荐文章于 2024-07-23 16:58:35 发布 · 130 阅读

0 ·

CC 4.0 BY-SA版权

Ada语言程序设计基础专栏收录该内容

105 篇文章

订阅专栏

with Ada.Text_IO,Ada.Integer_Text_IO;
use Ada.Text_IO,Ada.Integer_Text_IO;

procedure Multary1 is
   
   type MATRIX is array(Integer range 1..3,
                        Integer range 1..4) of Integer;
   Square_Board:MATRIX;
   Checker_Board:MATRIX;
   Chess_Board:array(Integer range 1..3,
                     Integer range 1..4)of Integer;
   Across,Over:Integer;
   
begin
   
   for Across in 1..3 loop
      for Over in 1..4 loop
         Square_Board(Across,Over):=Across*Over;
         Chess_Board(Across,Over):=0;
      end loop;
   end loop;
   
   Checker_Board:=Square_Board;
   
   Checker_Board(2,3):=2;
   Checker_Board(Checker_Board(2,3),4):=17;
   Checker_Board(3,3):=Checker_Board(3,3);
   
   for Across in 1..3 loop
      for Over in 1..4 loop
         Put( Checker_Board(Across,Over),5);
      end loop;
      New_Line;
   end loop;
   
 end Multary1;