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...'