كيفية طباعة تاريخ التقويم

Question

أنا أستخدم GNAT (مترجم Old ADA95) وأواجه مشكلة لطباعة التاريخ.
أنا أعلن: (مع ada.calendar)

CDATE: التقويم.
CDATE: = calendar.time_of (السنة => 2010، شهر => 1، day => 10)؛

الآن لقد حاولت طباعةها -

put_line ("السنة:" & السنة (CDATE) IMG)؛

لكنني لم تمكنت من القيام بذلك ...

Answer 1

لقد قدمت شظايا البرنامج فقط، لذلك من الصعب معرفة ما كتبته بالفعل وتحاول الركض. ولم تشير إلى "كيف" لم تنجح. لم تكن تجميعها؟ هل تجميعها ولكن لا تعمل بشكل صحيح؟

إذا تم قطع الأجزاء كما هي من التعليمات البرمجية ولصقها هنا، فربما حصلت على أخطاء بناء الجملة.

إليك برنامج عمل كامل يقوم به ما يبدو تريده:

with Calendar;
with Text_IO; use Text_IO;

procedure Cdate_Test is

   Cdate : Calendar.Time;

begin
   Cdate := Calendar.Time_Of(Year => 2010, Month => 1, Day => 10);
   Put_Line("Year: " & Calendar.Year(Cdate)'Img);
end Cdate_Test;

تم تجميع هذا وتشغيله باستخدام GNAT، وبينما قد تستخدم نسخة قديمة منه، فإنه ليس في حد ذاته "مترجم قديم"، أحدث / أعظم نسخة مجانية من ذلك، GNAT GPL 2009., ، متاح بسهولة.