Lyrik ~ Klinge
    Versuch einer Dichtung            

12 
 April 
 
2017


 

Pascal ist eine Anfang der 1970er Jahre entwickelte imperative Programmiersprache, die heute noch in älteren Anwendungen und zur einführenden Lehre ins Programmieren Verwendung findet. Im produktiven Bereich wurde sie mittlerweile von Sprachen wie Java abgelöst.

Pascal wurde von Niklaus Wirth an der ETH Zürich als Lehrsprache eingeführt, um die strukturierte Programmierung zu lehren.

Quelle: WikiPedia

Wie ein Maler seine Zeichnungen im Vorfeld mit Bleistift skizziert, so bietet eine objektorientierte Programmiersprache wie Pascal (bzw. deren Erweiterung “Object Pascal“) die Möglichkeit, eine amorphe Gedankenmasse in Sinnstrukturen zu gliedern, den Tonklumpen zu “formulieren”.
Merkmalssemantik und Prototypensemantik finden auch in der Programmierung Einzug mittels Klassen, Objekten, Attributen (Feldern) und Vererbungen [von Eigenschaften].

Der ästhetische Reiz bleibt dabei nicht aus und ereilt mich wie damals in den 80er Jahren auf dem Campingplatz in Italien beim Studium von ST Pascal+, insbesondere die flüssige Lesart der strukturellen Reinheit und Klarheit von Records. [1]Code is Poetry

type Mensch = class
       private
         Vorname: string;
         Nachname: string;
         Geburtstag: Date;
         Geschlecht: string;
       end;

     Berufstaetig = class(Mensch)
       private
         KontoNr: integer;
         Bankleitzahl: integer;
       public
         procedure GehaltZahlen;
       end;

     Manager = class(Berufstaetig)
       private
         Gehalt: real;
         Zulagen: real;
         AnzahlMitarbeiter: integer;
       end;

     Schueler = class(Mensch)
       private
         SchulKlasse: integer;
         Taschengeld: real;
       public
         procedure TaschengeldZahlen;
       end;

Hinter dem Schlüsselwort class steht in Klammer der Name des direkten Vorfahren.
Berufstaetig erbt also alle Attribute wie Vorname und Nachname von der Klasse Mensch und fügt noch eigene Attribute hinzu, die eben nur für Berufstätige gebraucht werden.
Manager erbt von Berufstaetig und somit auch von Mensch.

Quelle: Delphi-Source

Fußnoten[+]