Liebe alle,

anbei HÜ Gruppe 1!

Viele Grüße Katharina, Kenan, Johann

Übung 1:

p1= .Person~New("Alex","12.12.2000","Linz","22") p2= .Person~New("Kenan","16.05.1955","Wien","67") SAY p1~firstName p1~Geburtsdatum p1~City p1~Alter SAY p1~firstName p1~Alter p1~~increaseAge(20)~Alter

::CLASS Person ::METHOD INIT EXPOSE firstName Geburtsdatum City Alter USE ARG firstName, Geburtsdatum, City, Alter self~init:super ::ATTRIBUTE firstName ::ATTRIBUTE Geburtsdatum ::ATTRIBUTE City ::ATTRIBUTE Alter ::METHOD increaseAge EXPOSE Alter USE ARG increase Alter = Alter + increase

OUTPUT: REXXout>Alex 12.12.2000 Linz 22 REXXout>Alex 22 42

Übung 2:

.Vogel ~new("Schwalbe") ~fliegen .Fisch ~new("Forelle") ~schwimmen .Dino ~new("Elasmosaurus") ~ausgestorben ::CLASS Tier ::ATTRIBUTE name ::METHOD INIT self~name = ARG(1) ::CLASS Vogel MIXINCLASS Tier ::METHOD fliegen SAY self~name": 'Ich kann fliegen...'" ::CLASS Fisch MIXINCLASS Tier ::METHOD schwimmen SAY self~name": 'Ich kann schwimmen...'" ::CLASS Dino SUBCLASS Vogel INHERIT Fisch ::METHOD ausgestorben self ~~fliegen ~~schwimmen

OUTPUT:

REXXout>Schwalbe: 'Ich kann fliegen...' REXXout>Forelle: 'Ich kann schwimmen...' REXXout>Elasmosaurus: 'Ich kann fliegen...' REXXout>Elasmosaurus: 'Ich kann schwimmen...'