Zum Inhalt springen

Pascal (Programmiersprache)

aus Wikipedia, der freien Enzyklopädie
Dies ist eine alte Version dieser Seite, zuletzt bearbeitet am 23. November 2007 um 12:16 Uhr durch Dr.tux (Diskussion | Beiträge) (Änderung 39257302 von 217.88.247.79 (Diskussion) wurde rückgängig gemacht. Das Beispiel ist für Standard Pascal). Sie kann sich erheblich von der aktuellen Version unterscheiden.
Pascal
Basisdaten
Paradigmen: imperativ, strukturiert
Erscheinungsjahr: 1970
Designer: Niklaus Wirth
Entwickler: Niklaus Wirth
Aktuelle Version ISO/IEC 10206:1991 Stage: 90.93 (29 июля 2008 года)
Dialekte: UCSD-Pascal, Borland Turbo Pascal
Beeinflusst von: ALGOL
Beeinflusste: Modula-2, Ada, Delphi, Chrome

Mit der Programmiersprache Pascal führte Niklaus Wirth an der ETH Zürich 1972 die strukturierte Programmierung ein.

Allgemeines zur Sprache

Pascal ist eine Weiterentwicklung von ALGOL.

Das wichtigste Konstruktionsprinzip war, die Sprache so einfach und strukturiert wie möglich zu gestalten - die Sprache wurde von Niklaus Wirth ausdrücklich und speziell als Lehrsprache entwickelt.

Gleichzeitig sollte strukturierte Programmierung möglich sein. Alle Variablen müssen vor der Benutzung deklariert werden. Der erste Pascal-Compiler selbst entstand auf der CDC Cyber 6000 der ETH Zürich. Daraus entstand dann Pascal 6000, welches als erste operative Version eines Compilers der Sprache gesehen werden kann.

Ein zweiter Pascal-Compiler – der P4 „Portable Pascal Compiler“ von Urs Ammann, Kesav Nori und Christian Jacobi – stammte ebenfalls von der ETH Zürich. Der P4 erzeugte eine plattformunabhängige, als Assemblersprache ausgelegte Zwischensprache, den P-Code, der durch eine sogenannte virtuelle Maschine (ein Programm) interpretiert wird. Später entstanden dann Compiler, die auf dem P4 basierten. Die verbreitetste Version wurde unter dem Namen UCSD Pascal bekannt, das auf vielen Systemen implementiert wurde, u. a. auf Apple II und Texas Instruments TI-99/4A. Im Mai 2006 wurden die Quelltexte von UCSD Pascal freigegeben und trugen wesentlich zur Verbreitung der Sprache sowohl (zuerst) in den Vereinigten Staaten, später auch in Europa bei.

Bei den meisten Pascal-Compilern handelte es sich um sogenannte Ein-Pass-Compiler, d. h., der Compiler muss die Quelle nur ein einziges Mal lesen und analysieren. Das Design der Sprache war so gehalten, um genau das zu ermöglichen. Bei der damaligen Geschwindigkeit der Rechner war dies ein großer Vorteil.

Pascal zeichnet sich durch eine strikte und einfach verständliche Syntax sowie durch den Verzicht auf kontextabhängige Interpretationen des Codes aus. Somit erlaubt Pascal im Vergleich zu Sprachen wie C und Fortran eine gute Lesbarkeit und, verglichen mit Fortran, auch eine bessere Unterstützung von strukturierter Programmierung.

Ein wichtiges Konzept, das Wirth zur Anwendung brachte, ist die starke Typisierung (strong typing): Variablen sind bereits zur Übersetzungszeit einem bestimmten Datentyp zugeordnet, und dieser kann nicht nachträglich verändert werden. Typenstrenge bedeutet, dass Wertzuweisungen ausschließlich unter Variablen gleichen Typs erlaubt sind. In Pascal gibt es von diesem strikten Zwang lediglich zwei Ausnahmen:

  • Wertzuweisungen der Form [Variable vom Typ real] := [Wert vom Typ integer]
  • Wertzuweisungen von eingeschränkten Wertebereichen eines ordinalen Typs. Beispiel: type int10 = 1 .. 10; Werte dieses Typs konnten dann Integervariablen zugewiesen werden.

