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