=====ภาษา Pascal=====
====ประวัติความเป็นมา====
ภาษา Pascal พัฒนาโดยศาสตราจารย์นิคลอส เวียร์ต (Professor Niklaus Wirth) และทีมงานในสถาบัน The Eidgenossische Technische Hoschule ประเทศสวิสเซอร์แลนด์ โดยตั้งชื่อเพื่อเป็นเกียรติแก่นักคณิตศาสตร์ชาวฝรั่งเศส Blaise Pascal ผู้ประดิษฐ์เครื่องคิดเลขคนแรกของโลก 

ภาษา Pascal เป็นภาษาระดับสูงที่ถูกนำมาใช้ตั้งแต่ปี 1970 โดยมีลักษณะเด่น คือ เป็นภาษาที่ไม่ซับซ้อน เรียนรู้ได้เร็ว เข้าใจง่าย มีประสิทธิภาพสูง รองรับการเขียนโปรแกรมในเชิงโครงสร้าง (Structured Programming and Data Structure) 

รูปแบบการเขียนของภาษา Pascal ถูกพัฒนามาจากภาษา ALGOL 60 โดยจะมีการใช้คำสั่ง Begin ... End ในการกำหนดบล๊อกของคำสั่ง (ในขณะที่ภาษา C ใช้ {...})

----
====ภาษาเชิงวัตถุ Object Pascal====
ในปี 1980 ได้มีการนำภาษา Pascal มาพัฒนาต่อยอดให้รองรับการเขียนโปรแกรมเชิงวัตถุ (Object Oriented Programming) และใช้ชื่อภาษาใหม่ว่า Object Pascal เวอร์ชันแรกถูกนำมาใช้ราวปี 1985 โดย Apple Computer (สำหรับระบบปฏิบัติการ Macintosh) และ Borland (สำหรับระบบปฏิบัติการ Dos และ Microsoft Window)

ตัวแปลภาษา (Compiler) ที่เป็นที่รู้จักมีดังนี้
  * **Delphi** พัฒนาโดย Borland Software Corporation (ปัจจุบันถูกขายให้กับ Embarcadero Technologies) เพื่อใช้งานบน Microsoft Window Platform เป็นแปลภาษาที่มีประสิทธิภาพสูง โดยเวอร์ชั่นที่เป็นที่นิยมสำหรับ Programmer ในยุคนั้น คือ Delphi 7
  * **Free Pascal Compiler(FPC)** มีคุณสมบัติรองรับระบบปฎิบัติการได้หลากหลาย (Cross Platform) เป็นอีกหนึ่งตัวแปลภาษาที่มีประสิทธิภาพสูงที่ติดตั้งมากับ [[introduction:LazarusIDE|Lazarus IDE]] และที่สำคัญคือเป็นแบบ Opensource \\
  * Compiler อื่นๆอีกมากมายเช่น GNU Pascal, Oxygen เป็นต้น \\

สำหรับ Free Pascal Compiler หรือ FPC นั้น ได้ถือกำเนิดขึ้นในช่วงที่ Borland Turbo Pascal 7 ถูกหยุดพัฒนา แล้วจะถูกแทนที่ด้วย Borland Delphi Compiler การพัฒนา FPC แรกเริ่มนั้น ถูกเขียนขึ้นและ Compile บน Turbo Pascal และต่อมาถูกพัฒนาจนสามารถ Compile ได้เอง 
นั่นทำให้ FPC มีความคล้ายคลึงกับ Turbo Pascal และ Delphi เป็นอย่างมาก และปัจจุบันมีโปรแรกมเมอร์หลายท่านใช้งาน FPC บน Lazarus-IDE ควบคู่ไปกับ Delphi \\

----
====ตัวอย่างโปรแกรม Object Pascal (บน Free Pascal Compiler)====
<sxh delphi;>
program ObjectPascalExample;
type
   THelloWorld = object
      procedure Put;
   end;

var
   HelloWorld: THelloWorld;
   Value:integer;

procedure THelloWorld.Put;
begin
   writeln('Hello, World!');
end;

begin
  //This is In-line comment
  {This is Blog 
  comments}
  Value:=15;
  HelloWorld.Put;
  readln();
end. 
</sxh>
----

~~DISCUSSION:closed~~