Wegen der guten Prüfbarkeit des Codes und der klaren Zuordnung der Variablen wird Pascal auch heute noch für kommerzielle Anwendungen z. B. in sicherheitsrelevanten Bereichen verwendet. So ist die erst 2005 eingeführte Betriebsleittechnik IV der Transrapid-Versuchsanlage Emsland in Pascal programmiert.

Datentypen

Pascal kennt als einfache Datentypen char, boolean, integer, real und ordinale Datentypen. In einigen Dialekten wurden die einfachen numerischen Datentypen erweitert, um passende Wortlängen abzudecken. Strukturierte Datentypen sind array, record, set (Mengen) und file. Der Datentyp text entspricht der Definition file text = file of char;

Programmstrukturen

Charakteristisch für Pascal ist das Konzept der Verschachtelung von Prozeduren und Funktionen. Im Deklarationsteil einer Prozedur oder Funktion können andere Prozeduren und Funktionen auftauchen. Dabei gibt es klar verständliche Prinzipien über die Sichtbarkeit von Deklarationen in übergeordneten Funktionen und Prozeduren.

Kontrollstrukturen

Kontrollstrukturen sind if then else, case (in Dialekten mit einem else oder otherwise versehen), for, repeat, while und goto. Da Pascal der strukturierten Programmierung dient, soll das goto lediglich strukturerhöhend eingesetzt werden. Pascal unterstützt in seiner Urform keine Anweisungen, mit denen Prozeduren oder Schleifen hart verlassen werden können. Als strukturerhöhendes goto werden Sprünge ans Ende von Prozeduren oder unmittelbar hinter Schleifenenden akzeptiert, sofern sich dadurch umfangreiche Konstruktionen schlecht lesbarer if-Anweisungen oder undurchschaubarer boolescher Ausdrucke vermeiden lassen. Viele Pascal-Compiler erlauben keine goto, die zu instabilen Systemzuständen führen, z. B. der Sprung in den Anweisungsblock einer Schleife oder eines if.

Nachteile

Da die Sprache ursprünglich nur als Lehrsprache konzipiert war, wies das Standard Pascal (wie es N. Wirth definierte) einige Mängel auf, die den kommerziellen Einsatz schwieriger machten: Das Konzept für Dateizugriffe ("file I/O") war schwach, die Laufzeitbibliothek eher rudimentär (im Vergleich zur C-Bibliothek), und Zeichenketten konnten nur über seltsame Umwege (packed array) direkt im Code verwendet werden. Das führte dazu, dass praktisch jede kommerzielle Implementierung das auszumerzen versuchte und damit einen neuen Pascal-Dialekt produzierte – und diese Dialekte waren nur sehr bedingt zueinander kompatibel.

Ein anderer wesentlicher Nachteil der ursprünglichen Implementierung war, dass eine Modularisierung im Sinne getrennter Compilierung nicht vorgesehen war – ein Manko, das mit der Weiterentwicklung Modula-2 behoben wurde. Plattformspezifische Implementierungen sahen für diese Lücke ebenfalls immer eine Lösung vor (z. B. die Units von Turbo-Pascal, oder später die Module in ANSI/ISO Extended Pascal).

Heute findet Turbo Pascal auf dem PC selten Anwendung. Neuere Pascalversionen sind besonders in sicherheitskritischen Anwendungsbereichen verbreitet. Eine pascalähnliche Notation wird von jeher in der Informatik und Mathematik zur Darstellung von Algorithmen benutzt. Pädagogische Gründe basierend auf der Typstrenge und frei verfügbare portierbare Pascalcompiler (Free Pascal, GNU Pascal) sind Gründe, warum im aktuellen Informatikunterricht Pascal noch immer eingesetzt wird - trotz der geringen Relevanz als Programmiersprache im kommerziellen Umfeld.

