type Monats_Typ is (Jan, Feb, Mär, Apr, Mai, Jun, Jul, Aug,
Sep, Okt, Nov, Dez);
Monat : Monats_Typ := Mai;
...
for I in Monats_Typ loop -- zyklisch geschlossene Ausgabe der Monate
beginnend mit "Mai"
Put(Monats_Typ'Image(Monat));
if Monat = Monats_Typ'Last then
Monat := Monats_Typ'First;
else
Monat := Monats_Typ'Succ(Monat);
-- Das Attribut 'Succ ermittelt den Nachfolger eines Elements
end if;
end loop;
subtype Sommermonats_Typ is Monats_Typ range
Jun..Sep;
...
Put(Sommermonats_Typ'Image(Sommermonats_Typ'First): -- gibt hier
"Jun" aus
Put(Sommermonats_Typ'Image(Sommermonats_Typ'Last): -- gibt hier
"Sep" aus
|