Lösung Aufgabe 2.2.1:


type
        jahr = 1600..2012;
        arten = (EFH,MFH,RH,REH,DHH,ETW, Sonstiges);
        ziffer = '0'..'9';
        merkmale = (GaesteWC, Garage, Carport, Terrasse, Garten, Balkon, Kamin, Wintergarten, Einbaukueche, Parkett);
        objekttyp = record
                verkaeufer: string;
                plz : array[1..5] of ziffer;
                hausart: arten;
                zimmer: integer;
                baujahr: jahr;
                ausstattung : set of merkmale;
                preis: real;
              end;



Lösung Aufgabe 2.2.2:

type
        jahr = 1600..2012;
        arten = (EFH,MFH,RH,REH,DHH,ETW, Sonstiges);
        ziffer = '0'..'9';
        objekttyp = record
                verkaeufer: string;
                plz : array[1..5] of ziffer;
                hausart: arten;
                zimmer: integer;
                baujahr: jahr;
                ausstattung : array[1..50] of string;
                anz_merkmale:0..50;
                preis: real;
              end;