8. Übungsaufgabe (20 Punkte)

Datum: ___________________

Abgabetermin: ___________________ am Ende / am Anfang der Übungsstunde

Lernziele: Ein Paket erstellen lernen;

Den Umgang mit etwas komplexeren Typen üben

Aufgabe:

Entwickeln1 Sie ein Ada-Paket für den Umgang mit einem Datentyp "Datum". Wählen Sie eine geeignete Darstellung für ein Datum. Implementieren Sie die unten angegebenen Pflichtoperationen. Konstruieren Sie eine Testumgebung um die Operationen zu testen. Es gibt Zusatzpunkte für die Entwicklung weiterer sinnvoller Operationen - nicht jedoch get, put, Konstruktoren o.ä. (bis zu 3 Mal 5 Punkte). Abzugeben sind Spezifikation, Entwurf, Testplan, Programmtext und eine Diskette mit der ablauffähigen Testumgebung.

Pflichtoperationen:

• die Berechnung des Folgetages für ein beliebig eingegebenes Datum. Beachten Sie bitte die Schaltjahre und die Datumsumstellung! Der Übergang vom julianischen Kalender (nach Julius Cäsar) auf den gregorianischen Kalender (nach Papst Gregor XIII) fand in 1582 statt. Auf Donnerstag, dem 4. Okt. 1582 (dem letzten Tag, an dem beide Kalendar übereinstimmten) folgte Freitag, der 15. Okt. In einigen Ländern wird der julianischen Kalender noch verwendet, um die Oster- und Weihnachtstage zu berechnen. Seit 1900 liegen sie 13 Tage nach den gregorianischen Daten, weil nach dem julianischen Kalender alle Jahre, die durch 100 teilbar sind, Schaltjahre sind. Nach dem gregorianischen Kalender sind Jahre, die durch 100 aber nicht durch 400 teilbar sind (also 1700, 1800 und 1900), keine Schaltjahre.
• die Berechnung des Wochentages für ein beliebig eingegebenes Datum.

Weitere Operationen könnten sein:

• Anzahl von Tagen zwischen zwei Daten berechnen
• + : Datum x Zahl Datum
• - : Datum x Zahl Datum
• ...

Beispiel für eine Testumgebung:

WITH datum, Ada.Text_io; 
PROCEDURE test_datum IS 
   heute, morgen : Date_type; 
BEGIN 
   heute := datum.set_Date (January, 7, 1998); 
   morgen := datum.next_Date (heute); 
   Ada.Text_io.put ("Der Tag nach"); 
   datum.put (heute); 
   Ada.Text_io.put (" ist "); 
   datum.put (datum.day_of_week(morgen)); 
   Ada.Text_io.put (" den "); 
   datum.put (morgen); 
END test_datum;