Rosetta Code

Calendar - for "REAL" programmers: Difference between revisions

Page Discussion

Calendar - for "REAL" programmers (view source)

Revision as of 11:00, 29 August 2011

116 bytes added ,  12 years ago
→‎{{header|Ada}}
Line 22:
=={{header|Ada}}==
 
In Ada, the task is really easy for "real" programmers, because Ada is case insensitive.
Uses the package "Printable_Calendar" from the [http://rosettacode.org/wiki/Calendar#Ada Ada solution of the calendar task]:▼
 
▲UsesI am reusing the package "Printable_Calendar" from the [http://rosettacode.org/wiki/Calendar#Ada Ada solution of the calendar task]:
<lang Ada>with Printable_Calendar;
 
<lang Ada>WITH PRINTABLE_CALENDAR;
procedure Real_Cal is
 
PROCEDURE REAL_CAL IS
C: Printable_Calendar.Calendar := Printable_Calendar.Init_132
 
C: PRINTABLE_CALENDAR.CALENDAR := PRINTABLE_CALENDAR.IniT_132
((Weekday_Rep =>
"MO TU WE TH FR SA SO",
Month_RepMONTH_REP =>
(" JANUARY ", " FEBRUARY ",
" MARCH ", " APRIL ",
Line 40 ⟶ 42:
));
 
BEGIN
begin
C.Print_Line_CenteredPRINT_LINE_CENTERED("[SNOOPY]");
C.New_LineNEW_LINE;
C.PrintPRINT(1969, "1969NINETEEN-SIXTY-NINE");
endEND Real_CalREAL_CAL;</lang>
 
Output:
<pre> [SNOOPY]
 
1969 NINETEEN-SIXTY-NINE
 
JANUARY FEBRUARY MARCH APRIL MAY JUNE
Line 66 ⟶ 68:
14 15 16 17 18 19 20 11 12 13 14 15 16 17 15 16 17 18 19 20 21 13 14 15 16 17 18 19 10 11 12 13 14 15 16 15 16 17 18 19 20 21
21 22 23 24 25 26 27 18 19 20 21 22 23 24 22 23 24 25 26 27 28 20 21 22 23 24 25 26 17 18 19 20 21 22 23 22 23 24 25 26 27 28
28 29 30 31 25 26 27 28 29 30 31 29 30 27 28 29 30 31 24 25 26 27 28 29 30 29 30 31 </pre>
 
To change the output to 80-character devices, replace "Init_132" by "Init_80".
 
=={{header|ALGOL 68}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/184680"