ada中数组操作代码

代码语言:ada

所属分类:

代码描述:ada中数组操作代码

代码标签: 操作 数组

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

-- Demonstrates 
--      constrained arrays with anonymous types
--      aggregate array assignment
--  Array bounds are fixed.  They can never change.  (But see unconstrained array types)

with ada.text_io; use ada.text_io; 
with ada.integer_text_io; use ada.integer_text_io; 
 
procedure array0 is 
    -- Assume cats and dogs at locations from -3 up to 3.
    -- Cat counts are not initialized, dog counts are.

    -- Constrained arrays (ie they have bounds) with anonymous types (ie no named type)
    cat_count: array(-3 .. 3) of Natural;
    dog_count: array(-3 .. 3) of Natural := (-2 |  0 | 2 => 1, others => 0); 

    total_animals: Natural := 0;
begin 
.........完整代码请登录后点击上方下载按钮下载查看

网友评论0

相似代码