Результаты поиска по запросу "ada"
ссылка
FUNCTION "=" (lString1, lString2 : IN lString) RETURN boolean IS IF lString1 = NULL AND lString2 = NULL THEN RETURN true; ELSIF lString1 = NULL OR lString2 = NULL THEN RETURN false; END IF;аюсь перегрузить оператор равенства в Аде. Каждый раз, ...
Ада генериков во время выполнения
Как бы вы создали экземпляр во время выполнения, а не во время компиляции? Пример без использования нового.
Застрял в программе Ада - Застрял на входе
У меня на руках довольно простой проект Ada. Задача состоит в том, чтобы взять набор голосов «избирателя», сравнить его с баллами каждого «кандидата» и определить, какой кандидат лучше всего подходит избирателю. Ввод выглядит следующим образом, ...
Проблемы с компиляцией в GPS (Ada IDE) с помощью glib.h
У меня возникли некоторые проблемы при попытке скомпилировать код Ады в GPS. GPS говорит, что отсутствует, когда я включаю его в пакет. Я попытался установить с помощью apt-get, и это делает, но ошибка все еще там. Что я могу делать дальше? Я ...
динамический размер массива, определенный во время выполнения в ADA
Можно ли иметь массив с размером, который определяется во время выполнения, например, Procedure prog is type myArray is array(Integer range <>) of Float; arraySize : Integer := 0; theArray : myArray(0..arraySize); Begin -- Get Array size ...
Загрузка общих объектов Ada в Perl с помощью DynaLoader.pm
Долгое время слушатель, впервые звонящий. Я знаю, что это несколько непонятный вопрос, и не ожидайте слишком многого. :-) У меня есть следующие файлы Ada: greeter.ads package Greeter is procedure Hello; end Greeter;greeter.adb with ...
Есть ли в Ada ключевое слово this?
В частности, есть ли способ для задачи получить ссылку на себя? Например: task type someTask; type someTaskAccessor is access someTask; task body someTask is pointerToTask : someTaskAccessor; begin pointerToTask = this; end someTask;
Отмена пробела после значения Integer'Image в Ada
когда я распечатаю эту процедуру ниже - procedure put (Date:Date_Type) is begin Put(Integer'Image(Date.Day)); --' Put("-"); Put(Integer'Image(Date.Month)); --' Put("-"); Put(Integer'Image(Date.Year)); --' end;Результат (например): 1-1- 2010 Мой ...