086.使用位置参数

最新推荐文章于 2023-05-17 09:13:34 发布

dos diosas

最新推荐文章于 2023-05-17 09:13:34 发布

阅读量133

点赞数

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

本文链接：https://blog.csdn.net/dosdiosas_/article/details/106038443

版权

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

105 篇文章 8 订阅

订阅专栏

PARAMETERS WITH out MODE CANNOT BE DEFAULTED

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

procedure Defaults is
   Index:Integer;
   Animal_Sum:Integer;
   
   procedure Animals(Total:in out Integer;
                     Cows:in Integer :=0;
                     Pigs:in Integer :=0;
                     Dogs:in Integer:=0)is
   begin
      Total:=Cows+Pigs+Dogs;
      Put("Cows=");
      Put(Cows,3);
      Put("  Pigs =");
      Put(Pigs,3);
      Put("  Dogs =");
      Put(Dogs,3);
      Put("  and they total");
      Put(Total,4);
      New_Line;
   end Animals;
   
begin
   Index:=3;
   Animals(Animal_Sum,2,3,4);
   Animals(Animal_Sum,3,Index,4);
   Animals(Dogs=>4,Total =>Animal_Sum); 
   Animals(Total=>Animal_Sum,Pigs => 2*Index+1,Cows=>5);
   Animals(Dogs=>Index+4,Total=>Animal_Sum);
   Animals(Animal_Sum,Dogs => 4,Pigs => Index,Cows => 2);
   Animals(Animal_Sum);
end Defaults;