Unterschiede zu C

  • keine nullterminierten Zeichenketten – Standard Pascal hatte zwar Zeichenketten-Literale aber keinen Typ string (s. oben). In einigen späteren Versionen werden Zeichenketten nicht durch ein Null-Byte terminiert, sondern es wird die Länge im ersten Byte String[0]) gespeichert und über die Funktion length(<Bezeichner>) abgefragt. Somit beginnt das erste Nutzzeichen bei String[1]. Da in vielen Implementierungen (z. B. Turbo Pascal) für die Speicherung der Zeichenkettenlänge nur ein Byte vorgesehen war, ist die Länge auf 255 Zeichen begrenzt. Diese Einschränkung galt als die markanteste überhaupt. Im Extended Pascal Standard wurden Zeichenketten als Scheme-Typ definiert. Auch hier muss die Kapazität angegeben werden, sie wird aber in runde Klammern geschrieben, und es gibt keine formale Längenbeschränkung: String(10240).
  • strikte Trennung zwischen Funktionen und Prozeduren – Pascal trennt strikt zwischen einer Funktion (Rückgabewert) und einer Prozedur (kein Rückgabewert, Typ void in C). Eine Funktion darf nicht als Prozedur aufgerufen werden – d. h. der Rückgabewert muss stets entgegengenommen werden.
  • parameterlose Funktionen/Prozeduren – Verfügt eine Prozedur/Funktion über keine Parameter, so darf beim Aufruf dieser keine Leerklammer () gesetzt werden.
  • Deklarationen – Variablen und Typdefinitionen dürfen nicht innerhalb der Implementierung einer Funktion/Prozedur (zwischen BEGIN und END) deklariert werden – dies muss in einem speziellen Block im Definitionsteil geschehen. Anders als C erlaubt Pascal die Deklarationen lokaler Funktionen/Prozeduren.
  • Namen – In Pascal ist die Groß-/Kleinschreibung bei Namen (Typen, Konstanten, Variablen, Funktionen/Prozeduren) irrelevant.
  • Blockmarkierungen – Pascal verwendet zur Kennzeichnung von Blöcken die Schlüsselwörter BEGIN und END statt { und } wie in C.
  • Semikolon – Das Semikolon wird nicht wie in C als Befehls-Abschluss interpretiert, sondern als Trennzeichen zwischen Anweisungen. Vor einem END oder UNTIL kann es somit weggelassen werden. Vor einem ELSE darf es i. d. R. gar nicht stehen, da sonst der IF-Zweig als abgeschlossen angesehen werden würde. Ein Fall, wo es vor dem ELSE steht (und stehen muss), ist am Ende einer CASE-Auflistung.
  • Delimiter – Für Zeichenketten-Literale und Zeichen-Literale wird dasselbe Begrenzungszeichen (Delimiter), nämlich der Apostroph, verwendet.
  • Zuweisungen – Zuweisungen an Variablen werden durch die Sequenz := definiert, das Gleichheitszeichen allein dient dem Vergleich.
  • Operatoren – Pascal verwendet die Operatoren and, or, not, div (nur für Integer, bei Real ist es /), mod und <> anstatt der C-Operatoren &&, ||, !, /, % und !=. Die „Short Circuit“-Funktionalität von && und || in C (sobald das Ergebnis feststeht, nämlich wenn der linke Teil beim and FALSE beziehungsweise beim or TRUE ist, wird der rechte nicht mehr ausgewertet) schloss N. Wirth explizit aus (die Reihenfolge der Auswertung von arithmetischen Ausdrücken obliegt dem Compiler). In Standard-Pascal gibt es keine Bitoperationen für Integer (wie &, |, ^ und ~ von C), aber stattdessen den Typ set of (mit den Operatoren *, + und - für Durchschnitt, Vereinigung und Mengendifferenz).
  • strenge Typentrennung – u. a. ist Char nicht austauschbar mit Integer, die Umwandlung muss mit den Funktionen ord() und chr() durchgeführt werden. Explizite Typumwandlungen, sog. "type casts", wurden erst mit Turbo Pascal eingeführt. In Standard-Pascal musste dafür ein Umweg über (den Mißbrauch von) Variantenrecords (union in C) genommen werden.

Standards

Es gibt drei Standards, die sich auf Pascal beziehen:

  1. Standard Pascal: ANSI/IEEE770X3.97-1993 oder ISO 7185:1990
  2. Extended Pascal: ANSI/IEEE770X3.160-1989 oder ISO/IEC 10206:1991
  3. sowie einen Entwurf zu „Object-Oriented Extensions to Pascal“

