我有Windows 10 64位，我安装了刚安装的GNAT编程工作室（没有设置就像java jdk）。我想在GPS GNAT编程工作室制作我的第一个Ada程序。 在此基础上example，以下是Arrayproject.adb： with Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
use Ada.Text_
我正在Ada中做Z80仿真器。 我实现JR（相对跳转）的家庭，但我不满意我的代码： with Ada.Text_IO;
procedure main is
type UInt16 is mod 2 ** 16;
type UInt8 is mod 2 ** 8;
type Int8 is range -128 .. 127;
package UInt1
我是Ada的绝对初学者，有一件事我找不到具体的定义 - 这就是语句entry。 我理解一个带有障碍的条目 - 如果障碍为真，语句可以执行，如果为假，任务会排队直到评估为真。 例如： entry Get(Item : out Data_Item) when Number_In_Buffer /= 0 is
begin
...
end Get;
但是这是什么意思的声明entry出现没有随后w
此代码有什么问题？编译器说有两件事情，即没有运行条目，并且运行接受不匹配条目（两者似乎都是错误的），并且单独指出在声明之前不能使用Train（但它已被声明）。请向我解释发生了什么事。 我很犹豫要显示整个代码，但可以这样做。 type ItineraryType is array (0..255) of Integer;
type Train is record
Label : Inte
我尝试在Windows上通过命令行编译一个非常简单的GtkAda应用程序。下面是应用程序的代码： `WITH Gtk.Main ; USE Gtk.Main ;
WITH Gtk.Window ; USE Gtk.Window ;
PROCEDURE Test01 IS
win : Gtk_window ;
BEGIN
Init ;
Gtk_New(Win)
，所以我散列和定义这些类型/功能： subtype string2 is String(1..2);
function cString2 is new Ada.Unchecked_Conversion(string2, long_integer);
function cChar is new Ada.Unchecked_Conversion(character, long_integer);