041.使用其他过程中声明的变量

dos diosas

于 2020-05-03 13:14:34 发布

阅读量101

点赞数

CC 4.0 BY-SA版权

分类专栏： # Ada语言程序设计基础

本文链接：https://blog.youkuaiyun.com/dosdiosas_/article/details/105902496

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

105 篇文章

订阅专栏

本文探讨了程序设计中不同层级的子程序如何定义和使用变量，特别是在变量计数和索引操作上。通过具体代码示例，展示了局部变量与全局变量的作用范围，以及变量重命名和递归调用中的变量引用机制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure Scope2 is
   
   Count,Index:Integer;
   
   procedure Level1 is
      Index,Count:Integer;
      
      procedure Level2 is
         Count:Integer;  -- count from line 9
      begin
         Count:=Scope2.Count; --count from line 3
      end Level2;
      
      procedure Level2_Prime is
         Data,Index,Count:Integer;
         Outer_Index:Integer renames Scope2.Level1.Index; -- rename Scope2.Level1.Index as Outer_Index
      begin
         
         Count:=Index+      -- count from line 15
           Scope2.Level1.Count; -- count from line 6
         
         Index:=           -- index from line 15
           Scope2.Level1.Index+ -- index from line 6
             Scope2.Index; -- index from line 3
         
         Index:= -- index from line 17
           Outer_Index+ -- index from line 7
             Scope2.Index; -- index from 4
         
      end Level2_Prime;
      
   begin
      null;
   end Level1;
   
   
   procedure Other_Level1 is
   begin
       Count:=Index; --Both from line 4
   end Other_Level1;
   
begin
   Count:=Index; --Both from line 4
end Scope2;