Allerdings sind nur die wenigsten Compiler zu diesen Standards kompatibel. Diese Tatsache verleitete Scott A. Moore zu der bissigen Bemerkung „Pascal is, unfortunately, very much a‚ great improvement on its successors“ („Pascal ist leider so ziemlich eine große Verbesserung seiner Nachfolger“ – damals bereits ein geflügelter Satz, der schon früher über ALGOL oft gesagt worden war).

Selbst großen Compilern wie Delphi oder FreePascal fehlen bis heute einige Elemente aus Standard Pascal, während Extended Pascal von kaum einem unterstützt wird. Lediglich Prospero Pascal ist vollständig kompatibel zu Extended Pascal, während auch GNU Pascal vollständige Kompatibilität anstrebt.

Implementierungen (Compiler, Interpreter und IDEs)

Pascal hatte von Anfang an im universitären Bereich sehr großen Erfolg, was sich u. a. auch in der Programmiersprache Ada niederschlug, die sehr stark an der Syntax von Pascal angelehnt ist.

Trotz seiner Einschränkungen erlebte Pascal eine Blütezeit, als die Firma Borland eine Version mit dem Namen Turbo Pascal publizierte, in der die ursprünglich nur zu Lehrzwecken geschaffene Sprache so stark erweitert wurde, dass viele weit verbreitete Programme damit entwickelt werden konnten. U. a. wurde dabei auch in der Version 5.5 die Objektorientierung in Pascal eingeführt.

Heute gibt es einige Freeware-Implementationen:

Virtual Pascal

Diese inzwischen freie Implementierung eines Borland-kompatiblen Pascal Compilers für OS/2 wurde auch auf andere Plattformen portiert, wird aber seit 2005 nicht mehr weiterentwickelt.

Free Pascal

Ein unter der GNU Lesser General Public License stehendes Open-Source-Projekt, das sich zum Ziel gesetzt hat, einen freien Compiler zu erzeugen, der 100%ig kompatibel zu Turbo Pascal und Delphi sein soll.

GNU Pascal

Ein Pascal Compiler, der als Frontend zur Gnu Compiler Collection konzipiert ist. Es ist kein Bestandteil der GCC selbst, ist aber durch die Verwendung der GCC plattformunabhängig. Die Entwicklung von GPC hat sich zuletzt verzögert.

Dev-Pascal

Eine unter Windows laufende IDE, die auf Free-Pascal oder GNU-Pascal als Compiler aufsetzen kann. Wird nicht mehr weiterentwickelt.

Lazarus

Eine Entwicklungsumgebung für Free Pascal, die auch verschiedene Komponenten zur Verfügung stellt. Die IDE ist sehr Delphi-ähnlich gestaltet und verwendet unter Unix das GTK+ als Grafik-Toolkit, unter Windows (win32/win64/wince) setzt es auf der nativen API auf.

Hallo Welt

Das Beispielprogramm Hallo Welt sieht in Pascal folgendermaßen aus: 

 program Hallo (input, output);
 begin
  writeln('Hallo Welt');
  readln
 end.

oder in neueren Pascal-Versionen sieht das Programm so aus: 

 program Hallo;
 begin
  writeln('Hallo Welt');
  readkey
 end.

Ein Detail am Rande: In manchen alten Beispielen findet man ein READLN- nach dem WRITELN-Befehl. Das war nur notwendig, weil die I/O-Architektur der CDC-Cyber 6000, auf der Wirth den ersten Pascal-Compiler entwickelte, das benötigte, um die internen Puffer zu leeren – sonst wäre im interaktiven Betrieb keine Ausgabe zu sehen gewesen. IDEs konnte man mit diesem READLN zwingen, am Ende der Programmausführung nicht sofort wieder in den Editor-Modus umzuschalten, was die Ausgabe bei manchen IDEs (z. B. Turbo-Pascal) sonst hätte verschwinden lassen. Im Batch-Betrieb war das ohnehin nie notwendig.

Weiterentwicklungen

Literatur

Abgerufen von „https://de.wikipedia.org/w/index.php?title=Pascal_(Programmiersprache)&oldid=39279820“