Pascal Programming Language
• Pascal is an imperative and procedural programming language, which Niklaus Wirth designed in 1968–69 and published in 1970, as a small, efficient language intended to encourage good programming practices using structured programming and data structuring. It is named in honor of the French mathematician, philosopher and physicist Blaise Pascal. • Pascal was developed on the pattern of the ALGOL 60 language. Wirth had already developed several improvements to this language as part of the ALGOL X proposals, but these were not accepted and Pascal was developed separately and released in 1970. A derivative known as Object Pascal designed for objectoriented programming was developed in 1985; this was used by Apple Computer and Borland in the late 1980s and later developed into Delphi on the Microsoft Windows platform. Extensions to the Pascal concepts led to the Pascal-like languages Modula-2 and Oberon.
• Niklaus Emil Wirth (born 15 February 1934) is a Swiss computer scientist, best known for designing several programming languages, including Pascal, and for pioneering several classic topics in software engineering. In 1984 he won the Turing Award, generally recognized as the highest distinction in computer science, for developing a sequence of innovative computer languages • Wirth was born in Winterthur, Switzerland, in 1934. In 1959 he earned a degree in Electronics Engineering from the Swiss Federal Institute of Technology Zurich (ETH Zurich). In 1960 he earned an M.Sc. from University Laval, Canada. Then in 1963 he was awarded a Ph.D. in Electrical Engineering and Computer Science (EECS) from the University of California, Berkeley, supervised by the computer designer pioneer Harry Huskey.
Program PassOrFailSystem; Var ActualMark : Integer; PossibleMark : Integer; PercentageMark : Real; Begin { PassOrFailSystem } Writeln ('Please type the student''s actual mark: '); Readln (ActualMark); Writeln ('Please type the total possible mark of the exam : '); Readln (PossibleMark); PercentageMark := (ActualMark / PossibleMark) * 100; If (PercentageMark >= 50) Then Begin Writeln; Writeln ('Pass'); End Else Begin Writeln; Writeln ('Fail'); End; { EndIf } End. { PassOrFailSystem } This program shows an example of a binary selection where there are only two cases : ActualMark >= 50 or ActualMark < 50