如果我已經定義的陣列型等 type Integer_Array is array(Natural range <>) of Integer;
，還可以使用封裝Ada.Containers.Vectors作爲 package Integer_Vectors is new Ada.Containers.Vectors(
Element_Type => Integer,
Index
我有程序，它正在閱讀的通用包，但我不知道該怎麼做關於上下文條款獲取數字打印和/或讀入從文件。在現在的客戶端程序中，我已經知道Element_Type應該是一個整數，但是我所有的聲明都是type元素，當沒有Ada.Element_text_IO時，我怎麼做這件事？ 請讓我知道，我一直堅持了一段時間。 客戶端程序 WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
我正在使用Ada進行UDP通信。該代碼必須將一些數據發送給另一個將要處理它的主機。我試圖發送初始消息來開始通信，但它不起作用。我的客戶代碼如下： with GNAT.Sockets;
use GNAT.Sockets;
with Ada.Text_IO;
with Ada.Exceptions;
use Ada.Exceptions;
procedure Client_Send is
我試着寫下面的程序： with Ada.Text_IO;
procedure Main is
type T is range 0 .. 18;
package IO is new Ada.Text_IO.Integer_IO (T);
begin
IO.Put (1);
end Main;
但是當我嘗試編譯，我得到以下錯誤信息： main.adb:
我想遍歷數組並檢查當前數組索引是否爲枚舉值。該陣列以及枚舉被定義如下： type Option is (None, A, B, C, D);
type Votes is array(Option) of Natural;
Zero_Option_Distribution: constant Votes := (others => 0);
Votes_Distribution: Votes
package Bird_Package is
type Bird_Type is tagged private;
procedure Init(A_Bird : out Bird_Type; Name : in String);
function Name(A_Bird : in Bird_Type) return String;
function