Я работаю над домашним заданием по ада и не понимаю, как я могу получить текущий год. Я знаю, что мне нужно использовать пакет Ada.Calendar, но я не знаю, как это сделать.
Прочтите раздел 9.6 Справочного руководства по Аде. http://www.ada-auth.org/standards/12rm/html/RM-9-6.html
Вам нужно объявить переменную типа Time, определенную в пакете Ada.Calendar. Функция Clock, также описанная в пакете Ada.Calendar, возвращает текущее время. Присвойте это значение переменной Time, которую вы определили.
Пакет Ada.Calendar также содержит функцию Year, которая принимает экземпляр Time в качестве параметра и возвращает номер года этого значения Time.
with Ada.Calendar; use Ada.Calendar;
with Ada.Text_IO; use Ada.Text_IO;
procedure Display_This_Year is
Now : Time := clock;
begin
Put_Line("This year is " & Year_Number'Image(Year(Now)));
end Display_This_Year;